From: Bill Wohler <wohler@newt.com>
Date: Mon, 19 May 2008 01:54:32 +0000 (+0000)
Subject: (mh-mairix-regexp-builder): Add additional items to search string to
X-Git-Tag: emacs-pretest-23.0.90~5444
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=770ea979d41aadb09180b785fecbb6fcf652b2e2;p=emacs.git

(mh-mairix-regexp-builder): Add additional items to search string to
support org-mode (closes SF #1965704).
---

diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index f0674f9b440..2750c503f7c 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1088,8 +1088,16 @@ REGEXP-LIST is an alist of fields and values."
           (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 ""))