Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
2075 "Remove ephemeral GROUP from relevant structures." 2075 "Remove ephemeral GROUP from relevant structures."
2076 (gnus-sethash group nil gnus-newsrc-hashtb)) 2076 (gnus-sethash group nil gnus-newsrc-hashtb))
2077 2077
2078 (defun gnus-simplify-mode-line () 2078 (defun gnus-simplify-mode-line ()
2079 "Make mode lines a bit simpler." 2079 "Make mode lines a bit simpler."
2080 (setq mode-line-modified "-- ") 2080 (setq mode-line-modified (cdr gnus-mode-line-modified))
2081 (when (listp mode-line-format) 2081 (when (listp mode-line-format)
2082 (make-local-variable 'mode-line-format) 2082 (make-local-variable 'mode-line-format)
2083 (setq mode-line-format (copy-sequence mode-line-format)) 2083 (setq mode-line-format (copy-sequence mode-line-format))
2084 (when (equal (nth 3 mode-line-format) " ") 2084 (when (equal (nth 3 mode-line-format) " ")
2085 (setcar (nthcdr 3 mode-line-format) " ")))) 2085 (setcar (nthcdr 3 mode-line-format) " "))))