[Emacs-diffs] trunk r113704: gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we can create nndoc groups that excerpt other groups

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113704
revision-id: address@hidden
parent: address@hidden
author: Dave Abrahams <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-08-05 14:15:37 +0000
message:
  gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we 
can create nndoc groups that excerpt other groups
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-int.el          gnusint.el-20091113204419-o5vbwnq5f7feedwu-1121

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-08-02 13:34:22 +0000
+++ b/lisp/gnus/ChangeLog       2013-08-05 14:15:37 +0000
@@ -1,3 +1,8 @@
+2013-08-05  Dave Abrahams  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-delay.el (gnus-delay-article): Fix typo.

=== modified file 'lisp/gnus/gnus-int.el'
--- a/lisp/gnus/gnus-int.el     2013-08-01 22:58:40 +0000
+++ b/lisp/gnus/gnus-int.el     2013-08-05 14:15:37 +0000
@@ -582,18 +582,18 @@
    (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."