[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Re: Gnus link BUGS
From: |
Bastien |
Subject: |
Re: [Orgmode] Re: Gnus link BUGS |
Date: |
Sun, 24 Dec 2006 01:54:58 +0100 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/23.0.0 (gnu/linux) |
Hi Leo,
Leo <address@hidden> 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
[Orgmode] Re: Gnus link BUGS, Leo, 2006/12/22
[Orgmode] Re: Gnus link BUGS, Leo, 2006/12/24