;;
(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
:type '(repeat string)
:group 'wl-summary)
-(defcustom wl-summary-fix-timezone "JST"
- "Non-nil forces to fix timezone of summary date."
- :type 'string
+(defcustom wl-summary-fix-timezone nil
+ "*Time zone of the date string in summary mode.
+If nil, it is adjust to the default time zone information
+\(system's default time zone or environment variable TZ\)."
+ :type '(choice (const :tag "Default time zone" nil)
+ string)
:group 'wl-summary)
(defcustom wl-summary-default-score 0
(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 "[\e$B")\e(B]"
+(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 "[\e$B!>\e(B]"
+(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)