Mercurial > emacs
comparison lisp/mh-e/mh-search.el @ 95094:8b5aa7cf7c71
(mh-mairix-regexp-builder): Add additional items to search string to
support org-mode (closes SF #1965704).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 19 May 2008 01:54:32 +0000 |
| parents | 90c9ebd43589 |
| children | 9873b6187c96 |
comparison
equal
deleted
inserted
replaced
| 95093:e3632d427a21 | 95094:8b5aa7cf7c71 |
|---|---|
| 1086 (push | 1086 (push |
| 1087 (concat | 1087 (concat |
| 1088 (cond ((eq (car pair) 'to) "t:") | 1088 (cond ((eq (car pair) 'to) "t:") |
| 1089 ((eq (car pair) 'from) "f:") | 1089 ((eq (car pair) 'from) "f:") |
| 1090 ((eq (car pair) 'cc) "c:") | 1090 ((eq (car pair) 'cc) "c:") |
| 1091 ((eq (car pair) 'to-or-cc) "tc:") | |
| 1092 ((eq (car pair) 'address) "a:") | |
| 1091 ((eq (car pair) 'subject) "s:") | 1093 ((eq (car pair) 'subject) "s:") |
| 1094 ((eq (car pair) 'subject-or-body) "bs:") | |
| 1092 ((eq (car pair) 'date) "d:") | 1095 ((eq (car pair) 'date) "d:") |
| 1096 ((eq (car pair) 'message-id) "m:") | |
| 1097 ((eq (car pair) 'message-body) "b:") | |
| 1098 ((eq (car pair) 'message-size) "z:") | |
| 1099 ((eq (car pair) 'message-attachment-name) "n:") | |
| 1100 ((eq (car pair) 'message-flags) "F:") | |
| 1093 (t "")) | 1101 (t "")) |
| 1094 (let ((sop (cdr (mh-mairix-convert-to-sop* (cdr pair)))) | 1102 (let ((sop (cdr (mh-mairix-convert-to-sop* (cdr pair)))) |
| 1095 (final "")) | 1103 (final "")) |
| 1096 (dolist (conjunct sop) | 1104 (dolist (conjunct sop) |
| 1097 (let ((expr-list (cdr conjunct)) | 1105 (let ((expr-list (cdr conjunct)) |