nnimap: nnimap-request-move-article does not delete the original message

nnimap: nnimap-request-move-article does not delete the original message

[Andreas Vögele]

When moving a message from one IMAP folder to another folder the
message is copied but the original message isn't deleted.

`nnimap-request-move-article' from CVS first evaluates `accept-form',
which is set to `gnus-request-accept-article', to copy the article.
Then the original messages's \Deleted flag is set.

But `gnus-request-accept-article' selects the destination IMAP folder.
Since the source folder isn't selected again, the \Deleted flag is set
while the wrong IMAP folder is selected.

(deffoo nnimap-request-move-article (article group server accept-form 
				     &optional last move-is-internal)
  [...]
	     (save-excursion
               [....]
	       (setq result (eval accept-form))
               [...]
	       result)
	     (imap-message-flags-add
	      (imap-range-to-message-set (list article))
	      "\\Deleted" 'silent nnimap-server-buffer))
	result))))

Here's an example from the IMAP log.  Message 1284 is moved from INBOX
to INBOX.Test.

100 UID COPY 1284 "INBOX.Test"
100 OK [COPYUID 1133556790 1284 173] Completed
101 SELECT "INBOX.Test"
* FLAGS (\Answered \Flagged \Draft \Deleted \Seen $NotJunk JunkRecorded $Junk gnus-save gnus-expire)
* OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen $NotJunk JunkRecorded $Junk gnus-save gnus-expire \*)]  
* 36 EXISTS
* 1 RECENT
* OK [UNSEEN 36]  
* OK [UIDVALIDITY 1133556790]  
* OK [UIDNEXT 174]  
101 OK [READ-WRITE] Completed
102 UID STORE 173 -FLAGS (\Seen)
102 OK Completed
103 UID STORE 1284 +FLAGS.SILENT (\Deleted)
103 OK Completed
[...]
113 STATUS "INBOX.Test" (UNSEEN)
* STATUS INBOX.Test (UNSEEN 0)
113 OK Completed
114 EXPUNGE
* 36 EXISTS
* 1 RECENT
114 OK Completed
115 SELECT "INBOX"
* FLAGS (\Answered \Flagged \Draft \Deleted \Seen gnus-expire $NotJunk JunkRecorded $Junk)
* OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen gnus-expire $NotJunk JunkRecorded $Junk \*)]  
* 139 EXISTS
* 0 RECENT
* OK [UNSEEN 139]  
* OK [UIDVALIDITY 1133556790]  
* OK [UIDNEXT 1285]  
115 OK [READ-WRITE] Completed
[...]
119 EXPUNGE
* 139 EXISTS
* 0 RECENT
119 OK Completed

Here's the debug output from nnimap:

1 -> nnimap-request-article: article=1284 group="INBOX" server="private" to-buffer=#<buffer *Article*>
| 2 -> nnimap-request-article-part: article=1284 part="BODY.PEEK[]" prop=BODYDETAIL group="INBOX" server="private" to-buffer=#<buff
er *Article*> detail=detail
| | 3 -> nnimap-possibly-change-group: group="INBOX" server="private"
| | | 4 -> nnimap-possibly-change-server: server="private"
| | | 4 <- nnimap-possibly-change-server: " *nnimap* private"
| | 3 <- nnimap-possibly-change-group: "INBOX"
| 2 <- nnimap-request-article-part: ("INBOX" . 1284)
1 <- nnimap-request-article: ("INBOX" . 1284)
======================================================================
1 -> nnimap-server-opened: server="private"
1 <- nnimap-server-opened: (run)
======================================================================
1 -> nnimap-request-move-article: article=1284 group="INBOX" server="private" accept-form=(gnus-request-accept-article "nnimap+private: INBOX.Test" (quote nil) t t) last=t move-is-internal=t
| 2 -> nnimap-possibly-change-server: server="private"
| 2 <- nnimap-possibly-change-server: " *nnimap* private"
| 2 -> nnimap-request-accept-article: group="INBOX.Test" server="private" last=t
| | 3 -> nnimap-possibly-change-server: server="private"
| | 3 <- nnimap-possibly-change-server: " *nnimap* private"
| | 3 -> nnimap-possibly-change-group: group="INBOX" server=nil
| | | 4 -> nnimap-possibly-change-server: server=nil
| | | 4 <- nnimap-possibly-change-server: " *nnimap* private"
| | 3 <- nnimap-possibly-change-group: "INBOX"
| 2 <- nnimap-request-accept-article: ("INBOX.Test" . 173)
| 2 -> nnimap-request-set-mark: group="INBOX.Test" actions=(((173) del (read))) server="private"
| | 3 -> nnimap-possibly-change-group: group="INBOX.Test" server="private"
| | | 4 -> nnimap-possibly-change-server: server="private"
| | | 4 <- nnimap-possibly-change-server: " *nnimap* private"
| | | 4 -> nnimap-verify-uidvalidity: group="INBOX.Test" server="private"
| | | 4 <- nnimap-verify-uidvalidity: nil
| | 3 <- nnimap-possibly-change-group: "INBOX.Test"
| | 3 -> nnimap-mark-to-flag: preds=read always-list=nil make-string=nil
| | | 4 -> nnimap-mark-to-flag-1: preds=read
| | | 4 <- nnimap-mark-to-flag-1: "\\Seen"
| | 3 <- nnimap-mark-to-flag: "\\Seen"
| | 3 -> nnimap-mark-to-flag: preds=(read) always-list=nil make-string=t
| | | 4 -> nnimap-mark-to-flag-1: preds=(read)
| | | | 5 -> nnimap-mark-to-flag: preds=read always-list=nil make-string=nil
| | | | | 6 -> nnimap-mark-to-flag-1: preds=read
| | | | | 6 <- nnimap-mark-to-flag-1: "\\Seen"
| | | | 5 <- nnimap-mark-to-flag: "\\Seen"
| | | | 5 -> nnimap-mark-to-flag: preds=nil always-list=nil make-string=nil
| | | | | 6 -> nnimap-mark-to-flag-1: preds=nil
| | | | | 6 <- nnimap-mark-to-flag-1: nil
| | | | 5 <- nnimap-mark-to-flag: nil
| | | 4 <- nnimap-mark-to-flag-1: ("\\Seen")
| | 3 <- nnimap-mark-to-flag: "\\Seen"
| 2 <- nnimap-request-set-mark: nil
1 <- nnimap-request-move-article: ("INBOX.Test" . 173)

And here's an excerpt from the imap debugging output:

| | 3 -> imap-message-copy: articles="1284" mailbox="INBOX.Test" dont-create=dontcreate no-copyuid=nil buffer=" *nnimap* private"
| | | 4 -> imap-send-command-wait: command="UID COPY 1284 \"INBOX.Test\"" buffer=nil
| | | | 5 -> imap-send-command: command="UID COPY 1284 \"INBOX.Test\"" buffer=nil
| | | | | 6 -> imap-send-command-1: cmdstr="100 UID COPY 1284 \"INBOX.Test\""
| | | | | 6 <- imap-send-command-1: nil
| | | | 5 <- imap-send-command: 100
| | | | 5 -> imap-wait-for-tag: tag=100 buffer=nil
| | | | | 6 -> imap-arrival-filter: proc=#<process imap> string="100 OK [COPYUID 1133556790 1284 173] Completed
"
| | | | | | 7 -> imap-find-next-line: 
| | | | | | 7 <- imap-find-next-line: 49
| | | | | | 7 -> imap-parse-response: 
| | | | | | | 8 -> imap-parse-resp-text: 
| | | | | | | | 9 -> imap-parse-resp-text-code: 
| | | | | | | | | 10 -> imap-mailbox-put: propname=copyuid value=("1133556790" "1284" "173") mailbox="INBOX.Test" buffer=nil
| | | | | | | | | 10 <- imap-mailbox-put: t
| | | | | | | | 9 <- imap-parse-resp-text-code: t
| | | | | | | 8 <- imap-parse-resp-text: t
| | | | | | 7 <- imap-parse-response: nil
| | | | | | 7 -> imap-find-next-line: 
| | | | | | 7 <- imap-find-next-line: nil
| | | | | 6 <- imap-arrival-filter: nil
| | | | 5 <- imap-wait-for-tag: OK
| | | 4 <- imap-send-command-wait: OK
| | | 4 -> imap-message-copyuid-1: mailbox="INBOX.Test"
| | | | 5 -> imap-capability: identifier=UIDPLUS buffer=nil
| | | | 5 <- imap-capability: (UIDPLUS ID NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY SORT THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE IDLE AUTH=PLAIN AUTH=LOGIN AUTH=GSSAPI SASL-IR LISTEXT LIST-SUBSCRIBED)
| | | 4 <- imap-message-copyuid-1: ("1133556790" 173)
| | 3 <- imap-message-copy: ("1133556790" 173)
| | | 4 -> imap-current-mailbox-p: mailbox="INBOX.Test" examine=nil buffer=nil
| | | | 5 -> imap-current-mailbox-p-1: mailbox="INBOX.Test" examine=nil
| | | | 5 <- imap-current-mailbox-p-1: nil
| | | 4 <- imap-current-mailbox-p: nil
| | | 4 -> imap-mailbox-select: mailbox="INBOX.Test" examine=nil buffer=nil
| | | | 5 -> imap-mailbox-select-1: mailbox="INBOX.Test" examine=nil
| | | | | 6 -> imap-current-mailbox-p-1: mailbox="INBOX.Test" examine=nil
| | | | | 6 <- imap-current-mailbox-p-1: nil
| | | | | 6 -> imap-send-command-wait: command="SELECT \"INBOX.Test\"" buffer=nil
| | | | | | 7 -> imap-send-command: command="SELECT \"INBOX.Test\"" buffer=nil
| | | | | | | 8 -> imap-send-command-1: cmdstr="101 SELECT \"INBOX.Test\""
| | | | | | | 8 <- imap-send-command-1: nil
| | | | | | 7 <- imap-send-command: 101
| | | | | | 7 -> imap-wait-for-tag: tag=101 buffer=nil
| | | | | | | 8 -> imap-arrival-filter: proc=#<process imap> string="* FLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $NotJunk JunkRecorded $Junk gnus-save gnus-expire)
* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $NotJunk JunkRecorded $Junk gnus-save gnus-expire \\*)]  
* 36 EXISTS
* 1 RECENT
* OK [UNSEEN 36]  
* OK [UIDVALIDITY 1133556790]  
* OK [UIDNEXT 174]  
101 OK [READ-WRITE] Completed
"
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 103
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-flag-list: 
| | | | | | | | | 10 <- imap-parse-flag-list: ("\\Answered" "\\Flagged" "\\Draft" "\\Deleted" "\\Seen" "$NotJunk" "JunkRecorded" "$Junk" "gnus-save" "gnus-expire")
| | | | | | | | | 10 -> imap-mailbox-put: propname=flags value=("\\Answered" "\\Flagged" "\\Draft" "\\Deleted" "\\Seen" "$NotJunk" "JunkRecorded" "$Junk" "gnus-save" "gnus-expire") mailbox=nil buffer=nil
| | | | | | | | | 10 <- imap-mailbox-put: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 122
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-resp-text: 
| | | | | | | | | | 11 -> imap-parse-resp-text-code: 
| | | | | | | | | | | 12 -> imap-parse-flag-list: 
| | | | | | | | | | | 12 <- imap-parse-flag-list: ("\\Answered" "\\Flagged" "\\Draft" "\\Deleted" "\\Seen" "$NotJunk" "JunkRecorded" "$Junk" "gnus-save" "gnus-expire" "\\*")
| | | | | | | | | | | 12 -> imap-mailbox-put: propname=permanentflags value=("\\Answered" "\\Flagged" "\\Draft" "\\Deleted" "\\Seen" "$NotJunk" "JunkRecorded" "$Junk" "gnus-save" "gnus-expire" "\\*") mailbox=nil buffer=nil
| | | | | | | | | | | 12 <- imap-mailbox-put: t
| | | | | | | | | | 11 <- imap-parse-resp-text-code: t
| | | | | | | | | 10 <- imap-parse-resp-text: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 14
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-mailbox-put: propname=exists value=36 mailbox=nil buffer=nil
| | | | | | | | | 10 <- imap-mailbox-put: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 13
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-mailbox-put: propname=recent value=1 mailbox=nil buffer=nil
| | | | | | | | | 10 <- imap-mailbox-put: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 21
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-resp-text: 
| | | | | | | | | | 11 -> imap-parse-resp-text-code: 
| | | | | | | | | | | 12 -> imap-mailbox-put: propname=first-unseen value=36 mailbox=nil buffer=nil
| | | | | | | | | | | 12 <- imap-mailbox-put: t
| | | | | | | | | | 11 <- imap-parse-resp-text-code: t
| | | | | | | | | 10 <- imap-parse-resp-text: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 34
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-resp-text: 
| | | | | | | | | | 11 -> imap-parse-resp-text-code: 
| | | | | | | | | | | 12 -> imap-mailbox-put: propname=uidvalidity value="1133556790" mailbox=nil buffer=nil
| | | | | | | | | | | 12 <- imap-mailbox-put: t
| | | | | | | | | | 11 <- imap-parse-resp-text-code: t
| | | | | | | | | 10 <- imap-parse-resp-text: t
| | | | | | | | 9 <- imap-parse-response: t
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 23
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-resp-text: 
| | | | | | | | | | 11 -> imap-parse-resp-text-code: 
| | | | | | | | | | 11 <- imap-parse-resp-text-code: nil
| | | | | | | | | 10 <- imap-parse-resp-text: nil
| | | | | | | | 9 <- imap-parse-response: nil
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: 32
| | | | | | | | 9 -> imap-parse-response: 
| | | | | | | | | 10 -> imap-parse-resp-text: 
| | | | | | | | | | 11 -> imap-parse-resp-text-code: 
| | | | | | | | | | 11 <- imap-parse-resp-text-code: nil
| | | | | | | | | 10 <- imap-parse-resp-text: nil
| | | | | | | | 9 <- imap-parse-response: nil
| | | | | | | | 9 -> imap-find-next-line: 
| | | | | | | | 9 <- imap-find-next-line: nil
| | | | | | | 8 <- imap-arrival-filter: nil
| | | | | | 7 <- imap-wait-for-tag: OK
| | | | | 6 <- imap-send-command-wait: OK
| | | | 5 <- imap-mailbox-select-1: "INBOX.Test"
| | | 4 <- imap-mailbox-select: "INBOX.Test"
| | | | 5 -> imap-mailbox-get: propname=uidvalidity mailbox=nil buffer=nil
| | | | 5 <- imap-mailbox-get: "1133556790"
| | | 4 -> imap-mailbox-get: propname=exists mailbox="INBOX.Test" buffer=nil
| | | 4 <- imap-mailbox-get: 36
| | 3 -> imap-message-flag-permanent-p: flag="\\Seen" mailbox=nil buffer=nil
| | | 4 -> imap-mailbox-get: propname=permanentflags mailbox=nil buffer=nil
| | | 4 <- imap-mailbox-get: ("\\Answered" "\\Flagged" "\\Draft" "\\Deleted" "\\Seen" "$NotJunk" "JunkRecorded" "$Junk" "gnus-save" "gnus-expire" "\\*")
| | 3 <- imap-message-flag-permanent-p: ("\\*")
| | 3 -> imap-message-flags-del: articles="173" flags="\\Seen" silent=nil buffer=nil
| | | 4 -> imap-send-command-wait: command="UID STORE 173 -FLAGS (\\Seen)" buffer=nil
| | | | 5 -> imap-send-command: command="UID STORE 173 -FLAGS (\\Seen)" buffer=nil
| | | | | 6 -> imap-send-command-1: cmdstr="102 UID STORE 173 -FLAGS (\\Seen)"
| | | | | 6 <- imap-send-command-1: nil
| | | | 5 <- imap-send-command: 102
| | | | 5 -> imap-wait-for-tag: tag=102 buffer=nil
| | | | | 6 -> imap-arrival-filter: proc=#<process imap> string="102 OK Completed
"
| | | | | | 7 -> imap-find-next-line: 
| | | | | | 7 <- imap-find-next-line: 19
| | | | | | 7 -> imap-parse-response: 
| | | | | | | 8 -> imap-parse-resp-text: 
| | | | | | | | 9 -> imap-parse-resp-text-code: 
| | | | | | | | 9 <- imap-parse-resp-text-code: nil
| | | | | | | 8 <- imap-parse-resp-text: nil
| | | | | | 7 <- imap-parse-response: nil
| | | | | | 7 -> imap-find-next-line: 
| | | | | | 7 <- imap-find-next-line: nil
| | | | | 6 <- imap-arrival-filter: nil
| | | | 5 <- imap-wait-for-tag: OK
| | | 4 <- imap-send-command-wait: OK
| | 3 <- imap-message-flags-del: t
| 2 -> imap-message-flags-add: articles="1284" flags="\\Deleted" silent=silent buffer=" *nnimap* private"
| | 3 -> imap-send-command-wait: command="UID STORE 1284 +FLAGS.SILENT (\\Deleted)" buffer=nil
| | | 4 -> imap-send-command: command="UID STORE 1284 +FLAGS.SILENT (\\Deleted)" buffer=nil
| | | | 5 -> imap-send-command-1: cmdstr="103 UID STORE 1284 +FLAGS.SILENT (\\Deleted)"
| | | | 5 <- imap-send-command-1: nil
| | | 4 <- imap-send-command: 103
| | | 4 -> imap-wait-for-tag: tag=103 buffer=nil
| | | | 5 -> imap-arrival-filter: proc=#<process imap> string="103 OK Completed
"
| | | | | 6 -> imap-find-next-line: 
| | | | | 6 <- imap-find-next-line: 19
| | | | | 6 -> imap-parse-response: 
| | | | | | 7 -> imap-parse-resp-text: 
| | | | | | | 8 -> imap-parse-resp-text-code: 
| | | | | | | 8 <- imap-parse-resp-text-code: nil
| | | | | | 7 <- imap-parse-resp-text: nil
| | | | | 6 <- imap-parse-response: nil
| | | | | 6 -> imap-find-next-line: 
| | | | | 6 <- imap-find-next-line: nil
| | | | 5 <- imap-arrival-filter: nil
| | | 4 <- imap-wait-for-tag: OK
| | 3 <- imap-send-command-wait: OK
| 2 <- imap-message-flags-add: t
| | 3 -> imap-current-mailbox-p: mailbox="INBOX.Test" examine=nil buffer=nil
| | | 4 -> imap-current-mailbox-p-1: mailbox="INBOX.Test" examine=nil

Re: nnimap: nnimap-request-move-article does not delete the original

[Danny Siu]

Andreas Vögele writes:

  Andreas> When moving a message from one IMAP folder to another folder the
  Andreas> message is copied but the original message isn't deleted.

I have been suffering the exact problem.  It seems to happen if agent is
enabled (which is the default in Gnus).

-- 
Danny Siu

Re: nnimap: nnimap-request-move-article does not delete the original

[Sebastian Tennant]

Danny Siu <dsiu@adobe.com> wrote:

> Andreas Vögele writes:
>
>   Andreas> When moving a message from one IMAP folder to another folder the
>   Andreas> message is copied but the original message isn't deleted.
>
> I have been suffering the exact problem.  It seems to happen if agent is
> enabled (which is the default in Gnus).
>
I too have been suffering the same for some months now, (as well as a
number of other bugs).  This was discussed not so long ago and the
advice then was to set gnus-fetch-old-headers to nil and disable
agent.  I did both of these, as well as setting gnus-nov-is-evil to t,
emptying my gnus-directory and starting from scratch... and the
problem still persists, though strangely, not _all_ the time, which is
almost worse.I've been trying to pin down when it does and deosn't fail, but
without any success.

One thing I have noticed recently is that if I happen to read a new
mail in Thunderbird, (usually while I'm cleaning up after Gnus, i.e.,
deleting articles that haven't been deleted and removing duplicates
because I've moved a message twice), then there's no way I can
retrieve that mail with Gnus, even if I mark it as unread in
Thunderbird.


The other bugs I'm experiencing are dropped connections which I
suspect affects article marks at times, and wildy exagerated article
counts.  For instance Gnus tells me I have 4000 odd messages in my
INBOX whereas in fact I have twelve!

All in all, I'm afraid to say that Gnus' IMAP support is verging on
unusable, which saddens me.  I wish I knew enough/had the time to help
fix things.

sdt

--
(gnus-version)
"No Gnus v0.4"
(emacs-version)
"GNU Emacs 21.4.1 (i486-pc-linux-gnu)
 of 2005-10-03 on trouble, modified by Debian"

Re: nnimap: nnimap-request-move-article does not delete the original message

[Wolfram Fenske]

Andreas Vögele <voegelas <at> gmx.net> writes:

> When moving a message from one IMAP folder to another folder the
> message is copied but the original message isn't deleted.

I'm having the same problem, usign Gnus v5.10.7.
 
> `nnimap-request-move-article' from CVS first evaluates `accept-form',
> which is set to `gnus-request-accept-article', to copy the article.
> Then the original messages's \Deleted flag is set.
> 
> But `gnus-request-accept-article' selects the destination IMAP folder.
> Since the source folder isn't selected again, the \Deleted flag is set
> while the wrong IMAP folder is selected.

Thanks to your hints, I was able to come up with a patch that completely fixes
the problem, at least for me. One line of code before the
(imap-message-flags-add ...) in nnimap-request-move-article:

*** /usr/home/wfenske/share/xemacs/site-lisp/gnus/nnimap.el     Fri Feb 17
00:40:24 2006
--- /usr/local/lib/xemacs/xemacs-packages/lisp/gnus/nnimap.el   Fri Feb 17
05:10:57 2006
***************
*** 1492,1497 ****
--- 1492,1498 ----
               (setq result (eval accept-form))
               (kill-buffer buf)
               result)
+            (nnimap-possibly-change-group group server)
             (imap-message-flags-add
              (imap-range-to-message-set (list article))
              "\\Deleted" 'silent nnimap-server-buffer))


Cheers
Wolfram

Re: nnimap: nnimap-request-move-article does not delete the original

[Danny Siu]

Wolfram,

Thanks for the patch.  I have installed it and finally moved articles in
nnimap are marked correctly for expiration.

Can someone with cvs access submit this patch?

Wolfram Fenske writes:

  Wolfram> Andreas Vögele <voegelas <at> gmx.net> writes:
  >> When moving a message from one IMAP folder to another folder the
  >> message is copied but the original message isn't deleted.

  Wolfram> I'm having the same problem, usign Gnus v5.10.7.
 
  >> `nnimap-request-move-article' from CVS first evaluates `accept-form',
  >> which is set to `gnus-request-accept-article', to copy the article.
  >> Then the original messages's \Deleted flag is set.
  >> 
  >> But `gnus-request-accept-article' selects the destination IMAP folder.
  >> Since the source folder isn't selected again, the \Deleted flag is set
  >> while the wrong IMAP folder is selected.

  Wolfram> Thanks to your hints, I was able to come up with a patch that
  Wolfram> completely fixes the problem, at least for me. One line of code
  Wolfram> before the (imap-message-flags-add ...) in
  Wolfram> nnimap-request-move-article:

  Wolfram> *** /usr/home/wfenske/share/xemacs/site-lisp/gnus/nnimap.el Fri
  Wolfram>     Feb 17
  Wolfram> 00:40:24 2006
  Wolfram> --- /usr/local/lib/xemacs/xemacs-packages/lisp/gnus/nnimap.el Fri
  Wolfram>     Feb 17
  Wolfram> 05:10:57 2006 ***************
  Wolfram> *** 1492,1497 ****
  Wolfram> --- 1492,1498 ----
  Wolfram>                (setq result (eval accept-form)) (kill-buffer buf)
  Wolfram>                result)
  Wolfram> + (nnimap-possibly-change-group group server)
  Wolfram>              (imap-message-flags-add
  Wolfram>               (imap-range-to-message-set (list article))
  Wolfram>               "\\Deleted" 'silent nnimap-server-buffer))


  Wolfram> Cheers Wolfram

-- Danny Siu

Re: nnimap: nnimap-request-move-article does not delete the original

[Katsumi Yamaoka]

>>>>> In <ur75xh2ca.fsf@adobe.com> Danny Siu wrote:

> Wolfram,

> Thanks for the patch.  I have installed it and finally moved articles in
> nnimap are marked correctly for expiration.

> Can someone with cvs access submit this patch?

> Wolfram Fenske writes:

[...]

>>> But `gnus-request-accept-article' selects the destination IMAP folder.
>>> Since the source folder isn't selected again, the \Deleted flag is set
>>> while the wrong IMAP folder is selected.

>   Wolfram> Thanks to your hints, I was able to come up with a patch that
>   Wolfram> completely fixes the problem, at least for me. One line of code
>   Wolfram> before the (imap-message-flags-add ...) in
>   Wolfram> nnimap-request-move-article:

Installed in trunk and v5-10 branch.  A similar change was made
ten years ago in nnml.el. :)