Please install in Master

[Richard Stallman]

[[[ 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  <address@hidden>

        * 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)