Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!mit-eddie!ll-xn!ames!sdcsvax!ucsdhub!hp-sdd!hplabs!hpda!hpsal2!hpcupt1!hpindda!jack
From: jack@hpindda.HP.COM (Jack Repenning)
Newsgroups: comp.emacs
Subject: Re: GNU Emacs, display-time, and mh-e
Message-ID: <3590012@hpindda.HP.COM>
Date: Tue, 10-Nov-87 23:40:23 EST
Article-I.D.: hpindda.3590012
Posted: Tue Nov 10 23:40:23 1987
Date-Received: Sat, 14-Nov-87 02:11:02 EST
References: <3590010@hpindda.HP.COM>
Organization: Hewlett Packard, Cupertino
Lines: 67

I've been informed that the code in the basenote doesn't compile
(mismatched parentheses).  Sorry about that!  Here's correct code.

I was asked for a context diff, but I can't provide that - my diff
hasn't got that feature.  Here's something nearly equivalent:
unchanged code is presented unchanged, changed regions are delimited
by "vvv" and "^^^", and presented just as diff normally presents them.
I present the one modified function in its entirety.

Jack Repenning

vvv
< (defun mh-get-new-mail (maildrop-name)
---
> (defun mh-get-new-mail (maildrop-name) ;;; Adds "clear display-time flag"
^^^
  "Read new mail from a maildrop into the current buffer.
Return t if there was new mail, nil otherwise.  Return in the current buffer."
  (let ((buffer-read-only nil)
	(point-before-inc (point)))
    (message (if maildrop-name
		 (format "inc %s -file %s..." (buffer-name) maildrop-name)
		 (format "inc %s..." (buffer-name))))
    (mh-unmark-all-headers nil)
    (setq mh-next-direction 'forward)
    (flush-lines "^inc:\\|^scan:")	; Kill old error messages
    (goto-char (point-max))
    (let ((start-of-inc (point)))
      (if maildrop-name
	  (mh-exec-cmd-output "inc" nil (buffer-name) "-file"
			      (expand-file-name maildrop-name)
			      "-truncate")
	  (mh-exec-cmd-output "inc" nil))
      (message
       (if maildrop-name
	   (format "inc %s -file %s...done" (buffer-name) maildrop-name)
	   (format "inc %s...done" (buffer-name))))
      (goto-char start-of-inc)
      (cond ((looking-at "inc: no mail")
	     (keep-lines "^[ ]*[0-9]")	; Flush random scan lines
	     (mh-make-folder-mode-line)
	     (goto-char point-before-inc)
	     (message "No new mail%s%s." (if maildrop-name " in " "")
		      (if maildrop-name maildrop-name ""))
	     nil)
	    ((looking-at "inc:")	; Error messages
	     (mh-make-folder-mode-line)
	     (goto-char point-before-inc)
	     (message "inc error")
	     nil)
	    (t
	     (keep-lines "^[ ]*[0-9]")
	     (mh-make-folder-mode-line)
	     (mh-goto-cur-msg)
vvv
< 	     t)))))
< 
---
> 	     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))))))
> ;;; End of mh-get-new-mail
^^^