* wl-vars.el (wl-summary-weekday-name-lang): Set default value

according to current-language-environment.

* wl-news.el.in (wl-news): If arg, show all NEWS after
wl-news-default-previous-version.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 730d5f9..14e7ddc 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-12-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-vars.el (wl-summary-weekday-name-lang): Set default value
+       according to current-language-environment.
+
+       * wl-news.el.in (wl-news): If arg, show all NEWS after
+       wl-news-default-previous-version.
+
 2002-12-21  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-news.el.in (wl-news-check): 

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index 34810ea..6a3cab3 100644 (file)
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -192,10 +192,11 @@
   (setq mode-name "NEWS")
   (setq buffer-read-only t))
 
-(defun wl-news ()
-  (interactive)
+(defun wl-news (&optional arg)
+  (interactive "P")
   (remove-hook 'wl-hook 'wl-news)
-  (let* ((previous-version (cdr (wl-news-previous-version-load)))
+  (let* ((previous-version (if arg wl-news-default-previous-version
+                            (cdr (wl-news-previous-version-load))))
         (lang wl-news-lang)
         window-lines lines)
     (if (or (get-buffer wl-news-buf-name)

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index eb65ec2..21531a2 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1392,7 +1392,11 @@ Allowed situations are:
   :type '(repeat (cons (string :tag "Realname") (string :tag "Petname")))
   :group 'wl-folder)
 
-(defcustom wl-summary-weekday-name-lang "ja"
+(defcustom wl-summary-weekday-name-lang
+  (if (and (boundp 'current-language-environment)
+          (string-equal "Japanese"
+                        (symbol-value 'current-language-environment)))
+      "ja" "en")
   "*Language to display week day."
   :type '(choice (const "ja")
                 (const "en")