[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el |
Date: |
Mon, 18 Oct 2004 18:33:07 -0400 |
Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.66 emacs/lisp/gnus/message.el:1.67
*** emacs/lisp/gnus/message.el:1.66 Sun Oct 17 14:29:01 2004
--- emacs/lisp/gnus/message.el Mon Oct 18 22:23:43 2004
***************
*** 2629,2635 ****
(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."
***************
*** 2739,2744 ****
--- 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))