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: Tue, 31 Jul 2007 19:19:12 +0200
Message-ID: <m3wswgze27.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>
	<m3sl7gxc6k.fsf@cerebro.fsfeurope.org> <87k5spsw81.fsf@bzg.ath.cx>
	<m3odhuc7le.fsf@cerebro.fsfeurope.org> <87ejip7ud8.fsf@bzg.ath.cx>
	<876440tsul.fsf@presario.homelinux.org>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0020512823=="
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 1IFvO4-0005h8-BC
	for emacs-orgmode@gnu.org; Tue, 31 Jul 2007 13:20:00 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IFvO3-0005gN-IP
	for emacs-orgmode@gnu.org; Tue, 31 Jul 2007 13:19:59 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IFvO3-0005fz-Bj
	for emacs-orgmode@gnu.org; Tue, 31 Jul 2007 13:19:59 -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 1IFvO2-0003Jf-Oi
	for emacs-orgmode@gnu.org; Tue, 31 Jul 2007 13:19:59 -0400
In-Reply-To: <876440tsul.fsf@presario.homelinux.org> (Xiao-Yong Jin's message
	of "Tue, 31 Jul 2007 12:56:18 -0400")
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

--===============0020512823==
Content-Type: multipart/signed;
	boundary="20070731191912+0200-206097866-530113447528953";
	micalg=pgp-sha1; protocol="application/pgp-signature"

--20070731191912+0200-206097866-530113447528953
Content-Type: multipart/mixed;
	boundary="20070731191912+0200-60806848-5947558958766520"

--20070731191912+0200-60806848-5947558958766520
Content-Transfer-Encoding: quoted-printable

On Tue, 31 Jul 2007 12:56:18 -0400
Xiao-Yong Jin <xj2106@columbia.edu> wrote:=20

 xj> Sorry, but I missed the thread.  Where can I grab the code for
 xj> support in org-mode?

Since there were small changes, allow me to repost.

This is a patch against org.el that incorporates mairix into org.el:

--20070731191912+0200-60806848-5947558958766520
Content-Type: text/x-diff
Content-Disposition: attachment; filename=org.el.mairix.patch
Content-Transfer-Encoding: quoted-printable

=2D-- org.el.orig	2007-07-22 13:52:40.000000000 +0200
+++ org.el	2007-07-30 15:45:10.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,23 @@ 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."
+  (require 'gnus)
+  (funcall (cdr (assq 'gnus org-link-frame-setup)))
+  (if gnus-other-frame-object (select-frame gnus-other-frame-object))
+  (mairix-search string))
+
+(defun org-follow-mairix-link-thread (string)
+  "Follow a Mairix link to its string."
+  (require 'gnus)
+  (funcall (cdr (assq 'gnus org-link-frame-setup)))
+  (if gnus-other-frame-object (select-frame gnus-other-frame-object))
+  (mairix-search-thread string))
+
 (defun org-follow-gnus-link (&optional group article)
   "Follow a Gnus link to GROUP and ARTICLE."
   (require 'gnus)

--20070731191912+0200-60806848-5947558958766520


The patch should be safe to apply in that it should not break anything.

For it to make sense you'll need to glue it into gnus with additional
code, here is the code I use:


--20070731191912+0200-60806848-5947558958766520
Content-Type: application/emacs-lisp
Content-Disposition: attachment
Content-Transfer-Encoding: quoted-printable


;; search function(s)
(defvar mairix-results-group "nnmaildir:mairix")

(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 threaded 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 threaded 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)

;; GTD integration

;; keep last link for sent mail ready for insertion
(defvar org-last-sent-mail-link nil
  "Contains the link stored with `org-link-for-sent-mail-hook'.")

(defun org-link-for-sent-mail-hook ()
  "Keeps a mairix link ready for the last message sent."
  (setq org-last-sent-mail-link
    (substring (message-fetch-field "Message-Id") 1 -1)))

(defun org-insert-link-to-last-sent-mail (description)
  (interactive "MDescription: ")
  (insert (concat "[[mairixt:m:" org-last-sent-mail-link "][" description "=
]]")))

(add-hook 'message-sent-hook 'org-link-for-sent-mail-hook)

(define-key org-mode-map [(control ?c)(control shift ?l)] 'org-insert-link-=
to-last-sent-mail)


--20070731191912+0200-60806848-5947558958766520
Content-Disposition: inline


Beware: This part is a cludge. It works for me, but YMMV.

It allows me to store links the normal way (C-c l) as mairix links and
insert them into my Org files normally (C-c C-l). I can also always
insert the latest SENT mail into my Org files by doing (C-c C-S-l).

Please consider all my stuff under GNU GPL v2 or later (v3 explicitly
allowed) so if someone wants to grab this and turn it into a "clean"
solution, that would be greatly appreciated.

Regards,
Georg


P.S. For completeness, and to make your life easier in trying this, this
is my .mairixrc file:

--20070731191912+0200-60806848-5947558958766520
Content-Disposition: attachment; filename=.mairixrc

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

--20070731191912+0200-60806848-5947558958766520
Content-Transfer-Encoding: quoted-printable


P.P.S. In theory you can also use other backends to access mairix search
results, but I found nnmaildir to be the fastest by far.

=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)

--20070731191912+0200-60806848-5947558958766520--

--20070731191912+0200-206097866-530113447528953
Content-Type: application/pgp-signature

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

iQCVAwUBRq9vECk9sUy32wQcAQLrYwP+NMFAqvaK5zyp7LeUUxx1tYSNtEIvw7Ok
35rf85XlF37+Bu1ZTdguTfN5f49S7I/MEKm3xY6VhAKi/9gBRcY9IuXFrDZ9+YkI
YDC1Mlzcb3EX+oQ7yyFZU9jNRZ/78SMxPByCI2Cmpc4IUcYV1rYyJ1mBhveRc7I0
fMWiOET8uVg=
=fTUE
-----END PGP SIGNATURE-----
--20070731191912+0200-206097866-530113447528953--



--===============0020512823==
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

--===============0020512823==--