diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-21 00:22:22 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-21 00:22:22 +0200 |
| commit | f4d186b3b80c513338d6c7ddaef75f5aaa5c1dcb (patch) | |
| tree | 5b65471c41f08784c054728ae073a095f6c8e96f | |
| parent | 6d9297abe0561e9a3750d4f07919b2973ec31504 (diff) | |
| download | emacs-f4d186b3b80c513338d6c7ddaef75f5aaa5c1dcb.tar.gz emacs-f4d186b3b80c513338d6c7ddaef75f5aaa5c1dcb.tar.bz2 emacs-f4d186b3b80c513338d6c7ddaef75f5aaa5c1dcb.zip | |
Allow not selecting messages in Gnus before resending
* lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Allow not
selecting messages. This is faster when resending huge spam messages.
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 7bc7fb5be41..465871eafbd 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1352,8 +1352,10 @@ For the \"inline\" alternatives, also see the variable gcc))) (insert "Gcc: " (mapconcat 'identity gcc ", ") "\n"))))))) -(defun gnus-summary-resend-message (address n) - "Resend the current article to ADDRESS." +(defun gnus-summary-resend-message (address n &optional no-select) + "Resend the current article to ADDRESS. +Uses the process/prefix convention. If NO-SELECT, don't display +the message before resending." (interactive (list (message-read-from-minibuffer "Resend message(s) to: " @@ -1372,6 +1374,7 @@ For the \"inline\" alternatives, also see the variable 'posting-style t)) (user-full-name user-full-name) (user-mail-address user-mail-address) + (group gnus-newsgroup-name) tem) (dolist (style styles) (when (stringp (cadr style)) @@ -1395,11 +1398,18 @@ For the \"inline\" alternatives, also see the variable '(gnus-agent-possibly-do-gcc) '(gnus-inews-do-gcc))))) (dolist (article (gnus-summary-work-articles n)) - (gnus-summary-select-article nil nil nil article) - (with-current-buffer gnus-original-article-buffer - (let ((gnus-gcc-externalize-attachments nil) - (message-inhibit-body-encoding t)) - (message-resend address))) + (if no-select + (with-current-buffer " *nntpd*" + (erase-buffer) + (gnus-request-article article group) + (let ((gnus-gcc-externalize-attachments nil) + (message-inhibit-body-encoding t)) + (message-resend address))) + (gnus-summary-select-article nil nil nil article) + (with-current-buffer gnus-original-article-buffer + (let ((gnus-gcc-externalize-attachments nil) + (message-inhibit-body-encoding t)) + (message-resend address)))) (gnus-summary-mark-article-as-forwarded article)))) ;; From: Matthieu Moy <Matthieu.Moy@imag.fr> |