(message-hidden-headers): Fix the way to avoid a bug in the `repeat' widget

 in Emacs 21.3 or earlier.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c054b05..c0a6f1a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <yamaoka@jpl.org>
 
        * message.el (message-hidden-headers): Default to "^References:".

diff --git a/lisp/message.el b/lisp/message.el
index a59f6d1..99dfe02 100644 (file)
--- 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."