From xemacs-m  Thu Mar 13 13:39:29 1997
Received: from wfdutilgw.ml.com (wfdutilf01.ml.com [206.3.74.31])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id NAA04470
	for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 13:39:28 -0600 (CST)
Received: from ml1.ml.com ([199.201.57.130])
	by wfdutilgw.ml.com (8.8.5/8.8.5/MLgw-3.03) with ESMTP id OAA06443
	for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 14:37:15 -0500 (EST)
Received: from commpost.ml.com (commpost.ml.com [146.125.4.24])
	by ml1.ml.com (8.8.5/8.8.5/MLml4-2.07) with SMTP id OAA15152
	for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 14:41:48 -0500 (EST)
Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id OAA25053 for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 14:41:51 -0500
Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id OAA02415; Thu, 13 Mar 1997 14:38:57 -0500
Sender: craffert@spspme.ml.com
Mail-Copies-To: never
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: patch to time.el
Reply-To: Colin Rafferty <craffert@ml.com>
X-Face: ByE+UMAp1klWR3?\RNGx(A-~Ri!YT%C6M!sxoJL+.;9`Q/|+dj7[KR>gGMyV.2qZeot0NI`4\MA^_Qg`F9=+Ox&zaE?Y9dV%F~Xzf';Zyk2Aobs.uu^Ey0_C6^~q';G#$HkA!ZAHXPpG-"*|Dd*Z4U$4y{{aI0c%75}i~Of(jxYtI[uIpYF<*Zoe|\*/ufb
X-Y-Zippy: YOU PICKED KARL MALDEN'S NOSE!!
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Thu_Mar_13_14:38:56_1997-1"
Content-Transfer-Encoding: 7bit
From: Colin Rafferty <craffert@ml.com>
Date: 13 Mar 1997 14:38:56 -0500
Message-ID: <ocr67yvvay7.fsf@spssunp.spspme.ml.com>
Lines: 69
X-Mailer: Gnus v5.4.23/XEmacs 20.1

--Multipart_Thu_Mar_13_14:38:56_1997-1
Content-Type: text/plain; charset=US-ASCII

Howdy-

I love the new mail icon.  In fact, it has made me get rid of xbiff and
switch to display-time.  I have one nit to pick (and I have patched
time.el to get rid of the nit).

I prefer the mail icon to mean that there is new mail in the mailbox
since the last time I looked, not that there is any mail at all.

I have added a variable `display-time-ignore-read-mail' whose non-nil
value gives the old logic, but a nil value handles read mail.

Here is the patch:


--Multipart_Thu_Mar_13_14:38:56_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="time-patch"
Content-Transfer-Encoding: 8bit

*** time.el.orig	Sat Mar  8 18:26:41 1997
--- time.el	Thu Mar 13 14:29:21 1997
***************
*** 75,80 ****
--- 75,83 ----
     "Time when mail file's file system was recorded to be down.
  If that file system seems to be up, the value is nil.")
  
+ (defvar display-time-ignore-read-mail t
+   "*Non-nil means displays the mail icon on any non-empty mailbox.")
+ 
  ;;;###autoload
  (defun display-time ()
    "Display current time, load level, and mail flag in mode line of each buffer.
***************
*** 469,476 ****
      (sit-for 0)))
  
  (defun display-time-file-nonempty-p (file)
!   (and (file-exists-p file)
!        (< 0 (nth 7 (file-attributes (file-chase-links file))))))
  
  (provide 'time)
  
--- 472,484 ----
      (sit-for 0)))
  
  (defun display-time-file-nonempty-p (file)
!   (let ((attributes (file-attributes (file-chase-links file))))
!     (and attributes
! 	 (< 0 (nth 7 attributes))
! 	 (or display-time-ignore-read-mail
! 	     (> (car (nth 5 attributes)) (car (nth 4 attributes)))
! 	     (and (= (car (nth 5 attributes)) (car (nth 4 attributes)))
! 		  (> (cadr (nth 5 attributes)) (cadr (nth 4 attributes))))))))
  
  (provide 'time)
  

--Multipart_Thu_Mar_13_14:38:56_1997-1
Content-Type: text/plain; charset=US-ASCII

-- 
Colin

--Multipart_Thu_Mar_13_14:38:56_1997-1--

