Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail.el @ 50:ee648375d8d6 r19-16b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b91
author cvs
date Mon, 13 Aug 2007 08:56:41 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
49:b46643e427ac 50:ee648375d8d6
761 (message "%d new message%s read" 761 (message "%d new message%s read"
762 new-messages (if (= 1 new-messages) "" "s")) 762 new-messages (if (= 1 new-messages) "" "s"))
763 ;; #### BOGUS! Run a hook here instead and let time.el do it. 763 ;; #### BOGUS! Run a hook here instead and let time.el do it.
764 (and (boundp 'display-time-string) 764 (and (boundp 'display-time-string)
765 display-time-string 765 display-time-string
766 (stringp display-time-string)
766 (string-match " Mail" display-time-string) 767 (string-match " Mail" display-time-string)
767 (setq display-time-string 768 (setq display-time-string
768 (concat 769 (concat
769 (substring display-time-string 0 (match-beginning 0)) 770 (substring display-time-string 0 (match-beginning 0))
770 (substring display-time-string (match-end 0)))) 771 (substring display-time-string (match-end 0))))