From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 3 Dec 1994 18:29:24 +0000 (+0000)
Subject: (rmail-get-new-mail): Position on first unseen message.
X-Git-Tag: emacs-19.34~5752
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcddd52e8c01622559ba8fdddc8504f78a8a02d6;p=emacs.git

(rmail-get-new-mail): Position on first unseen message.
Return t if actually got new mail.
(rmail): Show rmail-first-unseen-message if got no new mail.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 6a3a1886e59..3f251e6892c 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -281,14 +281,9 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
 	  (progn
 	    (rmail-set-message-counters)
 	    (rmail-show-message))))
-    (let ((existing-unseen (rmail-first-unseen-message)))
-      (or file-name-arg
-	  (rmail-get-new-mail))
-      ;; Show the first unseen message, which might be from a previous session
-      ;; or might have been just read in by rmail-get-new-mail.  Must
-      ;; determine already unseen messages first, as rmail-get-new-mail
-      ;; positions on the first new message, thus marking it as seen.
-      (rmail-show-message existing-unseen))
+    (or (and (null file-name-arg)
+	     (rmail-get-new-mail))
+	(rmail-show-message (rmail-first-unseen-message)))
     (if rmail-display-summary (rmail-summary))
     (rmail-construct-io-menu)))
 
@@ -800,7 +795,8 @@ file of new mail is not changed or deleted.  Noninteractively, you can
 pass the inbox file name as an argument.  Interactively, a prefix
 argument causes us to read a file name and use that file as the inbox.
 
-This function runs `rmail-get-new-mail-hook' before saving the updated file."
+This function runs `rmail-get-new-mail-hook' before saving the updated file.
+It returns t if it got any new messages."
   (interactive
    (list (if current-prefix-arg
 	     (read-file-name "Get new mail from file: "))))
@@ -864,16 +860,21 @@ This function runs `rmail-get-new-mail-hook' before saving the updated file."
 	(if (= new-messages 0)
 	    (progn (goto-char opoint)
 		   (if (or file-name rmail-inbox-list)
-		       (message "(No new mail has arrived)")))
+		       (message "(No new mail has arrived)"))
+		   nil)
 	  (if (rmail-summary-exists)
 	      (rmail-select-summary
 		(rmail-update-summary)))
 	  (message "%d new message%s read"
 		   new-messages (if (= 1 new-messages) "" "s"))
+	  ;; Move to the first new message
+	  ;; unless we have other unseen messages before it.
+	  (rmail-show-message (rmail-first-unseen-message))
 	  ;; Update the displayed time, since that will clear out
 	  ;; the flag that says you have mail.
 	  (if (eq (process-status "display-time") 'run)
-	      (display-time-filter display-time-process ""))))
+	      (display-time-filter display-time-process ""))
+	  t))
     ;; Don't leave the buffer screwed up if we get a disk-full error.
     (rmail-show-message)))