Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
1211 (save-excursion 1211 (save-excursion
1212 (set-buffer gnus-dribble-buffer) 1212 (set-buffer gnus-dribble-buffer)
1213 (not (zerop (buffer-size)))))) 1213 (not (zerop (buffer-size))))))
1214 (mode-string (eval gformat))) 1214 (mode-string (eval gformat)))
1215 ;; Say whether the dribble buffer has been modified. 1215 ;; Say whether the dribble buffer has been modified.
1216 (setq mode-line-modified (if modified "**" "--")) 1216 (setq mode-line-modified
1217 (if modified (car gnus-mode-line-modified)
1218 (cdr gnus-mode-line-modified)))
1217 ;; If the line is too long, we chop it off. 1219 ;; If the line is too long, we chop it off.
1218 (when (> (length mode-string) max-len) 1220 (when (> (length mode-string) max-len)
1219 (setq mode-string (substring mode-string 0 (- max-len 4)))) 1221 (setq mode-string (substring mode-string 0 (- max-len 4))))
1220 (prog1 1222 (prog1
1221 (setq mode-line-buffer-identification 1223 (setq mode-line-buffer-identification