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)) |