org-gnus.el returns incorrect message subject in article mode

[finalpatch <fengli@gmail.com>]

Hi group,

I found that running org-store-link inside a gnus article buffer gives
out incorrect message subject. This is because in gnus-article-mode the
gnus-summary-subject-string function returns the subject of the next
message instead of the current one. The following patch fixes this
problem for me.

--- c:\users\fengl\code\emacs\lisp\org\org-gnus.el	Tue Feb 24 09:05:12 2009
+++ c:\emacs\lisp\org\org-gnus.el	Fri Jun  5 11:02:31 2009
@@ -133,7 +133,9 @@
 	   (to (mail-header 'to header))
 	   (newsgroups (mail-header 'newsgroups header))
 	   (x-no-archive (mail-header 'x-no-archive header))
-	   (subject (gnus-summary-subject-string))
+	   (subject (if (eq major-mode 'gnus-article-mode)
+                    (message-fetch-field "subject")
+                  (gnus-summary-subject-string)))
 	   desc link)
       (org-store-link-props :type "gnus" :from from :subject subject
 			    :message-id message-id :group group :to to)

-- 
finalpatch