Mercurial > emacs

comparison lisp/gnus/message.el @ 57581:645f020dcc8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-626 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-54 Update from CVS 2004-10-18 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/mml.el (mml-preview): Use `pop-to-buffer'. * lisp/gnus/message.el (message-goto-mail-followup-to): Insert after "To". (message-carefully-insert-headers): Add comment. * lisp/gnus/gnus-sum.el (gnus-summary-make-menu-bar): Add help texts. * lisp/gnus/gnus-art.el (gnus-button-alist): Improve `gnus-button-handle-library' entry. * lisp/gnus/gnus-art.el (gnus-button-alist): Fixed regexp for manual links. * lisp/gnus/gnus-group.el (gnus-group-get-new-news-this-group): Added doc-string. * lisp/gnus/gnus-start.el (gnus-activate-group): Added doc-string. * lisp/gnus/gnus-art.el (gnus-button-handle-man, gnus-button-alist): Try to handle manual section. * lisp/gnus/imap.el (imap-store-password): New variable. (imap-interactive-login): Use it. Suggested by Mark Plaksin <happy@mcplaksin.org>. * lisp/gnus/gnus-art.el (gnus-button-alist, gnus-header-button-alist): Allow / in mailto URLs. * lisp/gnus/spam.el (spam-directory): Derive from `gnus-directory'. * lisp/gnus/gnus-sum.el (gnus-pick-line-number): Add autoload.
author Miles Bader <miles@gnu.org>
date Mon, 18 Oct 2004 22:23:44 +0000
parents 505c55fe8dc9
children df80d19d7a2e f3ec05478165
comparison
equal deleted inserted replaced
57580:55e41a15ee14 57581:645f020dcc8a
2627 (message-position-on-field "Followup-To" "Newsgroups")) 2627 (message-position-on-field "Followup-To" "Newsgroups"))
2628 2628
2629 (defun message-goto-mail-followup-to () 2629 (defun message-goto-mail-followup-to ()
2630 "Move point to the Mail-Followup-To header." 2630 "Move point to the Mail-Followup-To header."
2631 (interactive) 2631 (interactive)
2632 (message-position-on-field "Mail-Followup-To" "From")) 2632 (message-position-on-field "Mail-Followup-To" "To"))
2633 2633
2634 (defun message-goto-keywords () 2634 (defun message-goto-keywords ()
2635 "Move point to the Keywords header." 2635 "Move point to the Keywords header."
2636 (interactive) 2636 (interactive)
2637 (message-position-on-field "Keywords" "Subject")) 2637 (message-position-on-field "Keywords" "Subject"))
2737 Does not insert the headers when they are already present there 2737 Does not insert the headers when they are already present there
2738 or in the synonym headers, defined by `message-header-synonyms'." 2738 or in the synonym headers, defined by `message-header-synonyms'."
2739 ;; FIXME: Should compare only the address and not the full name. Comparison 2739 ;; FIXME: Should compare only the address and not the full name. Comparison
2740 ;; should be done case-folded (and with `string=' rather than 2740 ;; should be done case-folded (and with `string=' rather than
2741 ;; `string-match'). 2741 ;; `string-match').
2742 ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)")
2742 (dolist (header headers) 2743 (dolist (header headers)
2743 (let* ((header-name (symbol-name (car header))) 2744 (let* ((header-name (symbol-name (car header)))
2744 (new-header (cdr header)) 2745 (new-header (cdr header))
2745 (synonyms (loop for synonym in message-header-synonyms 2746 (synonyms (loop for synonym in message-header-synonyms
2746 when (memq (car header) synonym) return synonym)) 2747 when (memq (car header) synonym) return synonym))