From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Please install in Master Date: Sun, 17 Jun 2018 18:17:41 -0400 Message-ID: Reply-To: rms@gnu.org NNTP-Posting-Host: blaine.gmane.org Content-Type: text/plain; charset=Utf-8 X-Trace: blaine.gmane.org 1529273749 509 195.159.176.226 (17 Jun 2018 22:15:49 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 17 Jun 2018 22:15:49 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jun 18 00:15:45 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fUfxV-0008Re-Ps for ged-emacs-devel@m.gmane.org; Mon, 18 Jun 2018 00:15:41 +0200 Original-Received: from localhost ([::1]:56581 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fUfzd-0006qi-00 for ged-emacs-devel@m.gmane.org; Sun, 17 Jun 2018 18:17:53 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:37751) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fUfzT-0006qZ-Ae for emacs-devel@gnu.org; Sun, 17 Jun 2018 18:17:44 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fUfzS-0004o1-5E for emacs-devel@gnu.org; Sun, 17 Jun 2018 18:17:43 -0400 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:56254) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fUfzS-0004ns-1N for emacs-devel@gnu.org; Sun, 17 Jun 2018 18:17:42 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1fUfzR-00039e-Gp; Sun, 17 Jun 2018 18:17:41 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:226440 Archived-At: [[[ 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 * 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)