(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))))
 
   :group 'wl-folder)
 
 (defcustom wl-folder-move-cur-folder nil
-  "*Non-nil, move to current folder on folder-mode when goto folder."
+  "*Non-nil, move cursor to current folder on folder buffer when goto folder."
   :type 'boolean
   :group 'wl-folder)