[Orgmode] Bug: Can't follow link to old Gnus nndoc article [6.34trans]

[Thomas Morgan]

I'm using development versions of Emacs and Org mode:

  Emacs  : GNU Emacs 23.1.90.1 (i686-pc-linux-gnu, GTK+ Version 2.18.3)
   of 2010-03-03 on enif
  Package: Org-mode version 6.34trans

When I try to follow (with `C-c C-o') a link to an already
read article in a Gnus nndoc group, I get an error message
like this:

  Couldn't fetch article <address@hidden>

Here is the link location for that message:

  gnus:nndoc+/home/tlm/Mail/RMAIL-201003:address@hidden

I'm able to follow the link if the group is already open
with all old articles visible.

I've attached a patch which is probably not a proper fix.
It solves the problem by making `org-gnus-follow-link'
read the entire group from the start instead of beginning
with one article and trying more if the group fails to open.

>From 271f6880df3227764b090e5ad9b1c6ab16deee76 Mon Sep 17 00:00:00 2001
From: Thomas Morgan <address@hidden>
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