diff options
author | Lars Magne Ingebrigtsen <[email protected]> | 1996-06-29 00:29:17 +0000 |
---|---|---|
committer | Lars Magne Ingebrigtsen <[email protected]> | 1996-06-29 00:29:17 +0000 |
commit | c4c7f54c6ad77009e46ea66f622ba700d0240127 (patch) | |
tree | 20973bb623b236c00476cbdfa39da33a013f0cc7 /lisp/gnus-msg.el | |
parent | b1cfbae486bde038c68754cd01a8ee84b1c4165d (diff) |
Synched with Gnus 5.2.31.
Diffstat (limited to 'lisp/gnus-msg.el')
-rw-r--r-- | lisp/gnus-msg.el | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 5d1778e7aa..53e915af4c 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -55,20 +55,6 @@ message in, you can set this variable to a function that checks the current newsgroup name and then returns a suitable group name (or list of names).") -(defvar gnus-message-archive-group - '((if (message-news-p) "misc-news" "misc-mail")) - "*Name of the group in which to save the messages you've written. -This can either be a string, a list of strings; or an alist -of regexps/functions/forms to be evaluated to return a string (or a list -of strings). The functions are called with the name of the current -group (or nil) as a parameter. - -Normally the group names returned by this variable should be -unprefixed -- which implictly means \"store on the archive server\". -However, you may wish to store the message on some other server. In -that case, just return a fully prefixed name of the group -- -\"nnml+private:mail.misc\", for instance.") - (defvar gnus-mailing-list-groups nil "*Regexp matching groups that are really mailing lists. This is useful when you're reading a mailing list that has been @@ -668,10 +654,9 @@ If YANK is non-nil, include the original article." (save-excursion (re-search-backward "[ \t\n]" nil t) (1+ (point))) (save-excursion (re-search-forward "[ \t\n]" nil t) (1- (point)))))) (when address - (switch-to-buffer gnus-summary-buffer) (message-reply address) (when yank - (gnus-inews-yank-articles yank))))) + (gnus-inews-yank-articles (list (cdr gnus-article-current))))))) (defun gnus-bug () "Send a bug report to the Gnus maintainers." |