[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-search.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-search.el |
Date: |
Mon, 19 May 2008 01:54:32 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Bill Wohler <wohler> 08/05/19 01:54:32
Modified files:
lisp/mh-e : mh-search.el
Log message:
(mh-mairix-regexp-builder): Add additional items to search string to
support org-mode (closes SF #1965704).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-search.el?cvsroot=emacs&r1=1.19&r2=1.20
Patches:
Index: mh-search.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-search.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- mh-search.el 6 May 2008 03:56:48 -0000 1.19
+++ mh-search.el 19 May 2008 01:54:32 -0000 1.20
@@ -1088,8 +1088,16 @@
(cond ((eq (car pair) 'to) "t:")
((eq (car pair) 'from) "f:")
((eq (car pair) 'cc) "c:")
+ ((eq (car pair) 'to-or-cc) "tc:")
+ ((eq (car pair) 'address) "a:")
((eq (car pair) 'subject) "s:")
+ ((eq (car pair) 'subject-or-body) "bs:")
((eq (car pair) 'date) "d:")
+ ((eq (car pair) 'message-id) "m:")
+ ((eq (car pair) 'message-body) "b:")
+ ((eq (car pair) 'message-size) "z:")
+ ((eq (car pair) 'message-attachment-name) "n:")
+ ((eq (car pair) 'message-flags) "F:")
(t ""))
(let ((sop (cdr (mh-mairix-convert-to-sop* (cdr pair))))
(final ""))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-search.el,
Bill Wohler <=