Fix bug in org-gnus.el

Patch provided by fengli AT gmail DOT com, forwarded by Tassilo Horn

lisp/ChangeLog

@@ -1,3 +1,9 @@
+2009-06-05  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* org-gnus.el (org-gnus-store-link): Fix bug where
+	`org-gnus-store-link' used wrong subject when called in an article
+	buffer.  Patch provided by fengli AT gmail DOT com.
+
 2009-06-04  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-exp.el (org-export-format-source-code-or-example): Remember

lisp/org-gnus.el

@@ -133,7 +133,9 @@ If `org-store-link' was called with a prefix arg the meaning of
 	   (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)