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

This allows article-referral to work from an nnir group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68d83da..76d3ade 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-sum.el b/lisp/gnus-sum.el
index a8cf5e7..dda9cb3 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/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 " " ""))