DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
	h=mime-version:in-reply-to:references:date:message-id:subject:from:to
	:content-type:content-transfer-encoding;
	b=DcXqgBHrr9dtWwu93wOIKGPBnGLQVFLOUFM3jBKKjU+CrvpJ+KfJNPQDZykpoPLCGX
	ZhiWe4PGYjwpT9rkwChY1Ojk/guLcsiYlEWhRRsimpBcxYPoOub7NKOEXhneEld6jDHr
	h64+UTqnFYN4t7FzTDG0QNg0YxiDTAiTWOq6o=
MIME-Version: 1.0
In-Reply-To: <87zl6cl595.fsf@thinkpad.tsdh.de>
References: <87zl6cl595.fsf@thinkpad.tsdh.de>
Date: Sat, 20 Nov 2010 20:12:41 -0500
Message-ID: <AANLkTimrF2OXzJFNfhrJ-rA44FRDRw_7PKMGD3Kec2D4@mail.gmail.com>
Subject: Re: [notmuch] Snippet to jump to message in Gnus from notmuch-show
	buffer
From: Brett Viren <brett.viren@gmail.com>
To: notmuch@notmuchmail.org
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Precedence: list

Hi Tassilo,

I adapted your code for my use and found it was failing due to some
stray double-quotes.  I'm using notmuch from git so maybe these quotes
were added in the year since you first posted your idea.

See below for the simple fix:

On Tue, Nov 24, 2009 at 3:02 AM, Tassilo Horn <tassilo@member.fsf.org> wrot=
e:
> --8<---------------cut here---------------start------------->8---
> (require 'notmuch)
>
> (defun th-notmuch-file-to-group (file)
> =A0"Calculate the Gnus group name from the given file name.
>
> Example:
>
> =A0IN: /home/horn/Mail/Dovecot/uni/INBOX/dbox-Mails/u.4075
> =A0OUT: nnimap+Uni:INBOX"
> =A0(concat "nnimap+"
> =A0 =A0 =A0 =A0 =A0(replace-regexp-in-string
> =A0 =A0 =A0 =A0 =A0 "^\\([^/]+\\)/" "\\1:"
> =A0 =A0 =A0 =A0 =A0 (replace-regexp-in-string
> =A0 =A0 =A0 =A0 =A0 =A0"/dbox-Mails/.*" ""
> =A0 =A0 =A0 =A0 =A0 =A0(replace-regexp-in-string
> =A0 =A0 =A0 =A0 =A0 =A0 "/home/horn/Mail/Dovecot/" "" file)))))
>
> (defun th-notmuch-goto-message-in-gnus ()
> =A0"Open a summary buffer containing the current notmuch
> article."
> =A0(interactive)
> =A0(let ((group (th-notmuch-file-to-group (notmuch-show-get-filename)))
> =A0 =A0 =A0 =A0(message-id (replace-regexp-in-string
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 "^id:" "" (notmuch-show-get-messa=
ge-id))))

I needed to define the message-id like:

       (message-id (replace-regexp-in-string
		    "\"" ""
		    (replace-regexp-in-string
                    "^id:" "" (notmuch-show-get-message-id)))))


> =A0 =A0(message "G: %s, mid: %s" group message-id)
> =A0 =A0(if (and group message-id)
> =A0 =A0 =A0 =A0(org-gnus-follow-link group message-id)
> =A0 =A0 =A0(message "Couldn't get relevant infos for switching to Gnus.")=
)))
>
> (define-key notmuch-show-mode-map (kbd "C-c C-c") 'th-notmuch-goto-messag=
e-in-gnus)
> --8<---------------cut here---------------end--------------->8---

Regards and thanks for this handy code!
-Brett.