nnimap.el (nnimap-process-expiry-targets): Say what target we're expiring articles to.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 594bef2f01cbf1077583b193aac440011cf856a4..5f173b2aeedcc46dd7b66e99143a284d26030814 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -6,6 +6,9 @@
 
 2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-process-expiry-targets): Say what target we're
+       expiring articles to.
+
        * mm-util.el (mm-charset-to-coding-system): Recognise all ANSI.x3.4
        variations as ASCII (bug#5458).
 

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index e78c20bdeefd9d26b991318f96f793782c280f08..e330a4b84e9f25da41ded6ee39dff2606a21d754 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -880,15 +880,18 @@ textual parts.")
          (with-temp-buffer
            (mm-disable-multibyte)
            (when (nnimap-request-article article group server (current-buffer))
-             (nnheader-message 7 "Expiring article %s:%d" group article)
              (when (functionp target)
                (setq target (funcall target group)))
-             (when (and target
-                        (not (eq target 'delete)))
-               (if (or (gnus-request-group target t)
-                       (gnus-request-create-group target))
-                   (nnmail-expiry-target-group target group)
-                 (setq target nil)))
+             (if (and target
+                      (not (eq target 'delete)))
+                 (if (or (gnus-request-group target t)
+                         (gnus-request-create-group target))
+                     (progn
+                       (nnmail-expiry-target-group target group)
+                       (nnheader-message 7 "Expiring article %s:%d to %s"
+                                         group article target))
+                   (setq target nil))
+               (nnheader-message 7 "Expiring article %s:%d" group article))
              (when target
                (push article deleted-articles))))))))
     ;; Change back to the current group again.