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:" |
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]*" |
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 "." |
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." |
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)) |