From 0b276147584709b128fe159b7d5954935960c6a8 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 21 Dec 2002 07:55:23 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 8 ++++++++ wl/wl-news.el.in | 7 ++++--- wl/wl-vars.el | 6 +++++- 3 files changed, 17 insertions(+), 4 deletions(-) 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 + + * 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 * 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") -- 1.7.10.4