diff options
| author | Karl Heuer | 1998-01-18 03:29:06 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-01-18 03:29:06 +0000 |
| commit | afc070d1d467de4014aeb5bb804a1cc8b6cafd2b (patch) | |
| tree | 2222edea08bd0b427a5f2b9e6810a9fc61bacb0d | |
| parent | df1e7b91207aa141d7c1ddc0dad8ac342cd46065 (diff) | |
| download | emacs-afc070d1d467de4014aeb5bb804a1cc8b6cafd2b.tar.gz emacs-afc070d1d467de4014aeb5bb804a1cc8b6cafd2b.zip | |
(rmail): Unwind-protect call to rmail-get-new-mail.
| -rw-r--r-- | lisp/mail/rmail.el | 16 |
1 files 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." | |||
| 486 | (rmail-set-message-counters) | 486 | (rmail-set-message-counters) |
| 487 | (rmail-show-message) | 487 | (rmail-show-message) |
| 488 | (setq msg-shown t)))) | 488 | (setq msg-shown t)))) |
| 489 | (or (and (null file-name-arg) | 489 | (unwind-protect |
| 490 | (rmail-get-new-mail)) | 490 | (or (and (null file-name-arg) |
| 491 | (or msg-shown (rmail-show-message (rmail-first-unseen-message)))) | 491 | (rmail-get-new-mail)) |
| 492 | (if rmail-display-summary (rmail-summary)) | 492 | (or msg-shown (rmail-show-message (rmail-first-unseen-message)))) |
| 493 | (rmail-construct-io-menu) | 493 | (progn |
| 494 | (if run-mail-hook | 494 | (if rmail-display-summary (rmail-summary)) |
| 495 | (run-hooks 'rmail-mode-hook)))) | 495 | (rmail-construct-io-menu) |
| 496 | (if run-mail-hook | ||
| 497 | (run-hooks 'rmail-mode-hook)))))) | ||
| 496 | 498 | ||
| 497 | ;; Given the value of MAILPATH, return a list of inbox file names. | 499 | ;; Given the value of MAILPATH, return a list of inbox file names. |
| 498 | ;; This is turned off because it is not clear that the user wants | 500 | ;; This is turned off because it is not clear that the user wants |