[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] [bug #5234] planner-gnus pseudo-article error
From: |
anonymous |
Subject: |
[emacs-wiki-discuss] [bug #5234] planner-gnus pseudo-article error |
Date: |
Fri, 10 Feb 2006 16:08:34 +0100 |
User-agent: |
Mozilla/4.0 (compatible; MSIE 6.0; X11; Linux i686; en) Opera 8.5 |
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/<address@hidden>")
funcall(planner-gnus-browse-url
"gnus://gmane.emacs.wiki.general/<address@hidden>")
(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/<address@hidden>"
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/<address@hidden>"
nil)
funcall(planner-visit-link
"gnus://gmane.emacs.wiki.general/<address@hidden>" 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/<address@hidden>"
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/