error copying message to/from nnmaildir

[Eric S Fraga <ucecesf@ucl.ac.uk>]

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