🚀 go-pugleaf

   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