/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49.2.7 by miles, Mon Oct 25 04:19:42 2004 UTC revision 1.49.2.8 by miles, Mon Oct 25 04:22:24 2004 UTC
# Line 255  included.  Organization and User-Agent a Line 255  included.  Organization and User-Agent a
255    :group 'message-news    :group 'message-news
256    :group 'message-headers    :group 'message-headers
257    :link '(custom-manual "(message)Message Headers")    :link '(custom-manual "(message)Message Headers")
258    :type 'regexp)    :type '(repeat :value-to-internal (lambda (widget value)
259                                          (custom-split-regexp-maybe value))
260                     :match (lambda (widget value)
261                              (or (stringp value)
262                                  (widget-editable-list-match widget value)))
263                     regexp))
264    
265  (defcustom message-ignored-mail-headers  (defcustom message-ignored-mail-headers
266    "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"    "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
# Line 271  It's best to delete old Path and Date he Line 276  It's best to delete old Path and Date he
276  any confusion."  any confusion."
277    :group 'message-interface    :group 'message-interface
278    :link '(custom-manual "(message)Superseding")    :link '(custom-manual "(message)Superseding")
279    :type 'regexp)    :type '(repeat :value-to-internal (lambda (widget value)
280                                          (custom-split-regexp-maybe value))
281                     :match (lambda (widget value)
282                              (or (stringp value)
283                                  (widget-editable-list-match widget value)))
284                     regexp))
285    
286  (defcustom message-subject-re-regexp  (defcustom message-subject-re-regexp
287    "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"    "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
# Line 534  Done before generating the new subject o Line 544  Done before generating the new subject o
544    "*All headers that match this regexp will be deleted when resending a message."    "*All headers that match this regexp will be deleted when resending a message."
545    :group 'message-interface    :group 'message-interface
546    :link '(custom-manual "(message)Resending")    :link '(custom-manual "(message)Resending")
547    :type 'regexp)    :type '(repeat :value-to-internal (lambda (widget value)
548                                          (custom-split-regexp-maybe value))
549                     :match (lambda (widget value)
550                              (or (stringp value)
551                                  (widget-editable-list-match widget value)))
552                     regexp))
553    
554  (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"  (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
555    "*All headers that match this regexp will be deleted when forwarding a message."    "*All headers that match this regexp will be deleted when forwarding a message."
556    :version "21.1"    :version "21.1"
557    :group 'message-forwarding    :group 'message-forwarding
558    :type '(choice (const :tag "None" nil)    :type '(repeat :value-to-internal (lambda (widget value)
559                                          (custom-split-regexp-maybe value))
560                     :match (lambda (widget value)
561                              (or (stringp value)
562                                  (widget-editable-list-match widget value)))
563                   regexp))                   regexp))
564    
565  (defcustom message-ignored-cited-headers "."  (defcustom message-ignored-cited-headers "."
# Line 2610  M-RET    `message-newline-and-reformat' Line 2629  M-RET    `message-newline-and-reformat'
2629  (defun message-goto-mail-followup-to ()  (defun message-goto-mail-followup-to ()
2630    "Move point to the Mail-Followup-To header."    "Move point to the Mail-Followup-To header."
2631    (interactive)    (interactive)
2632    (message-position-on-field "Mail-Followup-To" "From"))    (message-position-on-field "Mail-Followup-To" "To"))
2633    
2634  (defun message-goto-keywords ()  (defun message-goto-keywords ()
2635    "Move point to the Keywords header."    "Move point to the Keywords header."
# Line 2720  or in the synonym headers, defined by `m Line 2739  or in the synonym headers, defined by `m
2739    ;; FIXME: Should compare only the address and not the full name.  Comparison    ;; FIXME: Should compare only the address and not the full name.  Comparison
2740    ;; should be done case-folded (and with `string=' rather than    ;; should be done case-folded (and with `string=' rather than
2741    ;; `string-match').    ;; `string-match').
2742      ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)")
2743    (dolist (header headers)    (dolist (header headers)
2744      (let* ((header-name (symbol-name (car header)))      (let* ((header-name (symbol-name (car header)))
2745             (new-header (cdr header))             (new-header (cdr header))

Legend:
Removed from v.1.49.2.7  
changed lines
  Added in v.1.49.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26