From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: Re: [PATCH] Following gnus links: Don't mark unrelated articles read Date: Sun, 22 Apr 2012 11:29:15 -0500 Message-ID: <874nsbenms.fsf@fastmail.fm> References: <878vhnenq5.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:39542) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SLzf6-0001mn-Va for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:29:22 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SLzf5-0004pZ-AJ for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:29:20 -0400 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:59621) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SLzf5-0004pU-1t for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:29:19 -0400 Received: from compute6.internal (compute6.nyi.mail.srv.osa [10.202.2.46]) by gateway1.nyi.mail.srv.osa (Postfix) with ESMTP id 1D5D32159C for ; Sun, 22 Apr 2012 12:29:18 -0400 (EDT) Received: from archbook (c-98-213-43-118.hsd1.il.comcast.net [98.213.43.118]) by mail.messagingengine.com (Postfix) with ESMTPSA id 96D228E0198 for ; Sun, 22 Apr 2012 12:29:17 -0400 (EDT) In-Reply-To: <878vhnenq5.fsf@fastmail.fm> (Matt Lundin's message of "Sun, 22 Apr 2012 11:23:19 -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: Org Mode Matt Lundin writes: > * lisp/org-gnus.el: (org-gnus-follow-link): Fix argument to > gnus-group-read-group so that following a link does not result in > unread article being selected. > > The NO-ARTICLE argument to gnus-group-read-group should be t. > Otherwise org-gnus-follow-link selects the most unread article in a > group before selecting the linked article. This results in unread > articles being unread (which can cause one to miss important mail). ^^^^^^^^^^^^ The above should read "being marked read." > --- > lisp/org-gnus.el | 2 +- > 1 file changed, 1 insertion(+), 1 deletion(-) > > diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el > index 5b855c2..50d91be 100644 > --- a/lisp/org-gnus.el > +++ b/lisp/org-gnus.el > @@ -272,7 +272,7 @@ If `org-store-link' was called with a prefix arg the meaning of > ;; stop on integer overflows > (> articles 0)) > (setq group-opened (gnus-group-read-group > - articles nil group) > + articles t group) > articles (if (< articles 16) > (1+ articles) > (* articles 2))))