mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1998-01-18 03:29:06 +00:00
parent df1e7b9120
commit afc070d1d4
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/mail/rmail.el
View File

@ -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