* Please install in Master
@ 2018-06-17 22:17 Richard Stallman
2018-06-18 7:24 ` Paul Eggert
0 siblings, 1 reply; 2+ messages in thread
From: Richard Stallman @ 2018-06-17 22:17 UTC (permalink / raw)
To: emacs-devel
[[[ To any NSA and FBI agents reading my email: please consider ]]]
[[[ whether defending the US Constitution against all enemies, ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]
Would someone please install this for me?
NEWS:
** The command 'rmail-summary-by-senders' with an empty argument
selects the messages to summarize with a regexp that matches the
sender of the current message.
2018-06-17 Richard Stallman <rms@gnu.org>
* lisp/mail/rmailsum.el (rmail-summary-by-senders): Offer
From field of current message as a default argument.
diff -u /home/rms/emacs-git/build-may-23/lisp/mail/rmailsum.el.\~1\~ /home/rms/emacs-git/build-may-23/lisp/mail/rmailsum.el
--- /home/rms/emacs-git/build-may-23/lisp/mail/rmailsum.el.~1~ 2018-05-23 22:20:00.267454621 -0400
+++ /home/rms/emacs-git/build-may-23/lisp/mail/rmailsum.el 2018-06-17 07:33:31.175620267 -0400
@@ -390,8 +390,17 @@
;;;###autoload
(defun rmail-summary-by-senders (senders)
"Display a summary of all messages whose \"From\" field matches SENDERS.
-SENDERS is a regular expression."
- (interactive "sSenders to summarize by: ")
+SENDERS is a regular expression. The default for SENDERS matches the
+sender of the current messsage."
+ (interactive
+ (let* ((def (rmail-get-header "From"))
+ ;; We quote the default argument, because if it contains regexp
+ ;; special characters (eg "?"), it can fail to match itself.
+ (sender (regexp-quote def))
+ (prompt (concat "Senders to summarize by (regexp"
+ (if sender ", default this message's sender" "")
+ "): ")))
+ (list (read-string prompt nil nil sender))))
(rmail-new-summary
(concat "senders " senders)
(list 'rmail-summary-by-senders senders) 'rmail-message-senders-p senders))
Diff finished. Sun Jun 17 12:07:51 2018
--
Dr Richard Stallman
President, Free Software Foundation (https://gnu.org, https://fsf.org)
Internet Hall-of-Famer (https://internethalloffame.org)
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Please install in Master
2018-06-17 22:17 Please install in Master Richard Stallman
@ 2018-06-18 7:24 ` Paul Eggert
0 siblings, 0 replies; 2+ messages in thread
From: Paul Eggert @ 2018-06-18 7:24 UTC (permalink / raw)
To: rms, emacs-devel
Richard Stallman wrote:
> Would someone please install this for me?
> ... > * lisp/mail/rmailsum.el (rmail-summary-by-senders): Offer
> From field of current message as a default argument.
I did that.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2018-06-18 7:24 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-06-17 22:17 Please install in Master Richard Stallman
2018-06-18 7:24 ` Paul Eggert
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).