[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-limit.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-limit.el ChangeLog |
Date: |
Wed, 01 Mar 2006 06:20:00 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/03/01 06:19:59
Modified files:
lisp/mh-e : mh-limit.el ChangeLog
Log message:
(mh-narrow-to-subject): Remove Re: string from subject so that pick
can find originating message (closes SF #1438369).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-limit.el.diff?tr1=1.4&tr2=1.5&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.166&tr2=1.167&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.166 emacs/lisp/mh-e/ChangeLog:1.167
--- emacs/lisp/mh-e/ChangeLog:1.166 Wed Mar 1 05:33:18 2006
+++ emacs/lisp/mh-e/ChangeLog Wed Mar 1 06:19:59 2006
@@ -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.
Index: emacs/lisp/mh-e/mh-limit.el
diff -u emacs/lisp/mh-e/mh-limit.el:1.4 emacs/lisp/mh-e/mh-limit.el:1.5
--- emacs/lisp/mh-e/mh-limit.el:1.4 Wed Mar 1 05:33:18 2006
+++ emacs/lisp/mh-e/mh-limit.el Wed Mar 1 06:19:58 2006
@@ -121,11 +121,16 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-limit.el ChangeLog,
Bill Wohler <=