From 07074849f0139889d8aafbe88d7fcb1c04286184 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 00:48:18 +0000 Subject: [PATCH] (rmail-get-new-mail): If display-time is in use, call display-time-filter to update the Mail indicator. --- lisp/mail/rmail.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index f696ddfa12f..6a3a1886e59 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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))) -- 2.39.5