# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758029698 0
# Node ID 0a6c0e720ece765febf6e820927d31e20527b709
# Parent  9b694015caec246115981af9887cee72820e1240
(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 -r 9b694015caec -r 0a6c0e720ece lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Sat Jan 08 10:04:22 1994 +0000
+++ b/lisp/mail/rmailsum.el	Sat Jan 08 11:48:18 1994 +0000
@@ -116,6 +116,7 @@
   (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 @@
   (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.