Hi Leo,
Leo <[EMAIL PROTECTED]> 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
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
