Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cad1e93b
Commit
cad1e93b
authored
Jun 03, 1993
by
Richard M. Stallman
Browse files
(rmail-summary-by-senders): New function.
(rmail-message-senders-p): New function.
parent
4d31bfee
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
0 deletions
+16
-0
lisp/mail/rmailsum.el
lisp/mail/rmailsum.el
+16
-0
No files found.
lisp/mail/rmailsum.el
View file @
cad1e93b
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment