Re: IMAP splitting problem

[Simon Josefsson <jas@extundo.com>]

Patrick Gundlach <newsgroup@levana.de> writes:

>> Yes.  If you enable `imap-log', what do you get in the *imap-log*
>> buffer?  Most likely the server won't allow you to move the article.
>
> The server allows to create folder from other clients.
>
>
> [...]
> 4 UID SEARCH UNSEEN UNDELETED
> * SEARCH 8
> 4 OK Completed (1 msgs in 0.000 secs)
> 5 UID FETCH 8 BODY.PEEK[HEADER]
> * 3 FETCH (UID 8 BODY[HEADER] {927}
> [...]
> )
> 5 OK Completed
> 6 UID COPY 8 "INBOX.private"
> 6 NO Mailbox does not exist
> 7 EXPUNGE
> * 3 EXISTS
> * 0 RECENT
> 7 OK Completed
> 8 CLOSE
> [...]
>
> So it does not even try to create a subfolder

Right, the server told the client it is not possible to create one,
from RFC 2060:

,----
|       If the destination mailbox does not exist, a server SHOULD return
|       an error.  It SHOULD NOT automatically create the mailbox.  Unless
|       it is certain that the destination mailbox can not be created, the
|       server MUST send the response code "[TRYCREATE]" as the prefix of
|       the text of the tagged NO response.  This gives a hint to the
|       client that it can attempt a CREATE command and retry the COPY if
|       the CREATE is successful.
`----

However, I added a workaround for this server bug in imap.el long time
ago.  Try upgrading or apply the patch below.

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 6.4
retrieving revision 6.5
diff -u -p -r6.4 -r6.5
--- imap.el	2001/02/15 09:16:41	6.4
+++ imap.el	2001/04/10 12:54:52	6.5
@@ -1462,8 +1462,11 @@ first element, rest of list contain the 
 	      (if (imap-ok-p (imap-send-command-wait cmd))
 		  t
 		(when (and (not dont-create)
-			   (imap-mailbox-get-1 'trycreate mailbox))
-		  (imap-mailbox-create-1 mailbox)
+			   ;; removed because of buggy Oracle server
+			   ;; that doesn't send TRYCREATE tags (which
+			   ;; is a MUST according to specifications):
+			   ;;(imap-mailbox-get-1 'trycreate mailbox)
+			   (imap-mailbox-create-1 mailbox))
 		  (imap-ok-p (imap-send-command-wait cmd)))))
 	    (or no-copyuid
 		(imap-message-copyuid-1 mailbox)))))))