Follow-up Comment #2, bug #5234 (project planner-el):
I noticed the exact same problem: XEmacs21, muse 3.02.5 and Gnus v0.3.
Debugger entered--Lisp error: (error "This is a pseudo-article")
signal(error ("This is a pseudo-article"))
cerror("This is a pseudo-article")
apply(cerror "This is a pseudo-article" nil)
error("This is a pseudo-article")
gnus-summary-select-article()
(let ((articles ...)) (gnus-summary-limit articles)
(gnus-summary-select-article))
(let ((group ...) (articles ...)) (when (featurep ...) (let ... ...))
(condition-case err (gnus-fetch-group group planner-gnus-group-threshold)
(error ...)) (mapcar (lambda ... ...) (split-string articles "\\\\|")) (let
(...) (gnus-summary-limit articles) (gnus-summary-select-article)) t)
(if (string-match "\\`gnus://\\(.+\\)/\\(.+\\)" url) (let (... ...) (when
... ...) (condition-case err ... ...) (mapcar ... ...) (let ... ... ...) t))
(when (string-match "\\`gnus://\\(.+\\)/\\(.+\\)" url) (let (... ...) (when
... ...) (condition-case err ... ...) (mapcar ... ...) (let ... ... ...) t))
planner-gnus-browse-url("gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>")
funcall(planner-gnus-browse-url
"gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>")
(if entry (funcall (cadr entry) url))
(when entry (funcall (cadr entry) url))
(let* ((proto ...) (entry ...)) (when entry (funcall ... url)))
(if (string-match muse-url-regexp url) (let* (... ...) (when entry ...)))
(when (string-match muse-url-regexp url) (let* (... ...) (when entry
...)))
muse-browse-url("gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>"
nil)
(if (string-match muse-url-regexp link) (muse-browse-url link other-window)
(let* (... ... ... ...) (if ... ... ...) (when tag ... ...)))
(let ((link ...)) (if (string-match muse-url-regexp link) (muse-browse-url
link other-window) (let* ... ... ...)))
planner-visit-link("gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>"
nil)
funcall(planner-visit-link
"gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>" nil)
(if visit-link-function (funcall visit-link-function link other-window)
(muse-visit-link-default link other-window))
(let ((visit-link-function ...)) (if visit-link-function (funcall
visit-link-function link other-window) (muse-visit-link-default link
other-window)))
muse-visit-link("gnus://gmane.emacs.wiki.general/<[EMAIL PROTECTED]>"
nil)
(if link (muse-visit-link link other-window) (error "There is no valid link
at point"))
(let ((link ...)) (if link (muse-visit-link link other-window) (error
"There is no valid link at point")))
muse-follow-name-at-point(nil)
call-interactively(muse-follow-name-at-point)
_______________________________________________________
Reply to this item at:
<http://gna.org/bugs/?func=detailitem&item_id=5234>
_______________________________________________
Message sent via/by Gna!
http://gna.org/
_______________________________________________
Muse-el-commits mailing list
[email protected]
https://mail.gna.org/listinfo/muse-el-commits
