# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782700498 0
# Node ID 3c1d373d9125dcaf50fa5344a27744ba816ae97f
# Parent  833a19698ef36ed1b3193bf4f84d9ec8b709dbc2
(rmail-get-new-mail): If display-time is in use,
call display-time-filter to update the Mail indicator.

diff -r 833a19698ef3 -r 3c1d373d9125 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Oct 20 21:19:47 1994 +0000
+++ b/lisp/mail/rmail.el	Fri Oct 21 00:48:18 1994 +0000
@@ -870,14 +870,10 @@
 		(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)))