From: yamaoka <yamaoka>
Date: Wed, 26 Sep 2001 12:29:13 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-08-quimby~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=413d01cb1323e7aa46196ab5965dfbf237da59bd;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b0a85f..081d1fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-26 07:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-cus.el (gnus-group-parameters): Display as sexp.
+
 2001-09-22  Simon Josefsson  <jas@extundo.com>
 
 	* nnml.el (nnml-open-marks): Remove unpropagatable marks.
diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index d32f65f..e0e6088 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -178,7 +178,8 @@ you to put the admin address somewhere convenient.")
     (display (choice :tag "Display"
 		     :value default
 		     (const all)
-		     (const default)) "\
+		     (const default)
+		     (sexp  :tag "Other")) "\
 Which articles to display on entering the group.
 
 `all'
@@ -186,7 +187,11 @@ Which articles to display on entering the group.
 
 `default'
      Display the default visible articles, which normally includes
-     unread and ticked articles.")
+     unread and ticked articles.
+
+`Other'
+     Display the articles that satisfy the S-expression. The S-expression  
+     should be in an array form.")
 
     (comment (string :tag  "Comment") "\
 An arbitrary comment on the group.")