2006-01-18 Henrik Enberg <enberg@printf.se>
+ * rmailsum.el (rmail-summary-get-new-mail): Only call
+ `rmail-summary-goto-msg' if no new mail was found.
+
* rmail.el (rmail-get-new-mail): Only call `rmail-show-message'
on file-error condition if no new messages are found.
-
+ (rmail): Only call `rmail-show-message' if no new mail
+ was found.
+
2006-01-18 Alex Schroeder <alex@gnu.org>
* rmail.el (rmail): Only insert the file if it actually exists.
(interactive
(list (if current-prefix-arg
(read-file-name "Get new mail from file: "))))
- (let (current-message)
+ (let (current-message new-mail)
(with-current-buffer rmail-buffer
- (rmail-get-new-mail file-name)
- (setq current-message rmail-current-message))
- (rmail-summary-goto-msg current-message nil t)))
+ (setq new-mail (rmail-get-new-mail file-name)
+ current-message rmail-current-message))
+ ;; If new mail was found, display of the correct message was
+ ;; done elsewhere.
+ (unless new-mail
+ (rmail-summary-goto-msg current-message nil t))))
(defun rmail-summary-input (filename)
"Run Rmail on file FILENAME."