From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Jan 1994 11:48:18 +0000 (+0000)
Subject: (rmail-summary-by-senders):
X-Git-Tag: emacs-19.34~10344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84fa8eb54bcf68969c02cd84f7735ae2a77fc2af;p=emacs.git

(rmail-summary-by-senders):
Add missing arg to rmail-new-summary.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Handle rmail-delete-after-output explicitly here.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 5f02284619c..5bcbc2f5ae8 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -116,6 +116,7 @@ SENDERS is a string of names separated by commas."
   (interactive "sSenders to summarize by: ")
   (rmail-new-summary
    (concat "senders " senders)
+   (list 'rmail-summary-by-senders senders)
    'rmail-message-senders-p
    (mail-comma-list-regexp senders)))
 
@@ -1038,14 +1039,20 @@ buffer visiting that file."
   (interactive)
   (save-excursion
     (set-buffer rmail-buffer)
-    (call-interactively 'rmail-output-to-rmail-file)))
+    (let ((rmail-delete-after-output nil))
+      (call-interactively 'rmail-output-to-rmail-file)))
+  (if rmail-delete-after-output
+      (rmail-summary-delete-message nil)))
 
 (defun rmail-summary-output ()
   "Append this message to Unix mail file named FILE-NAME."
   (interactive)
   (save-excursion
     (set-buffer rmail-buffer)
-    (call-interactively 'rmail-output)))
+    (let ((rmail-delete-after-output nil))
+      (call-interactively 'rmail-output)))
+  (if rmail-delete-after-output
+      (rmail-summary-delete-message nil)))
 
 ;; Sorting messages in Rmail Summary buffer.