🚀 go-pugleaf

jr@bbn.com (John Robinson) suggests a way to update the mode line so
that in doesn't say "Mail" after an inc:
:(setq mh-inc-folder-hook '(lambda ()
:  (if (and (boundp 'display-time-process) display-time-process)
:      (start-process "update-time-display" nil
:		     "/bin/sh"
:		     "-c" (concat "kill -14 "
:				  (int-to-string
:				   (process-id display-time-process)))))))

So far I have been lucky enough with a method that does not disturb
the currently running display-time process.  I expect this method is
actually faster than the one proposed above.  It goes like this:

(defun cq-mh-inc-folder () ;; This function is my mh-inc-folder-hook
  "Stuff to do after incorporating mail.
If display-time-process is not-null, change the mode line
to stop announcing this mail, without waiting first for
display-time-interval to expire."
  (cond ((and (boundp 'display-time-process)
              display-time-process      ;clean up mode line
              (stringp display-time-string)
              (string-match "\\(.*\\) Mail" display-time-string))
         (setq display-time-string 
               (substring display-time-string 
                          (match-beginning 1) (match-end 1)))
         (sit-for 0))))

It just goes and chops off the "Mail" part.

Comments welcome.
-- 
                                      Cesar Augusto Quiroz Gonzalez
                                      Department of Computer Science
                                      University of Rochester
                                      Rochester,  NY 14627