Mercurial > emacs

changeset 5507:0a6c0e720ece

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Jan 1994 11:48:18 +0000
parents 9b694015caec
children 67db1f804162
files lisp/mail/rmailsum.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.