From ec0675c825f1dfb2cb225ddbcac984f8688b503e Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 25 Nov 2004 23:22:19 +0000 Subject: [PATCH] (message-hidden-headers): Fix the way to avoid a bug in the `repeat' widget in Emacs 21.3 or earlier. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c054b05e7..c0a6f1af1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-25 Katsumi Yamaoka + + * message.el (message-hidden-headers): Fix the way to avoid a bug + in the `repeat' widget in Emacs 21.3 or earlier. + 2004-11-25 Katsumi Yamaoka * message.el (message-hidden-headers): Default to "^References:". diff --git a/lisp/message.el b/lisp/message.el index a59f6d143..99dfe02c4 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1117,13 +1117,14 @@ starting with `not' and followed by regexps." :group 'message :link '(custom-manual "(message)Message Headers") :type '(choice - (regexp :tag "regexp" :format "%t\nRegexp: %v" :size 1) - (group :tag "(regexp ...)" :format "(regexp ...)\n%v" :inline t - (repeat :format "%v%i" (regexp :format "%t: %v\n" :size 1))) - (cons :tag "(not regexp ...)" + :format "%{%t%}: %[Value Type%] %v" + (regexp :menu-tag "regexp" :format "regexp\n%t: %v") + (repeat :menu-tag "(regexp ...)" :format "(regexp ...)\n%v%i" + (regexp :format "%t: %v")) + (cons :menu-tag "(not regexp ...)" :format "(not regexp ...)\n%v" (const not) (repeat :format "%v%i" - (regexp :format "%t: %v\n" :size 1))))) + (regexp :format "%t: %v"))))) (defcustom message-cite-articles-with-x-no-archive t "If non-nil, cite text from articles that has X-No-Archive set." -- 2.34.1