mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-by-senders):

Browse source 
Add missing arg to rmail-new-summary.
(rmail-summary-output, rmail-summary-output-to-rmail-file):
Handle rmail-delete-after-output explicitly here.
This commit is contained in:
Richard M. Stallman 1994-01-08 11:48:18 +00:00
parent 162de1825d
commit 84fa8eb54b
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/rmailsum.el
View file

@ -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.