Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-group.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 15872534500d
children
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Mon Aug 13 09:47:55 2007 +0200
+++ b/lisp/gnus/gnus-group.el	Mon Aug 13 09:49:09 2007 +0200
@@ -1213,7 +1213,9 @@
 		     (not (zerop (buffer-size))))))
 	     (mode-string (eval gformat)))
 	;; Say whether the dribble buffer has been modified.
-	(setq mode-line-modified (if modified "**" "--"))
+	(setq mode-line-modified
+	      (if modified (car gnus-mode-line-modified)
+		(cdr gnus-mode-line-modified)))
 	;; If the line is too long, we chop it off.
 	(when (> (length mode-string) max-len)
 	  (setq mode-string (substring mode-string 0 (- max-len 4))))