mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(mail-source-fetch-imap): Bind

Browse Source 
default-enable-multibyte-characters rather than using
mm-disable-multibyte.
This commit is contained in:
Dave Love 2000-10-09 13:35:39 +00:00
parent adf7d3a874
commit 126cbb422a
2 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/ChangeLog
View File

@ -1,3 +1,14 @@
2000-10-09 Dave Love <fx@gnu.org>
* mail-source.el (mail-source-fetch-imap): Bind
default-enable-multibyte-characters rather than using
mm-disable-multibyte.
2000-10-03 ShengHuo ZHU <zsh@cs.rochester.edu>
* mail-source.el (mail-source-fetch-maildir): Don't insert
newlines.
2000-10-06 Stefan Monnier <monnier@cs.yale.edu>
* mm-encode.el: Require CL. At least, for `incf'.

21
lisp/gnus/mail-source.el
View File

@ -688,7 +688,10 @@ If ARGS, PROMPT is used as an argument to `format'."
(defvar mail-source-report-new-mail-timer nil)
(defvar mail-source-report-new-mail-idle-timer nil)
(eval-when-compile (require 'timer))
(eval-when-compile
(if (featurep 'xemacs)
(require 'itimer)
(require 'timer)))
(defun mail-source-start-idle-timer ()
;; Start our idle timer if necessary, so we delay the check until the
@ -769,10 +772,10 @@ This only works when `display-time' is enabled."
;;; (current-time-string) "\n"))
;;; (while (re-search-forward "^From " nil t)
;;; (replace-match ">From "))
;;; (goto-char (point-max))
;;; (insert "\n\n")
;; MMDF mail format
(insert "\001\001\001\001\n")
(goto-char (point-max))
(insert "\n\n"))
(insert "\001\001\001\001\n"))
(delete-file file)))))
(incf found (mail-source-callback callback file))))))
found)))
@ -808,12 +811,12 @@ This only works when `display-time' is enabled."
user (or (cdr (assoc from mail-source-password-cache))
password) buf)
(imap-mailbox-select mailbox nil buf))
(let (str (coding-system-for-write mail-source-imap-file-coding-system))
(let ((coding-system-for-write mail-source-imap-file-coding-system)
;; Avoid converting 8-bit chars from inserted strings to
;; multibyte.
default-enable-multibyte-characters
str)
(with-temp-file mail-source-crash-box
;; In some versions of FSF Emacs, inserting unibyte
;; string into multibyte buffer may convert 8-bit chars
;; into latin-iso8859-1 chars, which results \201's.
(mm-disable-multibyte)
;; remember password
(with-current-buffer buf
(when (or imap-password