From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/74550 Path: news.gmane.org!not-for-mail From: Eric S Fraga Newsgroups: gmane.emacs.gnus.general Subject: error copying message to/from nnmaildir Date: Tue, 30 Nov 2010 13:29:09 +0000 Message-ID: <87hbezdjoa.fsf@pinto.chemeng.ucl.ac.uk> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1291125143 27570 80.91.229.12 (30 Nov 2010 13:52:23 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 30 Nov 2010 13:52:23 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M22909@lists.math.uh.edu Tue Nov 30 14:52:19 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PNQcv-0000Jc-GY for ding-account@gmane.org; Tue, 30 Nov 2010 14:52:13 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PNQcn-0006WF-5Z; Tue, 30 Nov 2010 07:52:05 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PNQGg-0006OT-W2 for ding@lists.math.uh.edu; Tue, 30 Nov 2010 07:29:14 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PNQGf-0000Mi-2C for ding@lists.math.uh.edu; Tue, 30 Nov 2010 07:29:14 -0600 Original-Received: from vscani-b2.ucl.ac.uk ([144.82.108.135]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1PNQGe-000569-00 for ; Tue, 30 Nov 2010 14:29:12 +0100 Original-Received: from pinto.chemeng.ucl.ac.uk ([128.40.74.171] helo=localhost) by vscani-b.ucl.ac.uk with esmtp (Exim 4.63) (envelope-from ) id 1PNQGc-0002fH-Ak for ding@gnus.org; Tue, 30 Nov 2010 13:29:10 +0000 X-Face: av6A"vZ{AypDB`d^.T35oG%$E*Qh]4F)K=*$-NHz5{7WZfAFQFB]F@gf}l9`XLs9(iD?D/! nafKE,S#G!4W/flj=9(U{]t'lP,,5~:s*~;kKR User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.2 (gnu/linux) X-UCL-MailScanner-Information: Please contact the UCL Helpdesk, helpdesk@ucl.ac.uk for more information X-UCL-MailScanner: Found to be clean X-UCL-MailScanner-From: ucecesf@ucl.ac.uk X-Spam-Status: No X-Spam-Score: -4.9 (----) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:74550 Archived-At: 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