[mew-int 2288] Refiling many emails

[Harald Barth]

When refiling many messages, and one imap folder does not exist, the
error message is something like: "Mailbox name is wrong!" But WHAT
mailbox? WHAT message?

I added (mew-imap-message pnm "Refiling uid %s to %s" uid dst) to the
function below, but I think a better error message would be superiour
to my solution.

Harald.

(defun mew-imap-command-copy (pro pnm)
  (mew-net-status1
   (mew-imap-get-status-buf pnm) "Refiling"
   (mew-imap-get-rgttl pnm) (mew-imap-get-rgcnt pnm) (mew-imap-secure-p pnm))
  (let* ((case (mew-imap-get-case pnm))
         (spam (mew-imap-get-spam pnm))
         (rtrs (mew-imap-get-rtrs pnm))
         (rtr (car rtrs))
         (dst (nth 0 rtr))
         (uid (nth 1 rtr)))
    (if (null rtr)
        (cond
         ((mew-imap-get-dels pnm)
          (mew-imap-set-status pnm "dels")
          (mew-imap-command-dels pro pnm))
         (t
          (mew-imap-set-status pnm "logout")
          (mew-imap-command-logout pro pnm)))
      (mew-imap-set-rgcnt pnm (1+ (mew-imap-get-rgcnt pnm)))
      (mew-imap-set-rtrs pnm (cdr rtrs))
      (setq dst (mew-imap-expand-mailbox
                 case (mew-imap-utf-7-encode-string dst)))
      (mew-imap-set-rfl pnm rtr)
      (mew-imap-message pnm "Refiling uid %s to %s" uid dst)
      (if spam
          (mew-imap-process-send-string pro pnm "COPY %s \"%s\"" uid dst)
        (mew-imap-process-send-string pro pnm "UID COPY %s \"%s\"" uid dst)))))