[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.65 emacs/lisp/gnus/message.el:1.66
*** emacs/lisp/gnus/message.el:1.65     Thu Oct 14 07:33:19 2004
--- emacs/lisp/gnus/message.el  Sun Oct 17 14:29:01 2004
***************
*** 255,261 ****
    :group 'message-news
    :group 'message-headers
    :link '(custom-manual "(message)Message Headers")
!   :type 'regexp)
  
  (defcustom message-ignored-mail-headers
    
"^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
--- 255,266 ----
    :group 'message-news
    :group 'message-headers
    :link '(custom-manual "(message)Message Headers")
!   :type '(repeat :value-to-internal (lambda (widget value)
!                                     (custom-split-regexp-maybe value))
!                :match (lambda (widget value)
!                         (or (stringp value)
!                             (widget-editable-list-match widget value)))
!                regexp))
  
  (defcustom message-ignored-mail-headers
    
"^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
***************
*** 271,277 ****
  any confusion."
    :group 'message-interface
    :link '(custom-manual "(message)Superseding")
!   :type 'regexp)
  
  (defcustom message-subject-re-regexp
    "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
--- 276,287 ----
  any confusion."
    :group 'message-interface
    :link '(custom-manual "(message)Superseding")
!   :type '(repeat :value-to-internal (lambda (widget value)
!                                     (custom-split-regexp-maybe value))
!                :match (lambda (widget value)
!                         (or (stringp value)
!                             (widget-editable-list-match widget value)))
!                regexp))
  
  (defcustom message-subject-re-regexp
    "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
***************
*** 534,546 ****
    "*All headers that match this regexp will be deleted when resending a 
message."
    :group 'message-interface
    :link '(custom-manual "(message)Resending")
!   :type 'regexp)
  
  (defcustom message-forward-ignored-headers 
"^Content-Transfer-Encoding:\\|^X-Gnus"
    "*All headers that match this regexp will be deleted when forwarding a 
message."
    :version "21.1"
    :group 'message-forwarding
!   :type '(choice (const :tag "None" nil)
                 regexp))
  
  (defcustom message-ignored-cited-headers "."
--- 544,565 ----
    "*All headers that match this regexp will be deleted when resending a 
message."
    :group 'message-interface
    :link '(custom-manual "(message)Resending")
!   :type '(repeat :value-to-internal (lambda (widget value)
!                                     (custom-split-regexp-maybe value))
!                :match (lambda (widget value)
!                         (or (stringp value)
!                             (widget-editable-list-match widget value)))
!                regexp))
  
  (defcustom message-forward-ignored-headers 
"^Content-Transfer-Encoding:\\|^X-Gnus"
    "*All headers that match this regexp will be deleted when forwarding a 
message."
    :version "21.1"
    :group 'message-forwarding
!   :type '(repeat :value-to-internal (lambda (widget value)
!                                     (custom-split-regexp-maybe value))
!                :match (lambda (widget value)
!                         (or (stringp value)
!                             (widget-editable-list-match widget value)))
                 regexp))
  
  (defcustom message-ignored-cited-headers "."