Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!hao!ames!sdcsvax!ucsdhub!hp-sdd!hplabs!hpda!hpsal2!hpcupt1!hpindda!jack
From: jack@hpindda.HP.COM (Jack Repenning)
Newsgroups: comp.emacs
Subject: GNU Emacs, display-time, and mh-e
Message-ID: <3590010@hpindda.HP.COM>
Date: Mon, 9-Nov-87 12:25:53 EST
Article-I.D.: hpindda.3590010
Posted: Mon Nov  9 12:25:53 1987
Date-Received: Thu, 12-Nov-87 23:19:55 EST
Organization: Hewlett Packard, Cupertino
Lines: 32

Here's a small mod I made to mh-e.el, so that the "Mail" sentinel in the
mode line (posted by display-time, in time.el) gets cleared when mail
is mh-inc'ed.  (For ease of reading, I'll point out that the new code
is added as the last form in mh-get-new-mail.)

Does anyone have a better solution, or a critique of this one?

Jack Repenning		(HP-UX: jack@hpda, (Telnet and PacTel:) 447-3380, 43LN)
Information Networks Division, 43LN
Hewlett Packard Company
19420 Homestead Road
Cupertino, CA  95014

2,4d1
< ;;;	Modified by Jack Repenning (jack@hpda.hp.com) to clear the
< ;;;		"Mail" flag in the mode line, if display-time is
< ;;;		running
1081c1078
< (defun mh-get-new-mail (maildrop-name) ;;; Adds "clear display-time flag"
---
> (defun mh-get-new-mail (maildrop-name)
1120,1126c1117,1118
< 	     t))))
<   (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))))
---
> 	     t)))))
>