From: Bastien <bzg@altern.org>
To: emacs-orgmode@gnu.org
Subject: Re: Re: Gnus link BUGS
Date: Sun, 24 Dec 2006 01:54:58 +0100 [thread overview]
Message-ID: <87r6uqf6zh.fsf@tallis.ilo.ucl.ac.uk> (raw)
In-Reply-To: <m2hcvmfp4b.fsf@sl392.st-edmunds.cam.ac.uk> (Leo's message of "Sat\, 23 Dec 2006 18\:23\:16 +0000")
Hi Leo,
Leo <sdl.web@gmail.com> writes:
> It handles the case when article number is invalid.
The patch you provided didn't work for me (see the backtrace below),
but this one against org.el 4.60 does the job, please give it a try.
Note that i'm not using `org-gnus-group-articles'.
======================================================================
--- org.el 2006/12/23 22:50:54 0.2
+++ org.el 2006/12/24 00:36:13
@@ -9046,14 +9046,11 @@
(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.")))))
+ (cond ((and group article)
+ (gnus-fetch-group group (list (string-to-number article)))
+ (gnus-summary-select-article))
+ (group (gnus-group-jump-to-group group)
+ (gnus-group-select-group))))
(defun org-follow-vm-link (&optional folder article readonly)
"Follow a VM link to FOLDER and ARTICLE."
======================================================================
Debugger entered--Lisp error: (wrong-type-argument sequencep 10)
gnus-select-newsgroup("nnml:mail.esf" t 10)
gnus-summary-read-group-1("nnml:mail.esf" t nil nil nil 10)
gnus-summary-read-group("nnml:mail.esf" t nil nil nil nil 10)
gnus-group-read-group(nil nil "nnml:mail.esf" 10)
gnus-fetch-group("nnml:mail.esf" 10)
(progn (gnus-fetch-group group org-gnus-group-articles) (when article (if ... ...) (and ... ...)))
(if group (progn (gnus-fetch-group group org-gnus-group-articles) (when article ... ...)))
(when group (gnus-fetch-group group org-gnus-group-articles) (when article (if ... ...) (and ... ...)))
org-follow-gnus-link("nnml:mail.esf" "1371")
(let (group article) (if (not ...) (error "Error in Gnus link")) (setq group (match-string 1 path) article (match-string 3 path)) (org-follow-gnus-link group article))
(cond ((equal type "mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((string= type "tags") (org-tags-view in-emacs path)) ((or ... ...) (if in-emacs ... ...) (org-link-search path ...)) ((string= type "file") (if ... ... ...) (org-open-file path in-emacs line search)) ((string= type "news") (org-follow-gnus-link path)) ((string= type "bbdb") (org-follow-bbdb-link path)) ((string= type "info") (org-follow-info-link path)) ((string= type "gnus") (let ... ... ... ...)) ((string= type "vm") (let ... ... ... ...)) ((string= type "wl") (let ... ... ... ...)) ((string= type "mhe") (let ... ... ... ...)) ((string= type "rmail") (let ... ... ... ...)) ((string= type "shell") (let ... ... ... ...)) ((string= type "elisp") (let ... ...)) (t (browse-url-at-point)))
(let (type path link line search (pos ...)) (catch (quote match) (save-excursion ... ...) (when ... ... ...) (save-excursion ... ... ...) (save-excursion ... ...) (save-excursion ... ... ...)) (unless path (error "No link found")) (if (string-match " +\\'" path) (setq path ...)) (cond (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))
(if (org-at-timestamp-p t) (org-follow-timestamp-link) (let (type path link line search ...) (catch ... ... ... ... ... ...) (unless path ...) (if ... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
org-open-at-point(nil)
call-interactively(org-open-at-point)
--
Bastien
next prev parent reply other threads:[~2006-12-24 0:55 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-12-22 3:11 Gnus link BUGS Leo
2006-12-22 3:39 ` Bastien
2006-12-23 17:58 ` Leo
2006-12-23 18:23 ` Leo
2006-12-24 0:54 ` Bastien [this message]
2006-12-24 2:37 ` Leo
2006-12-24 8:37 ` Bastien
2006-12-24 11:48 ` Leo
2006-12-22 5:44 ` Leo
2006-12-23 7:38 ` Carsten Dominik
2006-12-24 11:48 ` Leo
2007-01-08 17:53 ` [fixed in 4.61] " Leo
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
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r6uqf6zh.fsf@tallis.ilo.ucl.ac.uk \
--to=bzg@altern.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 public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).