From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Georg C. F. Greve" <greve@fsfeurope.org>
Subject: Re: Integration of Org mode and mairix
Date: Mon, 23 Jul 2007 01:15:31 +0200
Message-ID: <m3sl7gxc6k.fsf@cerebro.fsfeurope.org>
References: <m37ioyj0n4.fsf@cerebro.fsfeurope.org>
	<m1ps2qwof9.fsf@bertrand.carcosa.net>
	<m3ejj6f89e.fsf@cerebro.fsfeurope.org> <87r6n6ni2j.fsf@bzg.ath.cx>
	<m3lkdec8ej.fsf@cerebro.fsfeurope.org>
	<20070720160833.GD28297@atlantic.linksys.moosehall>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0066807981=="
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1ICkjm-0002Ss-Pq
	for emacs-orgmode@gnu.org; Sun, 22 Jul 2007 19:21:18 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1ICkjm-0002SL-3C
	for emacs-orgmode@gnu.org; Sun, 22 Jul 2007 19:21:18 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1ICkjl-0002SI-TA
	for emacs-orgmode@gnu.org; Sun, 22 Jul 2007 19:21:17 -0400
Received: from gadolin.fsfeurope.org ([195.176.254.152])
	by monty-python.gnu.org with esmtps
	(TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60)
	(envelope-from <greve@fsfeurope.org>) id 1ICkjl-0001xu-8e
	for emacs-orgmode@gnu.org; Sun, 22 Jul 2007 19:21:17 -0400
In-Reply-To: <20070720160833.GD28297@atlantic.linksys.moosehall> (Adam
	Spiers's message of "Fri, 20 Jul 2007 17:08:33 +0100")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org
Cc: info@hillenius.net

--===============0066807981==
Content-Type: multipart/signed;
	boundary="20070723011531+020033427599-150010639-216663029";
	micalg=pgp-sha1; protocol="application/pgp-signature"

--20070723011531+020033427599-150010639-216663029
Content-Type: multipart/mixed;
	boundary="20070723011531+0200262257311-94799814-250304825"

--20070723011531+0200262257311-94799814-250304825
Content-Transfer-Encoding: quoted-printable

On Fri, 20 Jul 2007 17:08:33 +0100
Adam Spiers <orgmode@adamspiers.org> wrote:=20

 as> Funnily enough, I implemented exactly this idea about 15 months
 as> ago, except that my implementation uses mairix (the mail indexer),
 as> and is mode-agnostic.

Thanks a lot, this is most interesting and put me on the right track.

Combining your work with that of Guy Hillenius, which he blogged at
http://www.hillenius.net/node/44 I integrated Gnus, Mairix & Org now.

The core is a patch for org.el -- this patch is still somewhat
primitive, but should not break anything and unless the new variables
are changed will not change standard behaviour:


--20070723011531+0200262257311-94799814-250304825
Content-Type: text/x-diff
Content-Disposition: attachment; filename=org.mairix.patch
Content-Transfer-Encoding: quoted-printable

=2D-- org.el.orig	2007-07-22 13:52:40.000000000 +0200
+++ org.el	2007-07-22 17:44:51.000000000 +0200
@@ -1100,6 +1100,18 @@ negates this setting for the duration of
   :group 'org-link-store
   :type 'boolean)
=20
+(defcustom org-gnus-links-prefer-mairix nil
+  "Non-nil means, `org-store-link' will create links to Mairix searches fo=
r gnus.
+When nil, traditional Gnus links (group & article) will be used for such l=
inks."
+  :group 'org-link-store
+  :type 'boolean)
+
+(defcustom org-mairix-links-prefer-threaded nil
+  "Non-nil means, that links to Mairix searches will be stored as thread s=
earches.
+   When nil, the links to Mairix searches will be stored as single message=
 searches."
+  :group 'org-link-store
+  :type 'boolean)
+
 (defgroup org-link-follow nil
   "Options concerning following links in Org-mode"
   :tag "Org Follow Link"
@@ -4141,7 +4153,7 @@ that will be added to PLIST.  Returns th
=20
 (defconst org-non-link-chars "]\t\n\r<>")
 (defconst org-link-types '("http" "https" "ftp" "mailto" "file" "news" "bb=
db" "vm"
=2D			   "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
+			   "wl" "mhe" "rmail" "mairix" "mairixt" "gnus" "shell" "info" "elisp"))
 (defconst org-link-re-with-space
   (concat
    "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
@@ -10537,14 +10549,18 @@ For file links, arg negates `org-context
 	(org-store-link-props :type "gnus" :from from :subject subject
 			      :message-id message-id :group group)
 	(setq cpltxt (org-email-link-description))
=2D	(if (org-xor arg org-usenet-links-prefer-google)
=2D	    (setq link
=2D		  (concat
=2D		   cpltxt "\n  "
=2D		   (format "http://groups.google.com/groups?as_umsgid=3D%s"
=2D			   (org-fixup-message-id-for-http message-id))))
=2D	  (setq link (org-make-link "gnus:" group
=2D				    "#" (number-to-string article))))))
+	(if org-gnus-links-prefer-mairix
+	    (if org-mairix-links-prefer-threaded
+		(setq link (org-make-link "mairixt:m:" (substring message-id 1 -1)))
+	      (setq link (org-make-link "mairix:m:" (substring message-id 1 -1))))
+	  (if (org-xor arg org-usenet-links-prefer-google)
+	      (setq link
+		    (concat
+		     cpltxt "\n  "
+		     (format "http://groups.google.com/groups?as_umsgid=3D%s"
+			     (org-fixup-message-id-for-http message-id))))
+	    (setq link (org-make-link "gnus:" group
+				    "#" (number-to-string article)))))))
=20
      ((eq major-mode 'w3-mode)
       (setq cpltxt (url-view-url t)
@@ -11105,6 +11121,12 @@ optional argument IN-EMACS is non-nil, E
        ((string=3D type "news")
 	(org-follow-gnus-link path))
=20
+       ((string=3D type "mairix")
+	(org-follow-mairix-link path))
+
+       ((string=3D type "mairixt")
+	(org-follow-mairix-link-thread path))
+
        ((string=3D type "bbdb")
 	(org-follow-bbdb-link path))
=20
@@ -11473,6 +11495,17 @@ onto the ring."
           (Info-find-node (match-string 1 name) "Top")))
     (message (concat "Could not open: " name))))
=20
+; the following two org-follow-mairix functions should be generalised=20
+; to deal with the different mail readers, right now they simply hook
+; into some primitive gnus glue
+(defun org-follow-mairix-link (string)
+  "Follow a Mairix link to its string."
+  (mairix-search string))
+
+(defun org-follow-mairix-link-thread (string)
+  "Follow a Mairix link to its string."
+  (mairix-search-thread string))
+
 (defun org-follow-gnus-link (&optional group article)
   "Follow a Gnus link to GROUP and ARTICLE."
   (require 'gnus)

--20070723011531+0200262257311-94799814-250304825


But if someone feels like improving this so it can go into mainstream
org.el, that would be great.

Right now it needs some glue in your .gnus.el


--20070723011531+0200262257311-94799814-250304825
Content-Type: application/emacs-lisp
Content-Disposition: inline

;; search function(s)
(defvar mairix-results-group "nnmaildir:mairix")
(setq nnmh-get-new-mail nil)

(defun mairix-result-evaluate (string)
  (setq mmatches (string-to-number (substring string 7 -8)))
  (if (eq mmatches 0)
      (message "Mairix returned no matches, sorry.")
    (message "Mairix returned %d matches." mmatches)
    (gnus-group-quick-select-group 0 mairix-results-group)
    (gnus-summary-reselect-current-group t t)))

(defun mairix-search (string)
  "Uses mairix to search through my mail, replacing current search results."
  (interactive "MMairix search: ")
  (mairix-result-evaluate
	(shell-command-to-string (concat "mairix " string))))

(defun mairix-add (string)
  "Uses mairix to search through my mail, adding to current search results."
  (interactive "MMairix augment search: ")
  (mairix-result-evaluate
   (shell-command-to-string (concat "mairix -a " string))))

(defun mairix-search-thread (string)
  "Uses mairix to search through my mail, replacing current search results."
  (interactive "MMairix search: ")
  (mairix-result-evaluate
	(shell-command-to-string (concat "mairix -t " string))))

(defun mairix-add-thread (string)
  "Uses mairix to search through my mail, adding to current search results."
  (interactive "MMairix augment search: ")
  (mairix-result-evaluate
	(shell-command-to-string (concat "mairix -a -t " string))))

;; index function(s)
(defun mairix-regenerate-index ()
  "Uses mairix to reindex my mail."
  (interactive)
  (message "Regenerating mairix index...")
  (shell-command-to-string "mairix -p")
  (message "Done."))

;; org customisation
(setq org-gnus-links-prefer-mairix t)
(setq org-mairix-links-prefer-threaded t)

--20070723011531+0200262257311-94799814-250304825
Content-Disposition: inline


and you should configure .mairixrc to store its search results where
Gnus stores its nnmaildir data. Mine looks like this:


--20070723011531+0200262257311-94799814-250304825
Content-Disposition: attachment

base=/home/greve
mbox=Archive/Mail/Auto/incoming/????-??:Archive/Mail/Auto/outgoing/????-??
mformat=maildir
mfolder=.nnmaildir/mairix
database=/home/greve/Tools/Gnus/MairixDB

--20070723011531+0200262257311-94799814-250304825
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable


With this you can store Org links as mairix links, including the
possibility to store links to emails that will pull the entire thread
that contains this message into the temporary buffer -- so you'll only
need to link to one and always get the entire thread.

For convenience it also makes sense to define some key bindings.

This gives as much functionality as "normal" Gnus integration otherwise,
although now it is no longer needed to know WHERE things are stored, as
mairix will find it regardless of final location.

So this solves the most urgent problem for me with the old Gnus links
and will hopefully be useful for some others, too.

On top of this some more sophisticated integration might be set up,
although http://thread.gmane.org/gmane.emacs.orgmode/1771 does not
really help me too much, as I have multiple agenda files in which I like
to store things.

Regards,
Georg

=2D-=20
Georg C. F. Greve                                 <greve@fsfeurope.org>
Free Software Foundation Europe	                 (http://fsfeurope.org)
Join the Fellowship and protect your freedom!     (http://www.fsfe.org)
What everyone should know about DRM                   (http://DRM.info)

--20070723011531+0200262257311-94799814-250304825--

--20070723011531+020033427599-150010639-216663029
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iQCVAwUBRqPlFCk9sUy32wQcAQJmcwP/WTmuxDh5Z5wa4wIy9Vit3WHISSayAl4N
ezMa3Kt1WE4U5zmiBDpl8XXneLtx45laqmJshn51KJVVe3gDMFn4+QN3UaZEn4sB
koZt/kUhZkT9qzjiWZzb32G6+HWY69PjtxLW23X/lUXvQHSkkxZdIMU3yFl0Ddkh
QHY3f2z59gM=
=2Ho/
-----END PGP SIGNATURE-----
--20070723011531+020033427599-150010639-216663029--



--===============0066807981==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

--===============0066807981==--