From b27a1bd53ac62bad378cbafcfb594ac37357bbc6 Mon Sep 17 00:00:00 2001 From: Dave Abrahams Date: Mon, 5 Aug 2013 14:15:37 +0000 Subject: [PATCH] gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we can create nndoc groups that excerpt other groups --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-int.el | 22 +++++++++++----------- 2 files changed, 16 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2164fd96b46..2ae70791c16 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-08-05 Dave Abrahams + + * gnus-int.el (gnus-warp-to-article): Allow warping in all groups so + that we can create nndoc groups that excerpt other groups. + 2013-08-02 Lars Magne Ingebrigtsen * gnus-delay.el (gnus-delay-article): Fix typo. diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 6aa874f0347..f0cf0daed01 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -582,18 +582,18 @@ 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." + "Look up the current article in the group where it originated. +This command only makes sense for groups shows articles gathered +from other groups -- for instance, search results and the like." (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." -- 2.39.2