From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/83648 Path: news.gmane.org!not-for-mail From: Dave Abrahams Newsgroups: gmane.emacs.gnus.general Subject: Re: Proposal: gnus-refer-article Date: Sat, 03 Aug 2013 09:24:59 -0700 Message-ID: References: <78CB1236-3178-46A5-8AAD-02542C23825B@boostpro.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1375547555 32018 80.91.229.3 (3 Aug 2013 16:32:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 3 Aug 2013 16:32:35 +0000 (UTC) Cc: "ding\@gnus.org" To: Lars Magne Ingebrigtsen Original-X-From: ding-owner+M31904@lists.math.uh.edu Sat Aug 03 18:32:36 2013 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1V5ekt-0006RF-0L for ding-account@gmane.org; Sat, 03 Aug 2013 18:32:35 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1V5edn-0000T0-93; Sat, 03 Aug 2013 11:25:15 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1V5edl-0000So-VJ for ding@lists.math.uh.edu; Sat, 03 Aug 2013 11:25:13 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1V5edh-0007uV-Mw for ding@lists.math.uh.edu; Sat, 03 Aug 2013 11:25:11 -0500 Original-Received: from mail-ye0-f177.google.com ([209.85.213.177]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1V5edf-0005k0-UC for ding@gnus.org; Sat, 03 Aug 2013 18:25:08 +0200 Original-Received: by mail-ye0-f177.google.com with SMTP id m4so665085yen.36 for ; Sat, 03 Aug 2013 09:25:02 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=20120113; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-type:x-gm-message-state; bh=DP5bPP+fMWhEzv+2qWSDohRIs6OdJoNt484vfoh9bkQ=; b=h7v/kApMSgiRnu1qu5Nto9BUlCNWGkiUDY5cgUZm14FsV50wd0bLnXpu1KVWuVoPDw RUrmRj2wasPyxCNlj6J7voytJacDL0p0pnRfayemwoK0SxXpO53ijoWbakm6cl5NZw5n 9gE64Un4zDGacj7NRmhw18XwKuw4cOm+R4PTIW0p8rIce2pudWYigcDKYFpG75SuieHO ZTPzg0uFqSdOdVf6Mx5/+XvvqFE2FqBZf58ft/q9+G5i13rnO0qN4cIfyOpMrPHKIcYc 4tEC3vbzVrGV5gFfqQcv4Fdx/nPlP78GFM9skGPvSbb5OaOx6m1NhtR5fGBLZnC8Wh9g agHQ== X-Received: by 10.236.92.197 with SMTP id j45mr7190628yhf.155.1375547101783; Sat, 03 Aug 2013 09:25:01 -0700 (PDT) Original-Received: from pluto.boostpro.com (107-219-149-247.lightspeed.sntcca.sbcglobal.net. [107.219.149.247]) by mx.google.com with ESMTPSA id s29sm21032335yhf.6.2013.08.03.09.25.00 for (version=TLSv1 cipher=RC4-SHA bits=128/128); Sat, 03 Aug 2013 09:25:00 -0700 (PDT) Original-Received: by pluto.boostpro.com (Postfix, from userid 501) id 53D51284EBDF; Sat, 3 Aug 2013 09:24:59 -0700 (PDT) In-Reply-To: (Lars Magne Ingebrigtsen's message of "Sat, 03 Aug 2013 13:24:28 +0200") User-Agent: Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.2.93 (darwin) X-Gm-Message-State: ALoCoQnl1c4dlHOylLYwQBZsjOScJu92n3cQyLYeEa75lTksBdq32GxzndNs0vOJjUz7kS3kHawq X-Spam-Score: -2.9 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:83648 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable on Sat Aug 03 2013, Lars Magne Ingebrigtsen wrote: > Dave Abrahams 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=C3=A0: --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-Allow-warping-from-non-virtual-groups.patch >From 9cdfc3029a64880efddaea0713227218508ca0d6 Mon Sep 17 00:00:00 2001 From: Dave Abrahams 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 --=-=-= Content-Type: text/plain -- Dave Abrahams --=-=-=--