From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: [PATCH] Following gnus links: Don't mark unrelated articles read Date: Sun, 22 Apr 2012 11:23:19 -0500 Message-ID: <878vhnenq5.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:39307) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SLzdB-00016z-2V for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:27:22 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SLzd9-0004jA-AL for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:27:20 -0400 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:49880) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SLzd8-0004j0-Sp for emacs-orgmode@gnu.org; Sun, 22 Apr 2012 12:27:19 -0400 Received: from compute5.internal (compute5.nyi.mail.srv.osa [10.202.2.45]) by gateway1.nyi.mail.srv.osa (Postfix) with ESMTP id 2A1042164D for ; Sun, 22 Apr 2012 12:27:17 -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 ADEC28E00D4 for ; Sun, 22 Apr 2012 12:27:16 -0400 (EDT) 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 * 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). --- 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)))) -- 1.7.10