From: yoichi <yoichi>
Date: Sat, 21 Dec 2002 07:55:23 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-weekday-name-lang): Set default value
X-Git-Tag: merged-trunk-to-elmo-mark-14~79
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b276147584709b128fe159b7d5954935960c6a8;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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")