Re: Incoming IMAP split problem

[Daniel Dehennin <daniel.dehennin@baby-gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 3021 bytes --]

egallego@babel.ls.fi.upm.es (Emilio Jesús Gallego Arias) writes:


[...]

> diff --git a/lisp/nnimap.el b/lisp/nnimap.el
> index 74ef756..1ffe5ad 100644
> --- a/lisp/nnimap.el
> +++ b/lisp/nnimap.el

[...]


Here is the patch I use:

#v+
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 4e220bc..c4d9d20 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1794,6 +1794,7 @@ textual parts.")
 	      (nnimap-wait-for-response (caar sequences))
 	      ;; And then mark the successful copy actions as deleted,
 	      ;; and possibly expunge them.
+              (nnimap-log-command (format "NNIMAP SPLIT DEBUG %s %s\n" (nnimap-parse-copied-articles sequences) sequences))
 	      (nnimap-mark-and-expunge-incoming
 	       (nnimap-parse-copied-articles sequences)))
             (nnimap-mark-and-expunge-incoming junk-articles)))))))
#v-


Here is the output in *imap log*:

#v+ One working
17:19:04 165506 LIST "" "*"
17:19:04 165507 SELECT "INBOX"
17:19:04 165508 UID FETCH 1:* FLAGS
17:19:04 165509 UID FETCH 76938 (UID BODY.PEEK[HEADER] BODY.PEEK[1])
17:19:04 165510 UID COPY 76938 "baby-gnu.org.dad"
17:19:04 NNIMAP SPLIT DEBUG (76938) ((165510 (76938)))
17:19:04 165511 UID STORE 76938 +FLAGS.SILENT (\Deleted)
17:19:04 165512 UID EXPUNGE 76938
#v-

#v+ One not working
17:45:00 166064 LIST "" "*"
17:45:00 166065 SELECT "INBOX"
17:45:00 166066 UID FETCH 1:* FLAGS
17:45:00 166067 UID FETCH 76939 (UID BODY.PEEK[HEADER] BODY.PEEK[1])
17:45:00 166068 UID COPY 76939 "baby-gnu.org.dehennin"
17:45:00 NNIMAP SPLIT DEBUG nil ((166068 (76939)))
[...]
17:45:00 166064 LIST "" "*"
17:45:00 166065 SELECT "INBOX"
17:45:00 166066 UID FETCH 1:* FLAGS
17:45:00 166067 UID FETCH 76939 (UID BODY.PEEK[HEADER] BODY.PEEK[1])
17:45:00 166068 UID COPY 76939 "baby-gnu.org.dehennin"
17:45:00 NNIMAP SPLIT DEBUG nil ((166068 (76939)))
17:45:00 166069 EXAMINE "baby-gnu.org.cf" (QRESYNC (1236917076 2))
[...]
17:46:44 166156 LIST "" "*"
17:46:44 166157 SELECT "INBOX"
17:46:44 166158 UID FETCH 1:* FLAGS
17:46:44 166159 UID FETCH 76939 (UID BODY.PEEK[HEADER] BODY.PEEK[1])
17:46:44 166160 UID COPY 76939 "baby-gnu.org.dehennin"
17:46:44 NNIMAP SPLIT DEBUG nil ((166160 (76939)))
17:46:44 166161 EXAMINE "baby-gnu.org.cf" (QRESYNC (1236917076 2))
[...]
17:50:00 166251 LIST "" "*"
17:50:00 166252 SELECT "INBOX"
17:50:00 166253 UID FETCH 1:* FLAGS
17:50:00 166254 UID FETCH 76939 (UID BODY.PEEK[HEADER] BODY.PEEK[1])
17:50:00 166255 UID COPY 76939 "baby-gnu.org.dehennin"
17:50:00 NNIMAP SPLIT DEBUG (76939) ((166255 (76939)))
17:50:00 166256 UID STORE 76939 +FLAGS.SILENT (\Deleted)
17:50:00 166257 UID EXPUNGE 76939
17:50:00 166258 EXAMINE "baby-gnu.org.cf" (QRESYNC (1236917076 2))
#v-

> I guess posting also the contents of the response for the COPY command
> would be useful.

I can test if you have a patch, off for beer now ;-)

Regards.

-- 
Daniel Dehennin
Récupérer ma clef GPG:
gpg --keyserver pgp.mit.edu --recv-keys 0x6A2540D1

[-- Attachment #2: Type: application/pgp-signature, Size: 197 bytes --]