(mh-narrow-to-subject): Remove Re: string from subject so that pick

can find originating message (closes SF #1438369).

2 files changed, 7 insertions, 0 deletions

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-folder-mode-map>\\[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-folder-mode-map>\\[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