[Emacs-diffs] /srv/bzr/emacs/trunk r107345: nnimap.el: IMAP command logging improvement; When moving articles between IMAP servers, delete from the correct server

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 107345
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2012-02-20 07:54:56 +0000
message:
  nnimap.el: IMAP command logging improvement; When moving articles between 
IMAP servers, delete from the correct server
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-02-19 23:55:16 +0000
+++ b/lisp/gnus/ChangeLog       2012-02-20 07:54:56 +0000
@@ -1,3 +1,10 @@
+2012-02-20  Lars Ingebrigtsen  <address@hidden>
+
+       * nnimap.el (nnimap-log-command): Add the IMAP address to the log
+       buffer.  Suggested by Herbert Valerio Riedel.
+       (nnimap-request-move-article): Delete the message from the correct IMAP
+       server.
+
 2012-02-19  Vida Gábor  <address@hidden>  (tiny change)
 
        * gnus-demon.el (gnus-demon-init): Don't multiply time twice.

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2012-02-13 22:18:33 +0000
+++ b/lisp/gnus/nnimap.el       2012-02-20 07:54:56 +0000
@@ -868,6 +868,7 @@
          ;; Move the article to a different method.
          (let ((result (eval accept-form)))
            (when result
+             (nnimap-possibly-change-group group server)
              (nnimap-delete-article article)
              result)))))))
 
@@ -1706,7 +1707,8 @@
   (when nnimap-record-commands
     (with-current-buffer (get-buffer-create "*imap log*")
       (goto-char (point-max))
-      (insert (format-time-string "%H:%M:%S") " "
+      (insert (format-time-string "%H:%M:%S")
+             " [" nnimap-address "] "
              (if nnimap-inhibit-logging
                  "(inhibited)\n"
                command))))