From mboxrd@z Thu Jan 1 00:00:00 1970 From: Leo Subject: Re: Gnus link BUGS Date: Sat, 23 Dec 2006 17:58:01 +0000 Message-ID: References: <87mz5g61kl.fsf@tallis.lumiere.ens.fr> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GyB8Z-0008Uw-Aw for emacs-orgmode@gnu.org; Sat, 23 Dec 2006 12:58:23 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GyB8X-0008SE-N5 for emacs-orgmode@gnu.org; Sat, 23 Dec 2006 12:58:22 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GyB8X-0008Rs-Hn for emacs-orgmode@gnu.org; Sat, 23 Dec 2006 12:58:21 -0500 Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1GyB8W-0006TP-Tw for emacs-orgmode@gnu.org; Sat, 23 Dec 2006 12:58:21 -0500 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1GyB8I-0007FQ-75 for emacs-orgmode@gnu.org; Sat, 23 Dec 2006 18:58:07 +0100 Received: from sl392.st-edmunds.cam.ac.uk ([131.111.223.202]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 23 Dec 2006 18:58:06 +0100 Received: from sdl.web by sl392.st-edmunds.cam.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 23 Dec 2006 18:58:06 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: carsten.dominik@gmail.com Hi Carsten and Bastien, Merry Christmas! * Bastien (2006-12-22 04:39 +0100) said: ^^^^^^^ > I spent some time trying to circumvent this behavior and the easiest > (but temporary) solution i've found is this one: > > (setq gnus-large-newsgroup 10000) * Carsten Dominik (2006-12-23 08:38 +0100) said: ^^^^^^^^^^^^^^^ > Thanks, I will use this approach in org-mode as well. > > (I am in no way a gnus expert - so if there is other stuff to fix in > the gnus interface, please go ahead, maybe even send me patches). > > - Carsten I made a patch and test it. It seems working fine for me. What do you think? --- org.el 2006/12/23 14:59:06 1.1 +++ org.el 2006/12/23 17:44:59 @@ -9041,19 +9041,20 @@ (Info-find-node (match-string 1 name) "Top"))) (message (concat "Could not open: " name)))) +(defvar org-gnus-group-articles 10 + "Number of articles to retrieve for gnus GROUP.") + (defun org-follow-gnus-link (&optional group article) "Follow a Gnus link to GROUP and ARTICLE." (require 'gnus) (funcall (cdr (assq 'gnus org-link-frame-setup))) (if gnus-other-frame-object (select-frame gnus-other-frame-object)) - (if group (gnus-fetch-group group)) - (if article - (or (gnus-summary-goto-article article nil 'force) - (if (fboundp 'gnus-summary-insert-cached-articles) - (progn - (gnus-summary-insert-cached-articles) - (gnus-summary-goto-article article nil 'force)) - (message "Message could not be found."))))) + (when group + (gnus-fetch-group group org-gnus-group-articles) + (when article + (and (stringp article) (setq article (string-to-number article))) + (gnus-summary-goto-article article nil t) + (gnus-summary-limit (list article))))) (defun org-follow-vm-link (&optional folder article readonly) "Follow a VM link to FOLDER and ARTICLE." -- Leo (GPG Key: 9283AA3F)