From d747b53feb3e403571c724cc5add1e5e354f4408 Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Fri, 5 Aug 2011 23:29:17 +0000 Subject: [PATCH] gnus-sum.el (gnus-summary-refer-article): Warp to article. This allows article-referral to work from an nnir group. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-sum.el | 1 + 2 files changed, 6 insertions(+) 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 " " "")) -- 2.39.2