Fixed last change.

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 9e9335b..0a2e6cb 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -850,6 +850,7 @@ set as non-nil.")
        (elmo-pop3-send-command process
                                (format "retr %s" number))
        (setq elmo-pop3-total-size size)
+       (message "Retrieving...")
        (unwind-protect
            (progn
              (when (null (setq response (elmo-pop3-read-response
@@ -857,6 +858,7 @@ set as non-nil.")
                (error "Fetching message failed"))
              (setq response (elmo-pop3-read-body process outbuf)))
          (setq elmo-pop3-total-size nil))
+       (message "Retrieving...done.")
        (set-buffer outbuf)
        (goto-char (point-min))
        (while (re-search-forward "^\\." nil t)