diff options
| author | Bill Wohler <wohler@newt.com> | 2006-03-01 05:33:18 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-03-01 05:33:18 +0000 |
| commit | 052df3346e679576ae01dfb54080a3bdb787dde1 (patch) | |
| tree | 6ab8ae308de38e62c5606def502f682e98514fe4 /lisp/mh-e/mh-limit.el | |
| parent | adc881cc69e20d5f1662116144d49fb0dc78c2c7 (diff) | |
| download | emacs-052df3346e679576ae01dfb54080a3bdb787dde1.tar.gz | |
* mh-limit.el (mh-narrow-to-cc, mh-narrow-to-from)
(mh-narrow-to-subject, mh-narrow-to-to): Fix inability to narrow to
subjects with special characters by quoting regular expression
characters in pick expression derived from existing subjects and other
fields (closes SF #1432548).
* mh-utils.el (mh-pick-regexp-chars, mh-quote-pick-expr): New variable
and function for quoting pick regular expression characters (closes SF
#1432548).
Diffstat (limited to 'lisp/mh-e/mh-limit.el')
| -rw-r--r-- | lisp/mh-e/mh-limit.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-limit.el b/lisp/mh-e/mh-limit.el index 7a90b890cad..f2609263b91 100644 --- a/lisp/mh-e/mh-limit.el +++ b/lisp/mh-e/mh-limit.el @@ -89,7 +89,8 @@ With a prefix argument, edit PICK-EXPR. Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." (interactive - (list (mh-edit-pick-expr (mh-current-message-header-field 'cc)))) + (list (mh-edit-pick-expr + (mh-quote-pick-expr (mh-current-message-header-field 'cc))))) (mh-narrow-to-header-field 'cc pick-expr)) ;;;###mh-autoload @@ -99,7 +100,8 @@ With a prefix argument, edit PICK-EXPR. Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." (interactive - (list (mh-edit-pick-expr (mh-current-message-header-field 'from)))) + (list (mh-edit-pick-expr + (mh-quote-pick-expr (mh-current-message-header-field 'from))))) (mh-narrow-to-header-field 'from pick-expr)) ;;;###mh-autoload @@ -122,7 +124,8 @@ With a prefix argument, edit PICK-EXPR. Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." (interactive - (list (mh-edit-pick-expr (mh-current-message-header-field 'subject)))) + (list (mh-edit-pick-expr + (mh-quote-pick-expr (mh-current-message-header-field 'subject))))) (mh-narrow-to-header-field 'subject pick-expr)) ;;;###mh-autoload @@ -132,7 +135,8 @@ With a prefix argument, edit PICK-EXPR. Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command." (interactive - (list (mh-edit-pick-expr (mh-current-message-header-field 'to)))) + (list (mh-edit-pick-expr + (mh-quote-pick-expr (mh-current-message-header-field 'to))))) (mh-narrow-to-header-field 'to pick-expr)) |