From 271f6880df3227764b090e5ad9b1c6ab16deee76 Mon Sep 17 00:00:00 2001 From: Thomas Morgan Date: Sun, 7 Mar 2010 20:43:41 -0800 Subject: [PATCH] Make `org-gnus-follow-link' immediately read all articles in group instead of starting with 1. --- lisp/org-gnus.el | 17 ++++------------- 1 files changed, 4 insertions(+), 13 deletions(-) diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index dd357b7..370e535 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -169,19 +169,10 @@ If `org-store-link' was called with a prefix arg the meaning of (cond ((and group article) (gnus-activate-group group t) (condition-case nil - (let ((articles 1) - group-opened) - (while (and (not group-opened) - ;; stop on integer overflows - (> articles 0)) - (setq group-opened (gnus-group-read-group articles nil group) - articles (if (< articles 16) - (1+ articles) - (* articles 2)))) - (if group-opened - (gnus-summary-goto-article article nil t) - (message "Couldn't follow gnus link. %s" - "The summary couldn't be opened."))) + (if (gnus-group-read-group t nil group) + (gnus-summary-goto-article article nil t) + (message "Couldn't follow gnus link. %s" + "The summary couldn't be opened.")) (quit (message "Couldn't follow gnus link. %s" "The linked group is empty.")))) (group (gnus-group-jump-to-group group)))) -- 1.6.3.3