/[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.66 by miles, Sun Oct 17 14:29:01 2004 UTC revision 1.67 by miles, Mon Oct 18 22:23:43 2004 UTC
# Line 2629  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 2739  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.66  
changed lines
  Added in v.1.67

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