From d5440962925aa2d104582a73acfefd7cd51ae747 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 4 Feb 2003 20:34:54 +0000 Subject: [PATCH] (spam group parameters): change 'other to 'const in the group parameter definitions to soothe XEmacs --- lisp/ChangeLog | 5 +++++ lisp/gnus.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0055c4d4c..c566e7394 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-02-04 Teodor Zlatanov + + * gnus.el (spam group parameters): change 'other to 'const in + the group parameter definitions to soothe XEmacs + 2003-02-04 Kai Gro,A_(Bjohann * gnus-delay.el (gnus-delay-article): Really create diff --git a/lisp/gnus.el b/lisp/gnus.el index 013c00f43..854aeec62 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1787,13 +1787,13 @@ This only makes sense for mail groups." (choice (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) - (other :tag "Unclassified" nil)))) + (const :tag "Unclassified" nil)))) :parameter-type '(list :tag "Group contents spam/ham classification" (choice :tag "Group contents classification for spam sorting" (variable-item gnus-group-spam-classification-spam) (variable-item gnus-group-spam-classification-ham) - (other :tag "Unclassified" nil))) + (const :tag "Unclassified" nil))) :parameter-document "The spam classification (spam, ham, or neither) of this group. When a spam group is entered, all unread articles are marked as spam.") @@ -1881,7 +1881,7 @@ for mail groups." spam-process-destination :parameter-type '(choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") - (other :tag "Expire" nil)) + (const :tag "Expire" nil)) :function-document "Where spam-processed articles will go at summary exit." :variable gnus-spam-process-destinations @@ -1901,7 +1901,7 @@ mail groups." (choice :tag "Destination for spam-processed articles at summary exit" (string :tag "Move to a group") - (other :tag "Expire" nil)))) + (const :tag "Expire" nil)))) :parameter-document "Where spam-processed articles will go at summary exit.") @@ -1910,7 +1910,7 @@ mail groups." :parameter-type '(choice :tag "Destination for ham articles at summary exit from a spam group" (string :tag "Move to a group") - (other :tag "Do nothing" nil)) + (const :tag "Do nothing" nil)) :function-document "Where ham articles will go at summary exit from a spam group." :variable gnus-ham-process-destinations @@ -1930,7 +1930,7 @@ mail groups, and only works in spam groups." (choice :tag "Destination for ham articles at summary exit from spam group" (string :tag "Move to a group") - (other :tag "Expire" nil)))) + (const :tag "Expire" nil)))) :parameter-document "Where ham articles will go at summary exit from a spam group.")) -- 2.34.1