From: Andrew Cohen <cohen@andy.bu.edu>
Date: Fri, 5 Aug 2011 12:38:23 +0000 (-0400)
Subject: * gnus-sum.el (gnus-summary-refer-article): Warp to article.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=43cdbaa607cf52cfaf0cd70209c1409544cf5617;p=gnus

* 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 68d83da97..76d3adedb 100644
--- 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 a8cf5e7c4..dda9cb3fb 100644
--- 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 " " ""))