From 9cdfc3029a64880efddaea0713227218508ca0d6 Mon Sep 17 00:00:00 2001 From: Dave Abrahams Date: Sat, 3 Aug 2013 09:18:28 -0700 Subject: [PATCH] Allow warping from non-virtual groups --- lisp/gnus-int.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 6aa874f..c067b31 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -582,18 +582,17 @@ This is the string that Gnus uses to identify the group." (gnus-group-method group))) (defun gnus-warp-to-article () - "Jump from an article in a virtual group to the article in its real group. -Does nothing in a real group." + "Jump from an article in a group where it did not originate to +the article in its original group." (interactive) - (when (gnus-virtual-group-p gnus-newsgroup-name) - (let ((gnus-command-method - (gnus-find-method-for-group gnus-newsgroup-name))) - (or - (when (gnus-check-backend-function - 'warp-to-article (car gnus-command-method)) - (funcall (gnus-get-function gnus-command-method 'warp-to-article))) - (and (bound-and-true-p gnus-registry-enabled) - (gnus-try-warping-via-registry)))))) + (let ((gnus-command-method + (gnus-find-method-for-group gnus-newsgroup-name))) + (or + (when (gnus-check-backend-function + 'warp-to-article (car gnus-command-method)) + (funcall (gnus-get-function gnus-command-method 'warp-to-article))) + (and (bound-and-true-p gnus-registry-enabled) + (gnus-try-warping-via-registry))))) (defun gnus-request-head (article group) "Request the head of ARTICLE in GROUP." -- 1.8.3.1