Mercurial > emacs
changeset 20662:910d4cdbf81f
(rmail): Unwind-protect call to rmail-get-new-mail.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 18 Jan 1998 03:29:06 +0000 |
| parents | e3498221274f |
| children | 2483aa76b98d |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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