(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 2eb712e9338610a18a7c85fdc1c4636a5ad2627f..d55e11dbb0e7f164cbfb041bbfa8317fe39e436e 100644 (file)
--- 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)))))