From 66b265f5df732d032d0f35ead3020a46894077d1 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Wed, 1 Mar 2006 06:19:59 +0000 Subject: [PATCH] (mh-narrow-to-subject): Remove Re: string from subject so that pick can find originating message (closes SF #1438369). --- lisp/mh-e/ChangeLog | 2 ++ lisp/mh-e/mh-limit.el | 5 +++++ 2 files changed, 7 insertions(+) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index b94c2522477..fa39c7988f4 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -5,6 +5,8 @@ to subjects with special characters by quoting regular expression characters in pick expression derived from existing subjects and other fields (closes SF #1432548). + (mh-narrow-to-subject): Remove Re: string from subject so that + pick can find originating message (closes SF #1438369). * mh-utils.el (mh-image-load-path): Rename variable to mh-image-directory. 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 -- 2.39.2