From: teranisi <teranisi>
Date: Thu, 5 Jul 2001 09:40:15 +0000 (+0000)
Subject: * wl-vars.el: Changed file coding system to ISO-2022-JP.
X-Git-Tag: wl-2_7_2~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9898651b3ab8f07b88a43cc123d8af0024a75677;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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 "[$B!>(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 "$B(2(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-youngest-child-str       "¨±"
+(defvar wl-thread-youngest-child-str       "$B(1(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-vertical-str             "¨­"
+(defvar wl-thread-vertical-str             "$B(-(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-horizontal-str           "¨¬"
+(defvar wl-thread-horizontal-str           "$B(,(B"
   "*A string for thread branch line.  It should contain one character.")
-(defvar wl-thread-space-str                "¡¡"
+(defvar wl-thread-space-str                "$B!!(B"
   "*A string for thread branch line.  It should contain one character.")
 
 (defvar wl-highlight-thread-indent-string-regexp "[^[<]*"