From: Andrew Cohen Date: Fri, 5 Aug 2011 23:29:17 +0000 (+0000) Subject: gnus-sum.el (gnus-summary-refer-article): Warp to article. This allows article-refer... X-Git-Tag: emacs-pretest-24.0.90~104^2~124^2~64^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d747b53feb3e403571c724cc5add1e5e354f4408;p=emacs.git gnus-sum.el (gnus-summary-refer-article): Warp to article. This allows article-referral to work from an nnir group. --- 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 + + * 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 * 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 " " ""))