Change default value of wl-info-lang

[elisp/wanderlust.git] / elmo / elmo-imap4.el

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 52e4996..624da68 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1474,20 +1474,20 @@ If optional argument UNMARK is non-nil, unmark."
 
 (defun elmo-imap4-append-msg (spec string &optional msg no-see)
   (let ((session (elmo-imap4-get-session spec))
-       send-buf)
+       send-buf result)
     (elmo-imap4-session-select-mailbox session
                                       (elmo-imap4-spec-mailbox spec))
     (setq send-buf (elmo-imap4-setup-send-buffer string))
     (unwind-protect
-       (elmo-imap4-send-command-wait
-        session
-        (list
-         "append "
-         (elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
-         (if no-see " " " (\\Seen) ")
-         (elmo-imap4-buffer-literal send-buf)))
-      (kill-buffer send-buf)))
-  t)
+       (setq result (elmo-imap4-send-command-wait
+                     session
+                     (list
+                      "append "
+                      (elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
+                      (if no-see " " " (\\Seen) ")
+                      (elmo-imap4-buffer-literal send-buf))))
+      (kill-buffer send-buf))
+    result))
 
 (defun elmo-imap4-copy-msgs (dst-spec
                             msgs src-spec &optional expunge-it same-number)
@@ -1602,7 +1602,7 @@ Return nil if no complete line has arrived."
                       (> (string-to-number (match-string 1))
                          (min elmo-display-retrieval-progress-threshold 100)))
                  (elmo-display-progress
-                  'elmo-display-retrieval-progress
+                  'elmo-imap4-display-literal-progress
                   (format "Retrieving (%d/%d bytes)..."
                           (- (point-max) (point))
                           (string-to-number (match-string 1)))