Commit b27a1bd5 authored by Dave Abrahams's avatar Dave Abrahams Committed by Katsumi Yamaoka
Browse files

gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we can...

gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we can create nndoc groups that excerpt other groups
parent 57fedd9f
2013-08-05 Dave Abrahams <dave@boostpro.com>
* 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 <larsi@gnus.org>
 
* gnus-delay.el (gnus-delay-article): Fix typo.
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment