Re: Proposal: gnus-refer-article

[Dave Abrahams <dave@boostpro.com>]

[-- Attachment #1: Type: text/plain, Size: 520 bytes --]


on Sat Aug 03 2013, Lars Magne Ingebrigtsen <larsi-AT-gnus.org> wrote:

> Dave Abrahams <dave@boostpro.com> writes:
>
>>> But why?  If you have a (say) nnml group that contains an article you've
>>> copied from somewhere else, why shouldn't you be allowed to warp
>>> somewhere else?
>>
>> I don't know why. I've tried several times to get you to accept the
>> patch that lifts that restriction.
>
> Since nobody else seems to have any objections, please re-send a patch
> and I'll apply it.

voilà:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Allow-warping-from-non-virtual-groups.patch --]
[-- Type: text/x-patch, Size: 1721 bytes --]

From 9cdfc3029a64880efddaea0713227218508ca0d6 Mon Sep 17 00:00:00 2001
From: Dave Abrahams <dave@boostpro.com>
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


[-- Attachment #3: Type: text/plain, Size: 19 bytes --]


-- 
Dave Abrahams