From 286c2949b4320c2b1f8e97e25ce5e90683292b81 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 11 Jul 2003 21:28:01 +0000 Subject: [PATCH] * wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose default values along the value of wl-on-mule. (from Tatsuya Kinoshita [wl-en:421]) * wl-vars.el (wl-highlight-thread-indent-string-regexp): Remove. It is not used anywhere. --- wl/ChangeLog | 8 ++++++++ wl/wl-vars.el | 15 ++++++--------- 2 files changed, 14 insertions(+), 9 deletions(-) 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 + + * wl-vars.el (wl-thread-indent-level, wl-thread-*-str): Choose + default values along the value of wl-on-mule. + (from Tatsuya Kinoshita [wl-en:421]) + * wl-vars.el (wl-highlight-thread-indent-string-regexp): Remove. + It is not used anywhere. + 2003-06-16 Yoichi NAKAYAMA * 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.") -- 1.7.10.4