* error copying message to/from nnmaildir
@ 2010-11-30 13:29 Eric S Fraga
2010-12-01 16:55 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 3+ messages in thread
From: Eric S Fraga @ 2010-11-30 13:29 UTC (permalink / raw)
To: ding
Hello,
I am using No Gnus (from git). I can no longer copy messages from one
nnmaildir folder to another. I get the following debug trace on error
(where I've removed some detail on the actual messages to protect the
innocent, replacing text with ###):
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-number-of-arguments (lambda (article) (mapcar (lambda (mark) (setq mdir (nnmaildir--subdir marksdir (symbol-name mark)) permarkfile (concat mdir ":") mfile (concat mdir (nnmaildir--art-prefix article))) (nnmaildir--condcase err (add-name-to-file permarkfile mfile) (cond ((nnmaildir--eexist-p err)) ((nnmaildir--enoent-p err) (nnmaildir--mkdir mdir) (nnmaildir--mkfile permarkfile) (add-name-to-file permarkfile mfile)) ((nnmaildir--emlink-p err) (let ((permarkfilenew (concat permarkfile "{new}"))) (nnmaildir--mkfile permarkfilenew) (rename-file permarkfilenew permarkfile (quote replace)) (add-name-to-file permarkfile mfile))) (t (signal (car err) (cdr err)))))) todo-marks)) 0)
(lambda (article) (mapcar (lambda ... ... ...) todo-marks))()
funcall((lambda (article) (mapcar (lambda ... ... ...) todo-marks)))
(lambda (article) (funcall add-action) (mapcar (lambda ... ...) all-marks))([cl-struct-nnmaildir--art ### ])
funcall((lambda (article) (funcall add-action) (mapcar (lambda ... ...) all-marks)) [cl-struct-nnmaildir--art ### (19700 60434) (To Newsgroups)]])
(while nlist2 (setq entry (car nlist2) nlist2 (cdr nlist2)) (if (< ... low) (throw ... nil)) (funcall func (cdr entry)))
(catch (quote iterate-loop) (while nlist2 (setq entry ... nlist2 ...) (if ... ...) (funcall func ...)))
(while ranges (setq entry (car ranges) ranges (cdr ranges)) (while (and ranges ...) (setq ranges ...)) (if (numberp entry) (setq low entry high entry) (setq low ... high ...)) (setq nlist2 nlist) (catch (quote iterate-loop) (while nlist2 ... ...)) (catch (quote iterate-loop) (while nlist2 ... ... ...)))
(let (entry high low nlist2) (if (eq ranges ...) (setq ranges ...)) (while ranges (setq entry ... ranges ...) (while ... ...) (if ... ... ...) (setq nlist2 nlist) (catch ... ...) (catch ... ...)))
nnmaildir--nlist-iterate( [###] ))
(while --cl-dolist-temp-- (setq action (car --cl-dolist-temp--)) (setq ranges (car action) todo-marks (caddr action)) (dolist (mark todo-marks) (add-to-list ... mark)) (if (numberp ...) (setq ranges ...)) (nnmaildir--nlist-iterate nlist ranges (cond ... ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- actions) action) (while --cl-dolist-temp-- (setq action ...) (setq ranges ... todo-marks ...) (dolist ... ...) (if ... ...) (nnmaildir--nlist-iterate nlist ranges ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... action) (while --cl-dolist-temp-- ... ... ... ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... action) (while --cl-dolist-temp-- ... ... ... ... ... ...) nil))
(dolist (action actions) (setq ranges (car action) todo-marks (caddr action)) (dolist (mark todo-marks) (add-to-list ... mark)) (if (numberp ...) (setq ranges ...)) (nnmaildir--nlist-iterate nlist ranges (cond ... ... ...)))
(catch (quote return) (unless group (setf ... ...) (dolist ... ...) (throw ... ranges)) (setq nlist (nnmaildir--grp-nlist group) marksdir (nnmaildir--srv-dir nnmaildir--cur-server) marksdir (nnmaildir--srvgrp-dir marksdir gname) marksdir (nnmaildir--nndir marksdir) marksdir (nnmaildir--marks-dir marksdir) gname (nnmaildir--grp-name group) pgname (nnmaildir--pgname nnmaildir--cur-server gname) ls (nnmaildir--group-ls nnmaildir--cur-server pgname) all-marks (funcall ls marksdir nil "\\`[^.]" ...) all-marks (mapcar ... all-marks)) (dolist (action actions) (setq ranges ... todo-marks ...) (dolist ... ...) (if ... ...) (nnmaildir--nlist-iterate nlist ranges ...)) nil)
(let ((group ...) (coding-system-for-write nnheader-file-coding-system) (buffer-file-coding-system nil) (file-coding-system-alist nil) del-mark del-action add-action set-action marksdir nlist ranges begin end article all-marks todo-marks mdir mfile pgname ls permarkfile deactivate-mark) (setq del-mark (lambda ... ... ...) del-action (lambda ... ...) add-action (lambda ... ...) set-action (lambda ... ... ...)) (catch (quote return) (unless group ... ... ...) (setq nlist ... marksdir ... marksdir ... marksdir ... marksdir ... gname ... pgname ... ls ... all-marks ... all-marks ...) (dolist ... ... ... ... ...) nil))
nnmaildir-request-set-mark("inbox" (((2063) set (expire))) "UCL")
funcall(nnmaildir-request-set-mark "inbox" (((2063) set (expire))) "UCL")
(if (not (gnus-check-backend-function ... ...)) action (funcall (gnus-get-function gnus-command-method ...) (gnus-group-real-name group) action (nth 1 gnus-command-method)) (gnus-run-hook-with-args gnus-after-set-mark-hook group action))
(let ((gnus-command-method ...)) (if (not ...) action (funcall ... ... action ...) (gnus-run-hook-with-args gnus-after-set-mark-hook group action)))
gnus-request-set-mark("nnmaildir+UCL:inbox" (((2063) set (expire))))
(let ((set nil) (marks gnus-article-mark-lists)) (when (memq article gnus-newsgroup-unreads) (push ... set)) (while marks (when ... ...) (pop marks)) (gnus-request-set-mark gnus-newsgroup-name (\` ...)))
gnus-summary-push-marks-to-backend(2063)
(progn (gnus-summary-push-marks-to-backend article))
(if gnus-preserve-marks (progn (gnus-summary-push-marks-to-backend article)))
(when gnus-preserve-marks (gnus-summary-push-marks-to-backend article))
(while articles (setq article (pop articles)) (when gnus-preserve-marks (gnus-summary-push-marks-to-backend article)) (let (... ...) (setq art-group ...) (cond ... ... ...) (push article articles-to-update-marks)))
(let ((articles ...) (prefix ...) (names ...) (copy-buf ...) art-group to-method new-xref article to-groups articles-to-update-marks encoded) (unless (assq action names) (error "Unknown action %s" action)) (when (and ... ...) (if ... ...) (setq to-newsgroup ... encoded to-newsgroup to-method ...) (set ... ...)) (unless to-method (setq to-method ...)) (setq to-newsgroup (or encoded ...)) (unless (gnus-check-backend-function ... ...) (error "%s does not support article copying" ...)) (unless (gnus-check-server to-method) (error "Can't open server %s" ...)) (gnus-message 6 "%s to %s: %s..." (caddr ...) (or ... ...) articles) (while articles (setq article ...) (when gnus-preserve-marks ...) (let ... ... ... ...)) (save-excursion (apply ... articles-to-update-marks)) (with-current-buffer gnus
-group-buffer (let ... ...)) (gnus-kill-buffer copy-buf) (gnus-summary-position-point) (gnus-set-mode-line (quote summary)))
gnus-summary-move-article(nil nil nil copy)
gnus-summary-copy-article(nil)
call-interactively(gnus-summary-copy-article nil nil)
--8<---------------cut here---------------end--------------->8---
I've git pulled (today), make clean, make all, restarted emacs, etc.
I'm on Debian (testing+unstable) Linux with Emacs 23.2.1.
Any suggestions of what I could be doing wrong? Is there any other
information I should provide?
Thanks,
eric
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: error copying message to/from nnmaildir
2010-11-30 13:29 error copying message to/from nnmaildir Eric S Fraga
@ 2010-12-01 16:55 ` Lars Magne Ingebrigtsen
2010-12-01 22:16 ` Eric S Fraga
0 siblings, 1 reply; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-12-01 16:55 UTC (permalink / raw)
To: ding
Eric S Fraga <ucecesf@ucl.ac.uk> writes:
> nnmaildir-request-set-mark("inbox" (((2063) set (expire))) "UCL")
Same thing that Ted found in the thread further down on the page. Or up
in the buffer.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: error copying message to/from nnmaildir
2010-12-01 16:55 ` Lars Magne Ingebrigtsen
@ 2010-12-01 22:16 ` Eric S Fraga
0 siblings, 0 replies; 3+ messages in thread
From: Eric S Fraga @ 2010-12-01 22:16 UTC (permalink / raw)
To: ding
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> Eric S Fraga <ucecesf@ucl.ac.uk> writes:
>
>> nnmaildir-request-set-mark("inbox" (((2063) set (expire))) "UCL")
>
> Same thing that Ted found in the thread further down on the page. Or up
> in the buffer.
Thanks, yes, and I see that the problem has been fixed. Brilliant.
Many thanks.
--
: Eric S Fraga (GnuPG: 0xC89193D8FFFCF67D) in Emacs 23.2.1 + No Gnus v0.11
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2010-12-01 22:16 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-11-30 13:29 error copying message to/from nnmaildir Eric S Fraga
2010-12-01 16:55 ` Lars Magne Ingebrigtsen
2010-12-01 22:16 ` Eric S Fraga
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).