* wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose
authoryoichi <yoichi>
Fri, 11 Jul 2003 21:28:01 +0000 (21:28 +0000)
committeryoichi <yoichi>
Fri, 11 Jul 2003 21:28:01 +0000 (21:28 +0000)
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.

wl/ChangeLog
wl/wl-vars.el

index 4f96347..0bde812 100644 (file)
@@ -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.
index b40959b..89dc10e 100644 (file)
@@ -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 "\e$B(2\e(B"
+(defvar wl-thread-have-younger-brother-str (if wl-on-mule "\e$B(2\e(B" "+")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-youngest-child-str       "\e$B(1\e(B"
+(defvar wl-thread-youngest-child-str       (if wl-on-mule "\e$B(1\e(B" "+")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-vertical-str             "\e$B(-\e(B"
+(defvar wl-thread-vertical-str             (if wl-on-mule "\e$B(-\e(B" "|")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-horizontal-str           "\e$B(,\e(B"
+(defvar wl-thread-horizontal-str           (if wl-on-mule "\e$B(,\e(B" "-")
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-space-str                "\e$B!!\e(B"
+(defvar wl-thread-space-str                (if wl-on-mule "\e$B!!\e(B" " ")
   "*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.")