# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867956846 0
# Node ID c87b0767a179d00d78f3b2b251e2c824be7bf870
# Parent  19f99191b11d79447b1296cd41f75d4fdda251a1
(gnus-group-set-mode-line):
Update how mode-line-modified is set.

diff -r 19f99191b11d -r c87b0767a179 lisp/gnus/gnus-group.el
--- a/lisp/gnus/gnus-group.el	Thu Jul 03 07:21:22 1997 +0000
+++ b/lisp/gnus/gnus-group.el	Thu Jul 03 19:07:26 1997 +0000
@@ -1216,8 +1216,7 @@
 		     (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))))