From 2363d498fb99bda0b5030c8c1af2925209bb60e5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 27 May 2015 23:16:29 -0700 Subject: [PATCH] * lisp/mail/rmailsum.el (rmail-summary-by-recipients) (rmail-summary-by-topic, rmail-summary-by-senders): No longer strip leading/trailing whitespace. --- lisp/mail/rmailsum.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index ed4d58c9505..eeb42e81c6d 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -298,9 +298,7 @@ RECIPIENTS is a regular expression." (rmail-new-summary (concat "recipients " recipients) (list 'rmail-summary-by-recipients recipients primary-only) - 'rmail-message-recipients-p - (replace-regexp-in-string "\\`[ \t]*\\(.*?\\)[ \t]*\\'" "\\1" recipients) - primary-only)) + 'rmail-message-recipients-p recipients primary-only)) (defun rmail-message-recipients-p (msg recipients &optional primary-only) (rmail-apply-in-message msg 'rmail-message-recipients-p-1 @@ -379,9 +377,7 @@ SUBJECT is a regular expression." (rmail-new-summary (concat "about " subject) (list 'rmail-summary-by-topic subject whole-message) - 'rmail-message-subject-p - (replace-regexp-in-string "\\`[ \t]*\\(.*?\\)[ \t]*\\'" "\\1" subject) - whole-message)) + 'rmail-message-subject-p subject whole-message)) (defun rmail-message-subject-p (msg subject &optional whole-message) (if whole-message @@ -397,9 +393,7 @@ SENDERS is a regular expression." (interactive "sSenders to summarize by: ") (rmail-new-summary (concat "senders " senders) - (list 'rmail-summary-by-senders senders) - 'rmail-message-senders-p - (replace-regexp-in-string "\\`[ \t]*\\(.*?\\)[ \t]*\\'" "\\1" senders))) + (list 'rmail-summary-by-senders senders) 'rmail-message-senders-p senders)) (defun rmail-message-senders-p (msg senders) (string-match senders (or (rmail-get-header "From" msg) ""))) -- 2.11.4.GIT