gnus-sum.el (gnus-summary-refer-article): Warp to article. This allows article-refer...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df6a5fcd95c7144a9f5ecbc7926c12abed171d14..e13d2d594ca7d57dbfb381f8cd832ed92e9f4d02 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-05  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * gnus-sum.el (gnus-summary-refer-article): Warp to article. This
+       allows article-referral to work from an nnir group.
+
 2011-08-04  Andrew Cohen  <cohen@andy.bu.edu>
 
        * gnus.el (registry-ignore): Add nnir groups to the ignore-list.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index a8cf5e7c4275d235456eb92c2bbc7a2e3de407f3..dda9cb3fbf61b75cf1eb7084474d3a9fa30c0efb 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9037,6 +9037,7 @@ non-numeric or nil fetch the number specified by the
 (defun gnus-summary-refer-article (message-id)
   "Fetch an article specified by MESSAGE-ID."
   (interactive "sMessage-ID: ")
+  (gnus-warp-to-article)
   (when (and (stringp message-id)
             (not (zerop (length message-id))))
     (setq message-id (gnus-replace-in-string message-id " " ""))