From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 18 Jan 1998 03:29:06 +0000 (+0000)
Subject: (rmail): Unwind-protect call to rmail-get-new-mail.
X-Git-Tag: emacs-20.3~2412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afc070d1d467de4014aeb5bb804a1cc8b6cafd2b;p=emacs.git

(rmail): Unwind-protect call to rmail-get-new-mail.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e9d6243a128..3561b3b33fc 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -486,13 +486,15 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
 	    (rmail-set-message-counters)
 	    (rmail-show-message)
 	    (setq msg-shown t))))
-    (or (and (null file-name-arg)
-	     (rmail-get-new-mail))
-	(or msg-shown (rmail-show-message (rmail-first-unseen-message))))
-    (if rmail-display-summary (rmail-summary))
-    (rmail-construct-io-menu)
-    (if run-mail-hook
-	(run-hooks 'rmail-mode-hook))))
+    (unwind-protect
+	(or (and (null file-name-arg)
+		 (rmail-get-new-mail))
+	    (or msg-shown (rmail-show-message (rmail-first-unseen-message))))
+      (progn
+	(if rmail-display-summary (rmail-summary))
+	(rmail-construct-io-menu)
+	(if run-mail-hook
+	    (run-hooks 'rmail-mode-hook))))))
 
 ;; Given the value of MAILPATH, return a list of inbox file names.
 ;; This is turned off because it is not clear that the user wants