Re: mh-e, mairix and org-mode

[Nick Dokos <nicholas.dokos@hp.com>]

Hi Bill,

You have probably forgotten the email that I am replying to (it was
back in December! I found it in the mh-e-users archives at

https://sourceforge.net/mailarchive/forum.php?thread_name=18867.1196806703%40localhost&forum_name=mh-e-users

in case you haven't kept it).

Briefly, Pete Phillips was trying to get org-mode links to email
messages (kept in mh folders) working, but was getting type mismatches.
Bastien Guerry (iirc) had suggested the workaround that Pete included
in his message.

I debugged the problem a bit and I found out that there are problems on
both sides of the fence: mh-e's mairix interface does not handle
message-IDs properly (as Bastien had suggested) and I think org-mode's
handling of mh-e searches (other than the pick case) is wrong.

I am going to send a patch to the org-mode mailing list about the latter
problem in just a little bit, but it depends on the following mh-e
patch, so I'd appreciate it very much if you could apply it: the mh-e
patch extends the capabilities of mh-mairix-regexp-builder to include
several search options (including the message-id "m:" one) that are
supported by the current version (0.21) of mairix. It only affects the
mairix interface, so it's rather unlikely to break anything else and
since it extends the current interface, it should be backwards
compatible as well.

I've been running with this plus the org-mode patch for a couple of
weeks. Thanks to Pete Phillips for taking time out to do some testing as
well.

Thanks very much,
Nick

--- a/lisp/mh-e/mh-search.el	2008-05-04 16:14:30.000000000 -0400
+++ b/lisp/mh-e/mh-search.el	2008-05-04 16:22:31.000000000 -0400
@@ -1090,8 +1090,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 ""))