Implement the :to and :toname keywords for gnus links.

Patch from Gregory Sullivan.

ORGWEBPAGE/Changes.org

@@ -16,7 +16,8 @@
 :END:
 
 ** Details
-
+*** Remember templates for gnus links can now use the :to escape.
+    Thanks to Tommy Lindgren for a patch to this effect.
 *** The file specification in a remember template may now be a function
     Thanks to Gregory Sullivan for a patch to this effect.
 

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-09-03  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-gnus.el (org-gnus-store-link): Support for :to information
+	in gnus links.
+
 	* org-exp.el (org-export-as-html): Fixed typo in creator
 	information.
 	(org-export-protect-examples): New parameter indent.  Insert extra

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