-;;; 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>
;;
(require 'elmo-vars)
+(require 'elmo-util)
(if (module-installed-p 'custom)
(require 'custom))
(and wl-on-mule (or wl-on-xemacs
(> emacs-major-version 19))))
-(require 'elmo-vars)
-
(eval-when-compile
(defun-maybe locate-data-directory (a)))
(defvar wl-use-semi (module-installed-p 'mime-view) ; If nil, use tm.
"*Use SEMI or not.")
-(defcustom wl-from (if (boundp 'user-mail-address)
- user-mail-address)
+(defcustom wl-from (and user-mail-address
+ (concat (and user-full-name
+ (concat (elmo-address-quote-specials
+ user-full-name)
+ " "))
+ "<" user-mail-address ">"))
"*From string used in draft."
- :type 'string
+ :type 'string
:group 'wl)
(defcustom wl-user-mail-address-list nil
:type '(repeat string)
:group 'wl)
-(defcustom wl-organization nil
+(defcustom wl-organization (getenv "ORGANIZATION")
"Organization name."
:type '(choice (const :tag "none" nil)
string)
"A hook called when exit wanderlust.")
(defvar wl-folder-suspend-hook nil
"A hook called when suspend wanderlust.")
-(defvar wl-biff-notify-hook nil
+(defvar wl-biff-notify-hook '(beep)
"A hook called when a biff-notification is invoked.")
(defvar wl-biff-unnotify-hook nil
"A hook called when a biff-notification is removed.")
:type '(string :tag "Base")
:group 'wl)
+(defcustom wl-ldap-objectclass "person"
+ "*LDAP objectclass."
+ :type 'string
+ :group 'wl)
+
(defcustom wl-use-ldap nil
"*If non-nil, use LDAP for address completion."
:type 'boolean
(defcustom wl-fcc nil
"*Folder Carbon Copy."
:type '(choice (const :tag "disable" nil)
- string)
+ string function)
:group 'wl-draft
:group 'wl-pref)
(defcustom wl-summary-width 80
"*Set summary line width if non nil."
- :type 'integer
+ :type '(choice (const :tag "Don't truncate" nil)
+ integer)
:group 'wl-summary
:group 'wl-pref)
: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
+ ;; Youbin mark
+ (read "\"[\e$B\\\")\e(B]\"")
+ (if (boundp 'MULE)
+ '*iso-2022-jp*
+ 'iso-2022-jp)))
"String used to show biff status ON."
:type 'string
:group 'wl-highlight)
-(defcustom wl-biff-state-indicator-off "[¡¾]"
+(defcustom wl-biff-state-indicator-off (if (and (featurep 'xemacs)
+ (not (featurep 'mule)))
+ "[--]"
+ (decode-coding-string
+ ;; Japanese short hyphen
+ (read "\"[\e$B!>\e(B]\"")
+ (if (boundp 'MULE)
+ '*iso-2022-jp*
+ 'iso-2022-jp)))
"String used to show biff status OFF."
:type 'string
:group 'wl-highlight)
(sexp :tag "Other" :value title)))
:group 'wl-highlight)
-(defcustom wl-interactive-send nil
+(defcustom wl-interactive-send t
"*If non-nil, require your confirmation when sending draft message."
:type 'boolean
:group 'wl-pref)
;; 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 "[^[<]*"