Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
07074849
Commit
07074849
authored
Oct 21, 1994
by
Richard M. Stallman
Browse files
(rmail-get-new-mail): If display-time is in use,
call display-time-filter to update the Mail indicator.
parent
b5b4d360
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
8 deletions
+4
-8
lisp/mail/rmail.el
lisp/mail/rmail.el
+4
-8
No files found.
lisp/mail/rmail.el
View file @
07074849
...
...
@@ -870,14 +870,10 @@ This function runs `rmail-get-new-mail-hook' before saving the updated file."
(rmail-update-summary)))
(message "%d new message%s read"
new-messages (if (= 1 new-messages) "" "s"))
(and (boundp 'display-time-string)
(stringp display-time-string)
(string-match " Mail" display-time-string)
(setq display-time-string
(concat
(substring display-time-string 0 (match-beginning 0))
(substring display-time-string (match-end 0))))
(force-mode-line-update 'all))))
;; Update the displayed time, since that will clear out
;; the flag that says you have mail.
(if (eq (process-status "display-time") 'run)
(display-time-filter display-time-process ""))))
;; Don't leave the buffer screwed up if we get a disk-full error.
(rmail-show-message)))
...
...
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