Mercurial > emacs
comparison lisp/mh-e/mh-limit.el @ 69222:f6aa586588ea
(mh-narrow-to-subject): Remove Re: string from subject so that pick
can find originating message (closes SF #1438369).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Wed, 01 Mar 2006 06:19:59 +0000 |
| parents | 7db1bc48b98c |
| children | e3694f1cb928 |
comparison
equal
deleted
inserted
replaced
| 69221:7db1bc48b98c | 69222:f6aa586588ea |
|---|---|
| 119 | 119 |
| 120 ;;;###mh-autoload | 120 ;;;###mh-autoload |
| 121 (defun mh-narrow-to-subject (&optional pick-expr) | 121 (defun mh-narrow-to-subject (&optional pick-expr) |
| 122 "Limit to messages with same subject. | 122 "Limit to messages with same subject. |
| 123 With a prefix argument, edit PICK-EXPR. | 123 With a prefix argument, edit PICK-EXPR. |
| 124 The string Re: is removed from the search. | |
| 124 | 125 |
| 125 Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." | 126 Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." |
| 126 (interactive | 127 (interactive |
| 127 (list (mh-edit-pick-expr | 128 (list (mh-edit-pick-expr |
| 128 (mh-quote-pick-expr (mh-current-message-header-field 'subject))))) | 129 (mh-quote-pick-expr (mh-current-message-header-field 'subject))))) |
| 130 (setq pick-expr | |
| 131 (let ((case-fold-search t)) | |
| 132 (loop for s in pick-expr | |
| 133 collect (mh-replace-regexp-in-string "re: *" "" s)))) | |
| 129 (mh-narrow-to-header-field 'subject pick-expr)) | 134 (mh-narrow-to-header-field 'subject pick-expr)) |
| 130 | 135 |
| 131 ;;;###mh-autoload | 136 ;;;###mh-autoload |
| 132 (defun mh-narrow-to-to (&optional pick-expr) | 137 (defun mh-narrow-to-to (&optional pick-expr) |
| 133 "Limit to messages with the same \"To:\" field. | 138 "Limit to messages with the same \"To:\" field. |