From: yoichi <yoichi>
Date: Fri, 11 Jul 2003 21:28:01 +0000 (+0000)
Subject: * wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose
X-Git-Tag: merged-trunk-to-elmo-mark-18~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=286c2949b4320c2b1f8e97e25ce5e90683292b81;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose
default values along the value of wl-on-mule.
(from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl-en:421])
* wl-vars.el (wl-highlight-thread-indent-string-regexp): Remove.
It is not used anywhere.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4f96347..0bde812 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2003-07-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose
+	default values along the value of wl-on-mule.
+	(from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl-en:421])
+	* wl-vars.el (wl-highlight-thread-indent-string-regexp): Remove.
+	It is not used anywhere.
+
 2003-06-16  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-summary.el (wl-summary-print-destination): Keep position.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index b40959b..89dc10e 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2578,22 +2578,19 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 (defvar wl-modeline-biff-state-off wl-biff-state-indicator-off)
 
 ;; Advanced thread view.
-(defvar wl-thread-indent-level 1
+(defvar wl-thread-indent-level (if wl-on-mule 1 2)
   "*Indent level for thread.")
-(defvar wl-thread-have-younger-brother-str "┣"
+(defvar wl-thread-have-younger-brother-str (if wl-on-mule "┣" "+")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-youngest-child-str       "┗"
+(defvar wl-thread-youngest-child-str       (if wl-on-mule "┗" "+")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-vertical-str             "┃"
+(defvar wl-thread-vertical-str             (if wl-on-mule "┃" "|")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-horizontal-str           "━"
+(defvar wl-thread-horizontal-str           (if wl-on-mule "━" "-")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-space-str                "　"
+(defvar wl-thread-space-str                (if wl-on-mule "　" " ")
   "*A string for thread branch line.  It should contain one character.")
 
-(defvar wl-highlight-thread-indent-string-regexp "[^[<]*"
-  "* A regexp string for thread indent...for highlight.")
-
 ;; folder icons. filename relative to wl-icon-directory
 (defvar wl-opened-group-folder-icon "opened.xpm"
   "*Icon file for opened group folder.")