]> git.eshelyaron.com Git - emacs.git/commitdiff
(rmail-decode-mbox-file): Fix stupid mistake.
authorHenrik Enberg <henrik.enberg@telia.com>
Wed, 18 Jan 2006 22:14:08 +0000 (22:14 +0000)
committerHenrik Enberg <henrik.enberg@telia.com>
Wed, 18 Jan 2006 22:14:08 +0000 (22:14 +0000)
lisp/mail/ChangeLog
lisp/mail/rmail.el

index d6a5f1f58283767ba58996dab1047af1ab73fbbb..35ddcecfa59be48ed73d8af5274c6f150d0ffe3d 100644 (file)
@@ -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.
index f26c77720ec1170ac8871a11f9b2d80906cca37a..b5be81c83c3f2e1051bbd6996221e1ee14b8a33d 100644 (file)
@@ -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)