Re: error moving messages between IMAP groups

[Kim-Minh Kaplan <Kim-Minh.Kaplan@western.fr>]

Simon Josefsson <jas@pdc.kth.se> writes:

> Ken Cain <ken@linus.mitre.org> writes:
> 
> > Signaling: (wrong-type-argument consp 63)
> >   cdr(63)
> >   (let ((high ...)) (when high (cons group high)))
> > )
> >   (progn (let (...) (when high ...)))
> > )
> 
> Looks like nnimap didn't found out what UID the article was
> stored as and returned some bogus information to Gnus.

Same thing here.  But it does not seem to be a problem with the IMAP
server.  And here is a patch that works here.  It just removes the
excess cdr.

This is running XEmacs 20.4 on i386-debian-linux, Gnus v5.6.42,
nnimap 0.3.29, and Netscape IMAP4rev1 Service 3.5.

Kim-Minh.

--- nnimap.el.orig	Thu Sep  3 09:56:32 1998
+++ nnimap.el	Thu Sep  3 09:57:12 1998
@@ -1045,12 +1045,12 @@
 			  (list (concat "APPEND " group " ") 
 				(current-buffer))
 			  nnimap-server-buffer))
-	(let ((high (cdr (if (memq 'UIDPLUS (imap-capability-get
-					     nnimap-server-buffer))
-			     (imap-folder-get 'appenduid nil 
-					      nnimap-server-buffer)
-			 (imap-folder-get 'UIDNEXT group
-					  nnimap-server-buffer)))))
+	(let ((high (if (memq 'UIDPLUS (imap-capability-get
+					nnimap-server-buffer))
+			(imap-folder-get 'appenduid nil 
+					 nnimap-server-buffer)
+		      (imap-folder-get 'UIDNEXT group
+				       nnimap-server-buffer))))
 	  (when high
 	    (cons group high)))))))