URL:
<http://gna.org/bugs/?func=detailitem&item_id=5234>
Summary: planner-gnus pseudo-article error
Project: Planner.el and related modules
Submitted by: johnsu01
Submitted on: Friday 02/10/2006 at 06:50
Category: None
Priority: 1 - Later
Severity: 3 - Normal
Status: None
Privacy: Public
Assigned to: None
Originator Email:
Open/Closed: Open
_______________________________________________________
Details:
I'm getting this backtrace when I try to follow a link to a message in Gnus.
Emacs 22.0.50.1, Planner from arch and Muse main.
Debugger entered--Lisp error: (error "This is a pseudo-article")
signal(error ("This is a pseudo-article"))
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)
(progn (let (... ...) (when ... ...) (condition-case err ... ...) (mapcar
... ...) (let ... ... ...) t))
(if (string-match "\\`gnus://\\(.+\\)/\\(.+\\)" url) (progn (let ... ...
... ... ... t)))
(when (string-match "\\`gnus://\\(.+\\)/\\(.+\\)" url) (let (... ...) (when
... ...) (condition-case err ... ...) (mapcar ... ...) (let ... ... ...) t))
planner-gnus-browse-url("gnus://nnml:inbox/<[EMAIL PROTECTED]>")
funcall(planner-gnus-browse-url
"gnus://nnml:inbox/<[EMAIL PROTECTED]>")
(progn (funcall (cadr entry) url))
(if entry (progn (funcall ... url)))
(when entry (funcall (cadr entry) url))
(let* ((proto ...) (entry ...)) (when entry (funcall ... url)))
(progn (let* (... ...) (when entry ...)))
(if (string-match muse-url-regexp url) (progn (let* ... ...)))
(when (string-match muse-url-regexp url) (let* (... ...) (when entry
...)))
muse-browse-url("gnus://nnml:inbox/<[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://nnml:inbox/<[EMAIL PROTECTED]>"
nil)
funcall(planner-visit-link
"gnus://nnml:inbox/<[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://nnml:inbox/<[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
