# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 885094146 0
# Node ID 910d4cdbf81f0d732fcdbce5966995a61b9ba880
# Parent  e3498221274f01b94789cb03de728b6a2feca65f
(rmail): Unwind-protect call to rmail-get-new-mail.

diff -r e3498221274f -r 910d4cdbf81f lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Jan 18 03:27:05 1998 +0000
+++ b/lisp/mail/rmail.el	Sun Jan 18 03:29:06 1998 +0000
@@ -486,13 +486,15 @@
 	    (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