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

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.49.2.7 emacs/lisp/gnus/message.el:1.49.2.8
*** emacs/lisp/gnus/message.el:1.49.2.7 Mon Oct 25 04:19:42 2004
--- emacs/lisp/gnus/message.el  Mon Oct 25 04:22:24 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 "."
***************
*** 2610,2616 ****
  (defun message-goto-mail-followup-to ()
    "Move point to the Mail-Followup-To header."
    (interactive)
!   (message-position-on-field "Mail-Followup-To" "From"))
  
  (defun message-goto-keywords ()
    "Move point to the Keywords header."
--- 2629,2635 ----
  (defun message-goto-mail-followup-to ()
    "Move point to the Mail-Followup-To header."
    (interactive)
!   (message-position-on-field "Mail-Followup-To" "To"))
  
  (defun message-goto-keywords ()
    "Move point to the Keywords header."
***************
*** 2720,2725 ****
--- 2739,2745 ----
    ;; FIXME: Should compare only the address and not the full name.  Comparison
    ;; should be done case-folded (and with `string=' rather than
    ;; `string-match').
+   ;; (mail-strip-quoted-names "Foo Bar <address@hidden>, address@hidden (Bla 
Fasel)")
    (dolist (header headers)
      (let* ((header-name (symbol-name (car header)))
             (new-header (cdr header))