From 75d31bb49621e5d422955be60f9ef18271283c1b Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 5 Jul 2001 09:40:45 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 4 ++++ wl/ChangeLog | 9 +++++++++ wl/wl-vars.el | 23 +++++++++++++---------- 3 files changed, 26 insertions(+), 10 deletions(-) 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 + + * 2.6.0 is released. + 2001-06-18 Yuuichi Teranishi * 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 + + * 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 + * 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 ;; Copyright (C) 1998,1999,2000,2001 Masahiro MURATA @@ -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 "[^[<]*" -- 1.7.10.4