Mercurial > hg > xemacs-beta
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 |