From: teranisi <teranisi>
Date: Thu, 5 Jul 2001 09:40:45 +0000 (+0000)
Subject: * wl-vars.el: Changed file coding system to ISO-2022-JP.
X-Git-Tag: wl-2_6_1~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75d31bb49621e5d422955be60f9ef18271283c1b;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/elmo/ChangeLog b/elmo/ChangeLog
index 14e22e3..3230630 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.6.0 is released.
+
 2001-06-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-network-close-session): Removed 3rd argument.
diff --git a/wl/ChangeLog b/wl/ChangeLog
index e9c4886..0f6f507 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,14 @@
+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.
+
 2001-07-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* 2.6.0 is released.
+
 	* wl-vars.el: Changed file coding system to euc-japan.
 	Added -*-coding:-*- magic to the first line.
 
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index fe79370..d9869e7 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>
@@ -104,8 +104,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)))
 
@@ -1449,12 +1447,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)
@@ -2152,15 +2155,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 "[^[<]*"