umerin@photon.stars.flab.fujitsu.junet (Masanobu UMEDA) (03/18/89)
Date: 6 Mar 89 17:23:46 GMT From: flab!fgw!uunet!paris.berkeley.edu!mcgrath (Roland McGrath) Organization: /lang/guest/mcgrath/News/.organization Anyway, I'd like the gnus-Article-mode mode line to contain the time from display-time, and a count of unread articles (in the current group). I think there is room enough for all the information. I would give up it telling me it's GNUS Article mode (though perhaps there should still be an indication for Narrow), and maybe the range of articles if necessary. To display current time in the mode line, run the following hook: (setq gnus-Article-mode-hook '(lambda () (kill-local-variable 'global-mode-string))) I want to use the following function to display the current status in the mode line of Article Mode buffer in the next version of GNUS. (defun gnus-Article-set-mode-line () "Set Article mode line string." (let ((unmarked (length (gnus-set-difference gnus-newsgroup-unreads gnus-newsgroup-marked)))) (setq mode-line-buffer-identification (list 17 (format "GNUS: %s {%d} %s" gnus-newsgroup-name gnus-current-article ;; This is proposed by tale@pawl.rpi.edu. (if (zerop unmarked) " " (format "%d more" unmarked)) )))) (set-buffer-modified-p t)) Masanobu UMEDA umerin@flab.Fujitsu.JUNET umerin%flab.Fujitsu.JUNET@uunet.uu.NET