From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tommy Lindgren <tommy.lindgren@gmail.com>
Subject: [PATCH] To-header support in org-gnus-store-link
Date: Mon, 11 Aug 2008 22:12:54 +0200
Message-ID: <87ljz38g55.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
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 1KSdlE-0007oH-86
	for emacs-orgmode@gnu.org; Mon, 11 Aug 2008 16:13:00 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1KSdlD-0007mN-64
	for emacs-orgmode@gnu.org; Mon, 11 Aug 2008 16:12:59 -0400
Received: from [199.232.76.173] (port=40138 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1KSdlC-0007m7-Tg
	for emacs-orgmode@gnu.org; Mon, 11 Aug 2008 16:12:59 -0400
Received: from ch-smtp02.sth.basefarm.net ([80.76.149.213]:43561)
	by monty-python.gnu.org with esmtps
	(TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60)
	(envelope-from <tommy.lindgren@gmail.com>) id 1KSdlC-00065n-M1
	for emacs-orgmode@gnu.org; Mon, 11 Aug 2008 16:12:58 -0400
Received: from c83-250-92-140.bredband.comhem.se ([83.250.92.140]:44887
	helo=overjoy) by ch-smtp02.sth.basefarm.net with esmtp (Exim 4.68)
	(envelope-from <tommy.lindgren@gmail.com>) id 1KSdlA-0004HN-8L
	for emacs-orgmode@gnu.org; Mon, 11 Aug 2008 22:12:56 +0200
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

Hi,

Patch below adds support for the To-header in org-gnus-store-link. This
makes %:toname-escapes in remember templates work when invoked from
Gnus. (I have a special template I use when realize I have to finish
a reply later.)

Haven't written many lines of elisp, not sure if I'm retrieving the
header the right way. The code works for me.


diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index e1d8232..db78afe 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -87,10 +87,12 @@ negates this setting for the duration of the
command."
           (from (mail-header-from header))
           (message-id (mail-header-id header))
           (date (mail-header-date header))
+          (extra (mail-header-extra header))
+          (to (cdr (assoc 'To extra)))
           (subject (gnus-summary-subject-string))
           desc link)
       (org-store-link-props :type "gnus" :from from :subject subject
-                           :message-id message-id :group group)
+                           :message-id message-id :group group :to to)
       (setq desc (org-email-link-description))
       (if (org-xor current-prefix-arg org-usenet-links-prefer-google)
          (setq link


BTW, org-mode is awesome.

Regards,
Tommy