Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents fe104dbd9147
children
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
840 (message "%d new message%s read" 840 (message "%d new message%s read"
841 new-messages (if (= 1 new-messages) "" "s")) 841 new-messages (if (= 1 new-messages) "" "s"))
842 ;; #### BOGUS! Run a hook here instead and let time.el do it. 842 ;; #### BOGUS! Run a hook here instead and let time.el do it.
843 (and (boundp 'display-time-string) 843 (and (boundp 'display-time-string)
844 display-time-string 844 display-time-string
845 (stringp display-time-string)
845 (string-match " Mail" display-time-string) 846 (string-match " Mail" display-time-string)
846 (setq display-time-string 847 (setq display-time-string
847 (concat 848 (concat
848 (substring display-time-string 0 (match-beginning 0)) 849 (substring display-time-string 0 (match-beginning 0))
849 (substring display-time-string (match-end 0)))) 850 (substring display-time-string (match-end 0))))