From: Kenichi Handa Date: Fri, 20 Feb 1998 11:15:28 +0000 (+0000) Subject: (rmail-decode-babyl-format): Message modified. X-Git-Tag: emacs-20.3~2127 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55e2a603da46526b3cc838738822dc5f247962de;p=emacs.git (rmail-decode-babyl-format): Message modified. (rmail): Comment for the binding of rmail-enable-multibyte added. --- diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2eb712e9338..d55e11dbb0e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -454,6 +454,9 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." (setq rmail-enable-mime nil)))) (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) (existed (get-file-buffer file-name)) + ;; This binding is necessary because we much decide if we + ;; need code conversion while the buffer is unibyte + ;; (i.e. enable-multibyte-characters is nil). (rmail-enable-multibyte (default-value 'enable-multibyte-characters)) ;; Since the file may contain messages of different encodings ;; at the tail (non-BYBYL part), we can't decode them at once @@ -606,9 +609,9 @@ Note: it means the file has no messages in it.\n\^_"))) (goto-char (point)) (setq from (point)) (if (= (% count 10) 0) - (message "Decoding messages (%d)..." count)) + (message "Decoding messages...%d" count)) (setq count (1+ count))) - (message "Decoding messages (%d)...done" count) + (message "Decoding messages...done") (set-buffer-file-coding-system rmail-file-coding-system) (set-buffer-modified-p modifiedp)))))