From: teranisi <teranisi>
Date: Wed, 27 Jun 2001 07:11:29 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-fix-timezone): Changed default value to nil;
X-Git-Tag: wl-2_7_2~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cfb5be4cf11b56ed15e343368f65bcab59dd1a05;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-summary-fix-timezone): Changed default value to nil;
Fixed docstring.

* doc/wl-ja.texi, doc/wl.texi:
Updated description about `wl-summary-fix-timezone'.
---

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 8cb2d83..b40395c 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -3437,9 +3437,11 @@ Non-nil $B$J$i%U%)%k%@$K0\F0$7$?;~$K:G=i$N%a%C%;!<%8$r<+F0E*$KI=<($7$^$9!#(B
 $B1Q8l!"(B@samp{fr} $B$J$i%U%i%s%98l!"(B@samp{de} $B$J$i%I%$%D8l$H$J$j$^$9!#(B
 
 @item wl-summary-fix-timezone
-@vindex  wl-summary-fix-timezone
-$B=i4|@_Dj$O(B @samp{JST}$B!#%5%^%j$NF|;~I=<($r;XDj$7$?%?%$%`%>!<%s$KD>$7$^$9!#(B
-@code{nil} $B$J$i(B GMT $B$KD>$7$^$9!#(B
+@vindex wl-summary-fix-timezone
+$B=i4|@_Dj$O(B @samp{nil}$B!#%5%^%j$NF|;~I=<($r;XDj$7$?%?%$%`%>!<%s$KD>$7$^$9!#(B
+@code{nil} $B$J$i$P!"%G%U%)%k%H$N%?%$%`%>!<%s$r;2>H$7$FD>$7$^$9!#(B
+$B%G%U%)%k%H$N%?%$%`%>!<%s$H$O!"%7%9%F%`$K$"$i$+$8$a@_Dj$5$l$?%?%$%`%>!<%s$+!"(B
+$B4D6-JQ?t(B @samp{TZ} $B$NCM$G$9!#(B
 
 @item wl-use-petname
 @vindex  wl-use-petname
diff --git a/doc/wl.texi b/doc/wl.texi
index bd5e6f3..659f735 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -3437,9 +3437,11 @@ The initial setting is @samp{ja}.  Specify language of the weekday.
 displays Deutsch.
 
 @item wl-summary-fix-timezone
-@vindex  wl-summary-fix-timezone
-The initial setting is @samp{JST}.  Timezone to adjust summary's
-timezone.  If @code{nil}, adjust to GMT.
+@vindex wl-summary-fix-timezone
+The initial setting is @samp{nil}. 
+Time zone of the date string in summary mode is adjusted using this value.
+If @code{nil}, it is adjust to the default time zone information
+(system's default time zone or environment variable @samp{TZ}).
 
 @item wl-use-petname
 @vindex  wl-use-petname
diff --git a/wl/ChangeLog b/wl/ChangeLog
index defeb09..9252652 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-summary-fix-timezone): Changed default value to nil;
+	Fixed docstring.
+
 2001-06-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-sync-update): If sync-result is non-nil,
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index fae2d42..3caf7d9 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -733,9 +733,12 @@ Default is for 'followup-to-me'."
   :type '(repeat string)
   :group 'wl-summary)
 
-(defcustom wl-summary-fix-timezone "JST"
-  "Non-nil forces to fix timezone of summary date."
-  :type 'string
+(defcustom wl-summary-fix-timezone nil
+  "*Time zone of the date string in summary mode. 
+If nil, it is adjust to the default time zone information
+\(system's default time zone or environment variable TZ\)."
+  :type '(choice (const :tag "Default time zone" nil)
+		 string)
   :group 'wl-summary)
 
 (defcustom wl-summary-default-score 0
@@ -1451,12 +1454,12 @@ every intervals specified by wl-biff-check-interval."
   :type 'integer
   :group 'wl-highlight)
 
-(defcustom wl-biff-state-indicator-on "[$B")(B]"
+(defcustom wl-biff-state-indicator-on "[¢©]"
   "String used to show biff status ON."
   :type 'string
   :group 'wl-highlight)
 
-(defcustom wl-biff-state-indicator-off "[$B!>(B]"
+(defcustom wl-biff-state-indicator-off "[¡¾]"
   "String used to show biff status OFF."
   :type 'string
   :group 'wl-highlight)
@@ -2158,15 +2161,15 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 ;; Advanced thread view.
 (defvar wl-thread-indent-level 1
   "*Indent level for thread.")
-(defvar wl-thread-have-younger-brother-str "$B(2(B"
+(defvar wl-thread-have-younger-brother-str "¨²"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-youngest-child-str       "$B(1(B"
+(defvar wl-thread-youngest-child-str       "¨±"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-vertical-str             "$B(-(B"
+(defvar wl-thread-vertical-str             "¨­"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-horizontal-str           "$B(,(B"
+(defvar wl-thread-horizontal-str           "¨¬"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-space-str                "$B!!(B"
+(defvar wl-thread-space-str                "¡¡"
   "*A string for thread branch line.  It should contain one character.")
 
 (defvar wl-highlight-thread-indent-string-regexp "[^[<]*"