Synch up with main trunk, and prepare the release 2.12.0.

[elisp/wanderlust.git] / wl / wl-news.el.in

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index b76046e..4ca7839 100644 (file)
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -93,7 +93,8 @@
     (let ((filename (expand-file-name
                     wl-news-version-file-name
                     elmo-msgdb-directory))
-         (tmp-buffer (get-buffer-create " *wl-news-version-tmp*")))
+         (tmp-buffer (get-buffer-create " *wl-news-version-tmp*"))
+         print-length print-level)
       (set-buffer tmp-buffer)
       (erase-buffer)
       (prin1 (cons current-version previous-version) tmp-buffer)
@@ -172,7 +173,7 @@
            (and (elmo-folder-writable-p
                  (wl-folder-get-elmo-folder folder))
                 (elmo-folder-append-buffer
-                 (wl-folder-get-elmo-folder folder) t)))
+                 (wl-folder-get-elmo-folder folder))))
       (wl-draft-hide send-buffer)
       (wl-draft-delete send-buffer))
     ret))
@@ -285,8 +286,7 @@
            (setq folder
                  (wl-summary-read-folder wl-default-folder "to append ")))
        (or (wl-news-send-news wl-news-buffer-oldest-version wl-news-lang folder)
-           (error
-            (format "Cannot append NEWS mail to %s" folder))))))
+           (error "Cannot append NEWS mail to %s" folder)))))
 
 (defun wl-news-force-exit ()
   (interactive)