mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
can find originating message (closes SF #1438369).
This commit is contained in:
Bill Wohler 2006-03-01 06:19:59 +00:00
parent 052df3346e
commit 66b265f5df
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mh-e/ChangeLog
View File

@ -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.

5
lisp/mh-e/mh-limit.el
View File

@ -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