diff options
| author | Bill Wohler <wohler@newt.com> | 2006-03-01 06:19:59 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-03-01 06:19:59 +0000 |
| commit | 66b265f5df732d032d0f35ead3020a46894077d1 (patch) | |
| tree | 601d94b5f8dccda153a8909d4d586d112d0fc6e2 /lisp/mh-e/mh-limit.el | |
| parent | 052df3346e679576ae01dfb54080a3bdb787dde1 (diff) | |
| download | emacs-66b265f5df732d032d0f35ead3020a46894077d1.tar.gz | |
(mh-narrow-to-subject): Remove Re: string from subject so that pick
can find originating message (closes SF #1438369).
Diffstat (limited to 'lisp/mh-e/mh-limit.el')
| -rw-r--r-- | lisp/mh-e/mh-limit.el | 5 |
1 files changed, 5 insertions, 0 deletions
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 |