From 4d5b8182e9e2b640ea9795d1418b233db2907e11 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 3 Jul 1997 19:07:26 +0000 Subject: [PATCH] (gnus-group-set-mode-line): Update how mode-line-modified is set. --- lisp/gnus/gnus-group.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 32b596689de..979f3c5164f 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1216,8 +1216,7 @@ already." (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 "**" "--")) ;; 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)))) -- 2.39.2