From: ueno <ueno>
Date: Tue, 24 Aug 1999 14:32:37 +0000 (+0000)
Subject: (gnus-group-line-format-alist): Add entry about the format specifier `w'.
X-Git-Tag: t-gnus-6_13_0-11~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41e4ae90b6805980a6728fbd65b7c80b05835f5a;p=elisp%2Fgnus.git-

(gnus-group-line-format-alist): Add entry about the format specifier `w'.
(gnus-group-line-format): Fix documentation.
---

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 5cd3cd8..1d1ade3 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -156,7 +156,8 @@ with some simple extensions.
 %p    Process mark (char)
 %O    Moderated group (string, \"(m)\" or \"\")
 %P    Topic indentation (string)
-%m    Whether there is new(ish) mail in the group (char, \"%\")
+%m    Whether there is new(ish) mails in the group (char, \"%\")
+%w    Number of new(ish) mail in the group (integer)
 %l    Whether there are GroupLens predictions for this group (string)
 %n    Select from where (string)
 %z    A string that look like `<%s:%n>' if a foreign select method is used
@@ -407,6 +408,13 @@ ticked: The number of ticked articles."
     (?l gnus-tmp-grouplens ?s)
     (?z gnus-tmp-news-method-string ?s)
     (?m (gnus-group-new-mail gnus-tmp-group) ?c)
+    (?w (if (gnus-news-group-p gnus-tmp-group) 
+	    ""
+	  (int-to-string 
+	   (length 
+	    (nnmail-new-mail-numbers (gnus-group-real-name gnus-tmp-group))
+	    )))
+	?s)
     (?d (gnus-group-timestamp-string gnus-tmp-group) ?s)
     (?u gnus-tmp-user-defined ?s)))