emacs-commit
[Top][All Lists]
Advanced

[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 ""))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]