From afc070d1d467de4014aeb5bb804a1cc8b6cafd2b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 18 Jan 1998 03:29:06 +0000 Subject: [PATCH] (rmail): Unwind-protect call to rmail-get-new-mail. --- lisp/mail/rmail.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) 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 -- 2.39.2