# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 887973328 0
# Node ID a66eb4a41765ca2239d5a00a46312228ce1dedf6
# Parent  3dbeb1555fa739e6ac3b0b0dc9ec1caf2fb37cd0
(rmail-decode-babyl-format): Message modified.
(rmail): Comment for the binding of rmail-enable-multibyte added.

diff -r 3dbeb1555fa7 -r a66eb4a41765 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Feb 20 11:14:32 1998 +0000
+++ b/lisp/mail/rmail.el	Fri Feb 20 11:15:28 1998 +0000
@@ -454,6 +454,9 @@
 	       (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 @@
 	    (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)))))