gnus-sum.el (gnus-summary-refer-article): Warp to article. This allows article-referral to work from an nnir group.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df6a5fcd95c..e13d2d594ca 100644
--- 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 a8cf5e7c427..dda9cb3fbf6 100644
--- 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 " " ""))