diff options
author | Richard M. Stallman <[email protected]> | 1994-01-08 11:48:18 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-01-08 11:48:18 +0000 |
commit | 84fa8eb54bcf68969c02cd84f7735ae2a77fc2af (patch) | |
tree | b0718cf1026fd5227f276c06e14a8c46ec316449 /lisp | |
parent | 162de1825de6bc2dbc5ab28f0a60ea0862d64800 (diff) |
(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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mail/rmailsum.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 5f02284619..5bcbc2f5ae 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. |