From 66b265f5df732d032d0f35ead3020a46894077d1 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Wed, 1 Mar 2006 06:19:59 +0000 Subject: (mh-narrow-to-subject): Remove Re: string from subject so that pick can find originating message (closes SF #1438369). --- lisp/mh-e/mh-limit.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/mh-e/mh-limit.el') diff --git a/lisp/mh-e/mh-limit.el b/lisp/mh-e/mh-limit.el index f2609263b91..64a61ce499a 100644 --- a/lisp/mh-e/mh-limit.el +++ b/lisp/mh-e/mh-limit.el @@ -121,11 +121,16 @@ Use \\\\[mh-widen] to undo this command." (defun mh-narrow-to-subject (&optional pick-expr) "Limit to messages with same subject. With a prefix argument, edit PICK-EXPR. +The string Re: is removed from the search. Use \\\\[mh-widen] to undo this command." (interactive (list (mh-edit-pick-expr (mh-quote-pick-expr (mh-current-message-header-field 'subject))))) + (setq pick-expr + (let ((case-fold-search t)) + (loop for s in pick-expr + collect (mh-replace-regexp-in-string "re: *" "" s)))) (mh-narrow-to-header-field 'subject pick-expr)) ;;;###mh-autoload -- cgit v1.2.1