From: Tassilo Horn <tassilo@member.fsf.org>
To: emacs-orgmode@gnu.org
Subject: Fixing slowness of following Gnus links to IMAP articles (was: Behavior of Gnus when called from an hyperlink)
Date: Tue, 27 Jul 2010 08:45:41 +0200 [thread overview]
Message-ID: <87aapdzalm.fsf_-_@thinkpad.tsdh.de> (raw)
In-Reply-To: 87wrsoy5b2.fsf@mundaneum.com
Hi Sébastien,
I'm trying to add a workaround to org-gnus.el which should save the
slowness of querying the IMAP server by looking up the article number in
the group's .overview file. But since I don't have nnimap groups, we
have to play some question & answer game. ;-)
Please apply this patch and set
`org-gnus-nnimap-query-article-no-from-file' to t.
--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el
index 7ec305b..118f088 100644
--- a/lisp/org-gnus.el
+++ b/lisp/org-gnus.el
@@ -55,6 +55,16 @@ negates this setting for the duration of the command."
:group 'org-link-store
:type 'boolean)
+(defcustom org-gnus-nnimap-query-article-no-from-file nil
+ "If non-nil, `org-gnus-follow-link' will try to translate
+Message-Ids to article numbers by querying the .overview file.
+Normally, this translation is done by querying the IMAP server,
+which is usually very fast. Unfortunately, some (maybe badly
+configured) IMAP servers don't support this operation quickly.
+So if following a link to a Gnus article takes ages, try setting
+this variable to `t'."
+ :group 'org-link-store
+ :type 'boolean)
;; Install the link type
(org-add-link-type "gnus" 'org-gnus-open)
@@ -173,7 +183,11 @@ 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 ((backend (car (gnus-find-method-for-group group))))
+ (let* ((method (gnus-find-method-for-group group))
+ (backend (car method))
+ (server (cadr method)))
+ (message "method = %s\ngroup = %s\nbackend = %s\nserver = %s"
+ method group backend server)
(cond
((eq backend 'nndoc)
(if (gnus-group-read-group t nil group)
@@ -183,6 +197,12 @@ If `org-store-link' was called with a prefix arg the meaning of
(t
(let ((articles 1)
group-opened)
+ ;; work arround IMAP servers that perform badly in
+ ;; SEARCH commands.
+ (when (and (eq backend 'nnimap)
+ org-gnus-nnimap-query-article-no-from-file)
+ (let ((headers (nnimap-retrieve-headers-from-file )))
+ (message "headers = %s" headers)))
(while (and (not group-opened)
;; stop on integer overflows
(> articles 0))
--8<---------------cut here---------------end--------------->8---
Then follow some org link to a message in a nnimap group. This will be
slow as usual, but produce some output in *Messages* that I need to go
ahead. In that buffer, there should be 4 key-value pairs "<var> =
<value>". Please poste these here.
Bye,
Tassilo
next prev parent reply other threads:[~2010-07-27 6:45 UTC|newest]
Thread overview: 77+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-06-28 9:38 Behavior of Gnus when called from an hyperlink Sébastien Vauban
2010-06-28 10:19 ` Tassilo Horn
2010-06-28 11:36 ` Leo
2010-06-28 11:49 ` Carsten Dominik
2010-06-28 12:47 ` Bernt Hansen
2010-06-28 13:57 ` Greg Troxel
2010-06-28 19:44 ` [PATCH] Add customization for WL in `org-link-frame-setup' David Maus
2010-06-29 4:42 ` Carsten Dominik
2010-06-28 19:44 ` [PATCH] Add customization option to open WL links in other frame David Maus
2010-06-30 10:12 ` Behavior of Gnus when called from an hyperlink Noorul Islam K M
2010-07-02 4:44 ` Carsten Dominik
2010-07-02 8:21 ` Leo
2010-07-02 8:21 ` Bastien
2010-07-02 11:59 ` Bernt Hansen
2010-06-28 12:05 ` Sébastien Vauban
2010-06-28 12:51 ` Sébastien Vauban
2010-06-28 14:39 ` Nick Dokos
2010-06-28 14:51 ` Sébastien Vauban
2010-06-28 15:19 ` Nick Dokos
2010-06-28 18:32 ` Tassilo Horn
2010-07-15 21:27 ` Sébastien Vauban
2010-07-16 7:50 ` Tassilo Horn
2010-07-16 11:39 ` Sébastien Vauban
2010-07-16 18:11 ` Nick Dokos
2010-07-16 19:23 ` Sébastien Vauban
2010-07-16 19:51 ` Sébastien Vauban
2010-07-17 7:18 ` Tassilo Horn
2010-07-17 16:02 ` Nick Dokos
2010-07-17 19:59 ` Sébastien Vauban
2010-07-17 20:49 ` Nick Dokos
2010-07-17 21:34 ` Sébastien Vauban
2010-07-17 22:15 ` Sébastien Vauban
2010-07-19 8:11 ` Tassilo Horn
2010-07-19 12:02 ` David Maus
2010-07-19 20:37 ` Sébastien Vauban
2010-07-20 6:23 ` David Maus
2010-07-21 19:59 ` Sébastien Vauban
2010-07-22 12:31 ` Tassilo Horn
2010-07-26 13:17 ` David Maus
2010-07-26 15:12 ` Tassilo Horn
2010-07-26 18:47 ` Tassilo Horn
2010-07-27 6:45 ` Tassilo Horn [this message]
2010-07-27 20:27 ` Fixing slowness of following Gnus links to IMAP articles (was: Behavior of Gnus when called from an hyperlink) David Maus
2010-07-27 21:18 ` Nick Dokos
2010-07-28 6:50 ` Fixing slowness of following Gnus links to IMAP articles Tassilo Horn
2010-07-29 7:33 ` David Maus
2010-07-29 18:06 ` Tassilo Horn
2010-07-30 20:03 ` Sébastien Vauban
2010-08-15 18:52 ` David Maus
2010-09-08 15:09 ` Sébastien Vauban
2010-09-08 19:08 ` David Maus
2010-09-08 21:42 ` Sébastien Vauban
2010-09-09 12:19 ` David Maus
2010-10-01 0:53 ` Matt Lundin
2010-10-11 18:33 ` David Maus
2010-08-01 8:38 ` David Maus
2010-07-28 6:36 ` Tassilo Horn
2010-07-31 8:34 ` Patchwork: Patch 176 Accepted Bastien Guerry
2010-07-31 18:21 ` Tassilo Horn
2010-07-31 23:52 ` Bastien
2010-08-03 8:01 ` Fixing slowness of following Gnus links to IMAP articles Sébastien Vauban
2010-08-05 18:21 ` Tassilo Horn
2010-07-20 11:50 ` Behavior of Gnus when called from an hyperlink Tassilo Horn
2010-07-21 19:28 ` Sébastien Vauban
2010-07-20 12:08 ` Bernt Hansen
2010-07-20 16:11 ` Tassilo Horn
2010-07-21 19:38 ` Sébastien Vauban
2010-07-22 12:29 ` Tassilo Horn
2010-07-22 13:51 ` Matt Lundin
2010-07-22 19:29 ` Sébastien Vauban
2010-07-22 19:21 ` Sébastien Vauban
2010-07-22 20:11 ` Tassilo Horn
2010-07-23 8:54 ` Giovanni Ridolfi
2010-07-23 10:40 ` Tassilo Horn
2010-07-24 22:32 ` Sébastien Vauban
2010-07-21 19:33 ` Sébastien Vauban
2010-07-21 23:30 ` Bernt Hansen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87aapdzalm.fsf_-_@thinkpad.tsdh.de \
--to=tassilo@member.fsf.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.