X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-news.el.in;h=dee1fbdda5d3717872d40e42caf0e6274891f36f;hb=b2e555277b2bdb26aab81311036b32a2177a272b;hp=020f35a4de736391260057dd9681fcd6df90750d;hpb=6065e76e4b2b37940113dd95cea45f02307e22e7;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index 020f35a..dee1fbd 100644
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -44,7 +44,8 @@
   (if (and (boundp 'current-language-environment)
 	   (string-equal "Japanese"
 			 (symbol-value 'current-language-environment)))
-      '("ja" "en") '("en" "ja")))
+      '("ja" "en") '("en" "ja"))
+	"The list of languages to show NEWS. (order sensitive)")
 
 (defun wl-news-check ()
   (let* ((updated (not (wl-news-already-current-p))))
@@ -92,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)