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): New function.

Browse source 
(rmail-message-senders-p): New function.
This commit is contained in:
Richard M. Stallman 1993-06-03 04:48:56 +00:00
parent 4d31bfee3e
commit cad1e93be8
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/mail/rmailsum.el
View file

@ -109,6 +109,22 @@ SUBJECT is a string of regexps separated by commas."
(goto-char (point-min))
(if whole-message (re-search-forward subject nil t)
(string-match subject (or (mail-fetch-field "Subject") "")) )))
(defun rmail-summary-by-senders (senders)
"Display a summary of all messages with the given SENDERS.
SENDERS is a string of names separated by commas."
(interactive "sSenders to summarize by: ")
(rmail-new-summary
(concat "senders " senders)
'rmail-message-senders-p
(mail-comma-list-regexp senders)))
(defun rmail-message-senders-p (msg senders)
(save-restriction
(goto-char (rmail-msgbeg msg))
(search-forward "\n*** EOOH ***\n")
(narrow-to-region (point) (progn (search-forward "\n\n") (point)))
(string-match senders (or (mail-fetch-field "From") ""))))
;; General making of a summary buffer.