Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
afc070d1
Commit
afc070d1
authored
Jan 18, 1998
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(rmail): Unwind-protect call to rmail-get-new-mail.
parent
df1e7b91
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
lisp/mail/rmail.el
lisp/mail/rmail.el
+9
-7
No files found.
lisp/mail/rmail.el
View file @
afc070d1
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment