From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: gnus: link annoyance Date: Tue, 07 Jan 2014 10:00:29 +0100 Message-ID: <87iotwp3o2.fsf@bzg.ath.cx> References: <87zjn9w79w.fsf@iro.umontreal.ca> <874n5hca77.fsf@pank.eu> <87ha9g2w1p.fsf@iro.umontreal.ca> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:42378) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W0SWd-0006lr-IF for emacs-orgmode@gnu.org; Tue, 07 Jan 2014 04:00:44 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1W0SWY-0008U2-9T for emacs-orgmode@gnu.org; Tue, 07 Jan 2014 04:00:39 -0500 Received: from mail-wi0-x231.google.com ([2a00:1450:400c:c05::231]:53982) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W0SWY-0008Tv-1j for emacs-orgmode@gnu.org; Tue, 07 Jan 2014 04:00:34 -0500 Received: by mail-wi0-f177.google.com with SMTP id cc10so404932wib.10 for ; Tue, 07 Jan 2014 01:00:32 -0800 (PST) In-Reply-To: <87ha9g2w1p.fsf@iro.umontreal.ca> (=?iso-8859-1?Q?=22Fran=E7o?= =?iso-8859-1?Q?is?= Pinard"'s message of "Tue, 07 Jan 2014 00:36:02 -0500") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: =?iso-8859-1?Q?Fran=E7ois?= Pinard Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit Hi François, François Pinard writes: > One possibility (untested, so I'm not sure) is that when following a > "gnus:" link, Org could use something like: > > (let ((gnus-mark-article-hook nil)) > (ACCESS-THE-gnus:-LINK)) I attach a patch to see if it does what you want. This is from a quick exploration, and while testing it, somes links to gwene.org blog entries were throwing a 501 error message (but still display the article.) Take it as a basis for clarifying the discussion, not really a solution right now! --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=org-gnus-display-article.patch diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index e368a14..968c556 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -262,7 +262,7 @@ If `org-store-link' was called with a prefix arg the meaning of (cond ((eq backend 'nndoc) (if (gnus-group-read-group t nil group) - (gnus-summary-goto-article article nil t) + (gnus-summary-display-article article) (message "Couldn't follow gnus link. %s" "The summary couldn't be opened."))) (t @@ -283,7 +283,7 @@ If `org-store-link' was called with a prefix arg the meaning of (1+ articles) (* articles 2)))) (if group-opened - (gnus-summary-goto-article article nil t) + (gnus-summary-display-article article) (message "Couldn't follow gnus link. %s" "The summary couldn't be opened.")))))) (quit (message "Couldn't follow gnus link. %s" --=-=-= Content-Type: text/plain -- Bastien --=-=-=--