From 770ea979d41aadb09180b785fecbb6fcf652b2e2 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Mon, 19 May 2008 01:54:32 +0000 Subject: [PATCH] (mh-mairix-regexp-builder): Add additional items to search string to support org-mode (closes SF #1965704). --- lisp/mh-e/mh-search.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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 "")) -- 2.39.2