From 3fd646a9620c97b5a39b924e2c53bc0caccc944d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 23 Apr 2002 03:05:26 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 9 +++++++++ lisp/gnus-group.el | 7 ++++++- lisp/gnus-srvr.el | 2 +- 3 files changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 617fefa..82ad76a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2002-04-22 Bj,Av(Brn Torkelsson + + * gnus-srvr.el (gnus-server-browse-in-group-buffer): it is a + boolean not a string + * gnus-group.el (gnus-group-line-format): add description of %C + * gnus-group.el (gnus-group-line-format-alist): add gnus-tmp-comment + as %C + * gnus-group.el (gnus-group-insert-group-line): add gnus-tmp-comment + 2002-04-22 Paul Jarc * nnmaildir.el (nnmaildir-request-scan): typo: set diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 5b0be07..10631dc 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -159,6 +159,7 @@ with some simple extensions. %G Group name (string) %g Qualified group name (string) %c Short (collapsed) group name. See `gnus-group-uncollapsed-levels'. +%C Group comment (string) %D Group description (string) %s Select method (string) %o Moderated group (char, \"m\") @@ -192,7 +193,7 @@ of these specs, you must probably re-start Gnus to see them go into effect. General format specifiers can also be used. -See (gnus)Formatting Variables." +See `(gnus)Formatting Variables'." :link '(custom-manual "(gnus)Formatting Variables") :group 'gnus-group-visual :type 'string) @@ -475,6 +476,7 @@ simple manner.") (?g gnus-tmp-group ?s) (?G gnus-tmp-qualified-group ?s) (?c (gnus-short-group-name gnus-tmp-group) ?s) + (?C gnus-tmp-comment ?s) (?D gnus-tmp-newsgroup-description ?s) (?o gnus-tmp-moderated ?c) (?O gnus-tmp-moderated-string ?s) @@ -1359,6 +1361,9 @@ if it is a string, only list groups matching REGEXP." (gnus-tmp-qualified-group (gnus-group-name-decode (gnus-group-real-name gnus-tmp-group) group-name-charset)) + (gnus-tmp-comment + (or (gnus-group-get-parameter gnus-tmp-group 'comment t) + gnus-tmp-group)) (gnus-tmp-newsgroup-description (if gnus-description-hashtb (or (gnus-group-name-decode diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index e452861..98c24ad 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -72,7 +72,7 @@ See (gnus)Formatting Variables." "Whether server browsing should take place in the group buffer. If nil, a faster, but more primitive, buffer is used instead." :group 'gnus-server-visual - :type 'string) + :type 'boolean) ;;; Internal variables. -- 1.7.10.4