[gnus git] branch master updated: m0-7-205-ga4ddd62 =1= * gnus-int.el (gnus-warp-to-article): Allow warping in all groups so that we can create nndoc groups that excerpt other groups.

       via  a4ddd623c2bdaafc9c655c29aebe90dc9fda30e7 (commit)
      from  ebe4472a4be50e76d739f613d6452c8f6858ba8a (commit)


- Log -----------------------------------------------------------------
commit a4ddd623c2bdaafc9c655c29aebe90dc9fda30e7
Author: Dave Abrahams <[email protected]>
Date:   Mon Aug 5 04:15:56 2013 +0200

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8a9b35..c262df8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-05  Dave Abrahams  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-delay.el (gnus-delay-article): Fix typo.
diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 6aa874f..f0cf0da 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -582,10 +582,10 @@ 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
@@ -593,7 +593,7 @@ Does nothing in a real group."
               '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))))))
+          (gnus-try-warping-via-registry)))))
 
 (defun gnus-request-head (article group)
   "Request the head of ARTICLE in GROUP."

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-int.el |   22 +++++++++++-----------
 2 files changed, 16 insertions(+), 11 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project