/[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.65 by miles, Thu Oct 14 07:33:19 2004 UTC revision 1.66 by miles, Sun Oct 17 14:29:01 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 "."

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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