;;; wl-vars.el -- Variable definitions for Wanderlust.
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; 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>
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Masahiro MURATA <muse@ba2.so-net.ne.jp>
;; Keywords: mail, net news
;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
:type 'function
:group 'wl-summary)
-(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re[\\^[: ]"
+(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re[\\^[:> ]"
"*If message does not have in-reply-to field nor references field and
subject matches this regexp, search parent message by subject matching."
:type 'string
(defvar wl-summary-divide-thread-when-subject-changed nil
"Divide thread when subject is changed.")
(defvar wl-init-hook nil
- "A hook called when initialization is finished.")
+ "A hook called when initialization is finished. This hook may contain
+the functions `wl-plugged-init-icons' and `wl-biff-init-icons' for
+reasons of system internal to accord facilities for the Emacs variants.")
(defvar wl-hook nil
"A hook called when Wanderlust is invoked.")
(defvar wl-reply-hook nil
"A hook called when Draft is prepared.")
(defvar wl-draft-reedit-hook nil
"A hook called when Draft is re-edited.")
-(defvar wl-draft-send-hook nil
+(defvar wl-draft-send-hook '(wl-draft-config-exec)
"A hook called on the draft editing buffer before sending process starts.")
(defvar wl-mail-send-pre-hook nil
"A hook called just before the mail sending process starts.")
"A hook called when header is highlighted.")
(defvar wl-highlight-message-hook nil
"A hook called when message is highlighted.")
+(defvar wl-save-hook nil
+ "A hook called when save summary and folder status.")
(defvar wl-exit-hook nil
"A hook called when exit wanderlust.")
(defvar wl-folder-suspend-hook nil
"A hook called when suspend wanderlust.")
+(defvar wl-biff-notify-hook nil
+ "A hook called when a biff-notification is invoked.")
(defvar wl-auto-check-folder-pre-hook nil
"A hook called before auto check folders.")
(defvar wl-auto-check-folder-hook nil
(defvar wl-score-mode-hook nil
"A hook called when score mode is started.")
(defvar wl-make-plugged-hook nil
- "A hook called when make plugged alist.
-This hook may contain the functions `wl-plugged-init-icons' and
-`wl-biff-init-icons' for reasons of system internal to accord
-facilities for the Emacs variants.")
+ "A hook called when make plugged alist.")
(defvar wl-plugged-exit-hook nil
"A hook called when exit plugged mode.")
:type 'boolean
:group 'wl-draft)
+(defcustom wl-draft-delete-myself-from-bcc-fcc nil
+ "*Do not insert bcc or fcc if To and Cc fields is a member of
+`wl-subscribed-mailing-list'"
+ :type 'boolean
+ :group 'wl-draft)
+
(defcustom wl-draft-resume-folder-window t
"*Resume folder window in `wl-draft-hide'."
:type 'boolean
:group 'wl-summary
:group 'wl-highlight)
+(defcustom wl-summary-lazy-highlight (and (boundp 'window-scroll-functions)
+ (not wl-on-xemacs))
+ "Non-nil forces lazy summary highlighting using `window-scroll-functions'."
+ :type 'boolean
+ :group 'wl-summary
+ :group 'wl-highlight)
+
(defcustom wl-summary-highlight-partial-threshold 1000
- "Summary is not highlighted entirely if there are lines more than this value."
+ "Summary is not highlighted entirely if there are lines more than this value.
+Available if only `wl-summary-lazy-highlight' is nil."
:type 'integer
:group 'wl-summary
:group 'wl-highlight)
(defcustom wl-summary-partial-highlight-above-lines 30
"If Summary has lines more than `wl-summary-highlight-partial-threshold',
-Summary lines are highlighted partialy above current position."
+Summary lines are highlighted partialy above current position.
+Available if only `wl-summary-lazy-highlight' is nil."
:type 'integer
:group 'wl-summary
:group 'wl-highlight)
:group 'wl-pref
:group 'wl-draft)
+(defcustom wl-subject-prefix-regexp "^[ \t]*\\([Rr][Ee][:>][ \t]*\\)*[ \t]*"
+ "*Regexp matching \"Re: \" in the subject line."
+ :type 'regexp
+ :group 'wl-draft
+ :group 'wl-pref)
+
(defcustom wl-folder-many-unsync-threshold 70
"*Folders which contains messages more than this number are highlighted
with wl-highlight-folder-many-face."
:type 'boolean
:group 'wl-pref)
-(defcustom wl-demo-display-logo (or (and (featurep 'xemacs)
- (if (featurep 'xpm)
- 'xpm 'xbm))
- (and (module-installed-p 'image)
- (if (image-type-available-p 'xpm)
- 'xpm 'xbm))
- (and (module-installed-p 'bitmap)
- 'xbm))
- "If non-nil, show graphic logo in the startup screen.
-You can set it to a symbol `xbm' to limit the image format to
-XBM even if XPM can be shown."
- :type '(radio (const :tag "OFF" nil)
- (const :tag "XBM (possibly BITMAP-MULE)" xbm)
- (sexp :format "ON (any format)" :value t))
+(defcustom wl-demo-display-logo (if (or (featurep 'xemacs)
+ (module-installed-p 'image)
+ (module-installed-p 'bitmap))
+ t)
+ "If it is T, show graphic logo in the startup screen. You can set it to
+a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
+ :type '(radio (const :tag "Off" nil)
+ (const :tag "On (any format)" t)
+ (const xpm)
+ (const xbm)
+ (const :tag "bitmap (using BITMAP-MULE)" bitmap))
:group 'wl-pref)
;;; Internal variables
"*Icon file for no mail existed state.")
(defvar wl-prog-uudecode "uudecode"
"*uudecode program name.")
-(defvar wl-prog-uudecode-arg '("-p") ;; outout is stdout.
+(defvar wl-prog-uudecode-arg nil
"*Arguments for uudecode program.")
-(defvar wl-prog-uudecode-no-stdout-option nil
+(defvar wl-prog-uudecode-no-stdout-option t
"*If non-nil, uudecode program don't have option for output to stdout.")
;; Obsolete variables. for compatibility.