* wl-vars.el: Changed file coding system to ISO-2022-JP.

Removed redundant require of elmo-vars.
(wl-biff-state-indicator-on): Changed default value for
xemacs with non-mule environment.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index db3ea59..ff1fd4d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-vars.el: Changed file coding system to ISO-2022-JP.
+       Removed redundant require of elmo-vars.
+       (wl-biff-state-indicator-on): Changed default value for
+       xemacs with non-mule environment.
+
        * wl-summary.el (wl-summary-exec-subr): Fixed problem when
        wl-message-buffer is nil;
        Hide progress bar after moving messages.

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 1dc5c87..b34a4ae 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1,4 +1,4 @@
-;;; wl-vars.el -- Variable definitions for Wanderlust. -*-coding:euc-japan;-*-
+;;; wl-vars.el -- Variable definitions for Wanderlust.
 
 ;; Copyright (C) 1998,1999,2000,2001 Yuuichi Teranishi <teranisi@gohome.org>
 ;; Copyright (C) 1998,1999,2000,2001 Masahiro MURATA <muse@ba2.so-net.ne.jp>
@@ -105,8 +105,6 @@
   (and wl-on-mule (or wl-on-xemacs
                      (> emacs-major-version 19))))
 
-(require 'elmo-vars)
-
 (eval-when-compile
   (defun-maybe locate-data-directory (a)))
 
@@ -1454,12 +1452,17 @@ every intervals specified by wl-biff-check-interval."
   :type 'integer
   :group 'wl-highlight)
 
-(defcustom wl-biff-state-indicator-on "[¢©]"
+(defcustom wl-biff-state-indicator-on (if (and (featurep 'xemacs)
+                                              (not (featurep 'mule)))
+                                         "[Mail]"
+                                       (decode-coding-string
+                                        (read "\"[\e$B\\\")\e(B]\"")
+                                        'iso-2022-jp)) ; Youbin mark
   "String used to show biff status ON."
   :type 'string
   :group 'wl-highlight)
 
-(defcustom wl-biff-state-indicator-off "[¡¾]"
+(defcustom wl-biff-state-indicator-off "[\e$B!>\e(B]"
   "String used to show biff status OFF."
   :type 'string
   :group 'wl-highlight)
@@ -2161,15 +2164,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 "¨²"
+(defvar wl-thread-have-younger-brother-str "\e$B(2\e(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-youngest-child-str       "¨±"
+(defvar wl-thread-youngest-child-str       "\e$B(1\e(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-vertical-str             "¨­"
+(defvar wl-thread-vertical-str             "\e$B(-\e(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-horizontal-str           "¨¬"
+(defvar wl-thread-horizontal-str           "\e$B(,\e(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-space-str                "¡¡"
+(defvar wl-thread-space-str                "\e$B!!\e(B"
   "*A string for thread branch line.  It should contain one character.")
 
 (defvar wl-highlight-thread-indent-string-regexp "[^[<]*"