diff --git a/ORGWEBPAGE/Changes.org b/ORGWEBPAGE/Changes.org index 2a72c9bb1..8fa134e9d 100644 --- a/ORGWEBPAGE/Changes.org +++ b/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. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a99edbef8..6479641e2 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-09-03 Carsten Dominik + * 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 diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index e1d823213..db78afee0 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