From: Henrik Enberg <henrik.enberg@telia.com>
Date: Wed, 18 Jan 2006 22:14:08 +0000 (+0000)
Subject: (rmail-decode-mbox-file): Fix stupid mistake.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04082d262038eec31dd5492269b3678075fe9f4e;p=emacs.git

(rmail-decode-mbox-file): Fix stupid mistake.
---

diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog
index d6a5f1f5828..35ddcecfa59 100644
--- a/lisp/mail/ChangeLog
+++ b/lisp/mail/ChangeLog
@@ -1,12 +1,11 @@
 2006-01-18  Henrik Enberg  <enberg@printf.se>
 
 	* rmail.el (rmail-get-inbox-list): New function.
-	(rmail-get-new-mail): Use it.  Only call `rmail-show-message'
-	on file-error condition if no new messages are found.
+	(rmail-get-new-mail): Use it.  Only call `rmail-show-message' on
+	file-error condition if no new messages are found.
 	(rmail-get-sender): Deleted.
 	(rmail-process-new-messages): Use mail-fetch-field instead.
 	(rmail-show-message): Cleanup.
-	
 	(rmail-decode-mbox-file): New function.
 	(rmail): Use it. Only call `rmail-show-message' if no new mail was
 	found.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index f26c77720ec..b5be81c83c3 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -799,12 +799,12 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
 	 (get-buffer-create (file-name-nondirectory file-name)))
 	(when (file-exists-p file-name)
 	  (insert-file-contents-literally file-name))
-	(setq buffer-file-name file-name))
-      ;; As we have read a file as raw-text, the buffer is set to
-      ;; unibyte.  We must make it multibyte if necessary.
-      (if (and rmail-enable-multibyte
-	       (not enable-multibyte-characters))
-	  (set-buffer-multibyte t)))
+	(setq buffer-file-name file-name)
+	;; As we have read a file as raw-text, the buffer is set to
+	;; unibyte.  We must make it multibyte if necessary.
+	(if (and rmail-enable-multibyte
+		 (not enable-multibyte-characters))
+	    (set-buffer-multibyte t))))
     ;; Make sure we're in rmail-mode, even if the buffer did exist and
     ;; the file was not changed.
     (unless (eq major-mode 'rmail-mode)
@@ -866,7 +866,7 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
       (unless (memq coding-system '(undecided undecided-unix))
 	(set-buffer-modified-p t) ;; avoid locking when decoding
 	(let ((buffer-undo-list t))
-	  (decode-coding-region from to coding-system))
+	  (decode-coding-region (point-min) (point-max) coding-system))
 	(setq coding-system last-coding-system-used))
       (set-buffer-modified-p modifiedp)
       (setq buffer-file-coding-system nil)