From 9898651b3ab8f07b88a43cc123d8af0024a75677 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 5 Jul 2001 09:40:15 +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. --- wl/ChangeLog | 5 +++++ wl/wl-vars.el | 23 +++++++++++++---------- 2 files changed, 18 insertions(+), 10 deletions(-) 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 + * 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 ;; Copyright (C) 1998,1999,2000,2001 Masahiro MURATA @@ -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 "[^[<]*" -- 1.7.10.4