From 6bf89950e72d7269456c5e4732da947d457147d5 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 26 Sep 2001 11:53:51 +0000 Subject: [PATCH] 2001-09-26 07:00:00 ShengHuo ZHU * gnus-cus.el (gnus-group-parameters): Display as sexp. --- lisp/ChangeLog | 4 ++++ lisp/gnus-cus.el | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b9574f8a..6615efba5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-09-26 07:00:00 ShengHuo ZHU + + * gnus-cus.el (gnus-group-parameters): Display as sexp. + 2001-09-22 Simon Josefsson * nnml.el (nnml-open-marks): Remove unpropagatable marks. diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index d32f65f65..e0e608880 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.") -- 2.34.1