[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Please install in Master
From: |
Richard Stallman |
Subject: |
Please install in Master |
Date: |
Sun, 17 Jun 2018 18:17:41 -0400 |
[[[ 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)
- Please install in Master,
Richard Stallman <=