comparison lisp/gnus/gnus-msg.el @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
52 52
53 If you want to have greater control over what group to put each 53 If you want to have greater control over what group to put each
54 message in, you can set this variable to a function that checks the 54 message in, you can set this variable to a function that checks the
55 current newsgroup name and then returns a suitable group name (or list 55 current newsgroup name and then returns a suitable group name (or list
56 of names).") 56 of names).")
57
58 (defvar gnus-message-archive-group
59 '((if (message-news-p) "misc-news" "misc-mail"))
60 "*Name of the group in which to save the messages you've written.
61 This can either be a string, a list of strings; or an alist
62 of regexps/functions/forms to be evaluated to return a string (or a list
63 of strings). The functions are called with the name of the current
64 group (or nil) as a parameter.
65
66 Normally the group names returned by this variable should be
67 unprefixed -- which implictly means \"store on the archive server\".
68 However, you may wish to store the message on some other server. In
69 that case, just return a fully prefixed name of the group --
70 \"nnml+private:mail.misc\", for instance.")
71 57
72 (defvar gnus-mailing-list-groups nil 58 (defvar gnus-mailing-list-groups nil
73 "*Regexp matching groups that are really mailing lists. 59 "*Regexp matching groups that are really mailing lists.
74 This is useful when you're reading a mailing list that has been 60 This is useful when you're reading a mailing list that has been
75 gatewayed to a newsgroup, and you want to followup to an article in 61 gatewayed to a newsgroup, and you want to followup to an article in
666 (let ((address 652 (let ((address
667 (buffer-substring 653 (buffer-substring
668 (save-excursion (re-search-backward "[ \t\n]" nil t) (1+ (point))) 654 (save-excursion (re-search-backward "[ \t\n]" nil t) (1+ (point)))
669 (save-excursion (re-search-forward "[ \t\n]" nil t) (1- (point)))))) 655 (save-excursion (re-search-forward "[ \t\n]" nil t) (1- (point))))))
670 (when address 656 (when address
671 (switch-to-buffer gnus-summary-buffer)
672 (message-reply address) 657 (message-reply address)
673 (when yank 658 (when yank
674 (gnus-inews-yank-articles yank))))) 659 (gnus-inews-yank-articles (list (cdr gnus-article-current)))))))
675 660
676 (defun gnus-bug () 661 (defun gnus-bug ()
677 "Send a bug report to the Gnus maintainers." 662 "Send a bug report to the Gnus maintainers."
678 (interactive) 663 (interactive)
679 (gnus-setup-message 'bug 664 (gnus-setup-message 'bug