-;;; wl-vars.el -- Variable definitions for Wanderlust.
+;;; 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>
(defvar wl-cs-noconv
(cond (wl-on-mule3 'binary)
- (wl-on-mule '*noconv*)
- (t nil)))
+ (wl-on-mule '*noconv*)
+ (t nil)))
(defvar wl-cs-autoconv
(cond (wl-on-mule3 'undecided)
- (wl-on-mule '*autoconv*)
- (t nil)))
+ (wl-on-mule '*autoconv*)
+ (t nil)))
(defvar wl-cs-local
(cond (wl-on-mule3 'junet)
- (wl-on-mule '*junet*)
- (t nil)))
+ (wl-on-mule '*junet*)
+ (t nil)))
(defvar wl-cs-cache wl-cs-local)
(defcustom wl-organization (getenv "ORGANIZATION")
"Organization name."
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
-(defcustom wl-tmp-dir "~/tmp/"
+(defcustom wl-temporary-file-directory "~/tmp/"
"*Default temporary directory to save message, part."
:type 'directory
:group 'wl)
-(defcustom wl-icon-dir (if (fboundp 'locate-data-directory)
- (locate-data-directory "wl")
- (let ((icons (expand-file-name "wl/icons/"
- data-directory)))
- (if (file-directory-p icons)
- icons)))
- "*Icon directory (XEmacs or Emacs 21)."
+(defcustom wl-icon-directory (if (fboundp 'locate-data-directory)
+ (locate-data-directory "wl")
+ (let ((icons (expand-file-name "wl/icons/"
+ data-directory)))
+ (if (file-directory-p icons)
+ icons)))
+ "*Directory to load the icon files from, or nil if none."
:type '(choice (const :tag "none" nil)
string)
:group 'wl)
:type 'string
:group 'wl-summary)
-(defcustom wl-summary-update-confirm-threshold 500
- "*Confirm updating summary if message number is larger than this value."
- :type 'integer
- :group 'wl-summary)
-
;; Important folders
(defcustom wl-default-folder "%inbox"
"*Default folder used in `wl-summary-goto-folder'."
:group 'wl
:group 'wl-setting)
-(defcustom wl-draft-add-references t
+(defcustom wl-draft-add-in-reply-to t
+ "*If non-nil, message-id of the cited message is inserted to the
+in-reply-to field of the current draft."
+ :type 'boolean
+ :group 'wl)
+
+(defcustom wl-draft-add-references nil
"*If non-nil, message-id of the cited message is inserted to the
references field of the current draft."
:type 'boolean
(defcustom wl-smtp-posting-user nil
"*SMTP authentication user."
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
"*SMTP port number in `wl-smtp-posting-server'.
If nil, default SMTP port number(25) is used."
:type '(choice (const :tag "Default (25)" nil)
- integer)
+ integer)
:group 'wl
:group 'wl-setting)
To use POP-before-SMTP,
\(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp\)"
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
"*POP3 server for POP-before-SMTP.
If nil, `elmo-pop3-default-server' is used."
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
"*NNTP server name to post news.
If nil, `elmo-nntp-default-server' is used."
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
(defcustom wl-nntp-posting-user nil
If nil, `elmo-nntp-default-user' is used.
If nil, don't authenticate."
:type '(choice (const :tag "none" nil)
- string)
+ string)
:group 'wl
:group 'wl-setting)
(defcustom wl-nntp-posting-port nil
:type 'boolean
:group 'wl)
-(defcustom wl-fetch-confirm-threshold 30000
- "*Confirm fetching if message size is larger than this value."
- :type 'integer
- :group 'wl-pref
- :group 'wl-setting)
-
(defcustom wl-prefetch-confirm t
"*Confirm prefetching if message size is larger than `wl-prefetch-threshold'."
:type 'boolean
"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 '(ding)
"A hook called when a biff-notification is invoked.")
(defvar wl-biff-unnotify-hook nil
"A hook called when a biff-notification is removed.")
"A hook called when summary line is inserted.")
(defvar wl-summary-insert-headers-hook nil
"A hook called when insert header for search header.")
+(defvar wl-message-display-internal-hook nil
+ "A hook called when message buffer is created and message is displayed.
+This hook may contain the functions `wl-setup-message' for
+reasons of system internal to accord facilities for the Emacs variants.")
(defvar wl-thread-update-children-number-hook nil
"A hook called when children number is updated.")
(defvar wl-folder-update-access-group-hook nil
"A hook called when score mode is started.")
(defvar wl-make-plugged-hook nil
"A hook called when make plugged alist.")
-(defvar wl-biff-notify-hook '(beep)
- "A hook called when a biff-notification is invoked.")
(defvar wl-plugged-exit-hook nil
"A hook called when exit plugged mode.")
:group 'wl-summary)
(defcustom wl-summary-fix-timezone nil
- "*Time zone of the date string in summary mode.
+ "*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)
:type 'integer
:group 'wl-score)
-(defcustom wl-score-files-dir (concat elmo-msgdb-dir elmo-path-sep)
+(defcustom wl-score-files-directory (concat elmo-msgdb-directory elmo-path-sep)
"*Name of the directory where score files will be stored.
(default \"~/.elmo\")."
:type 'directory
:group 'wl-draft
:group 'wl-setting)
+(defcustom wl-draft-elide-ellipsis "\n[...]\n\n"
+ "*The string which is inserted for elided text."
+ :type 'string
+ :group 'wl-draft)
+
(defcustom wl-template-alist nil
"Alist of template."
:type '(repeat (list (string :tag "Name")
"*Domain part of this client (without hostname).
Set this if (system-name) does not return FQDN."
:type '(choice (const :tag "Use System Name" nil)
- string)
+ string)
:group 'wl-pref)
(defcustom wl-message-id-domain nil
"*Specific domain part of Message-ID."
:type '(choice (const :tag "Use System Name" nil)
- string)
+ string)
:group 'wl-pref)
(defcustom wl-break-pages t
:group 'wl-pref
:group 'wl-setting)
+(defcustom wl-message-header-button-alist
+ (` (("^\\(References\\|Message-Id\\|In-Reply-To\\):"
+ "<[^>]+>"
+ 0 wl-message-button-refer-article 0)
+ ("^[^:]+:"
+ "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
+ 1 wl-message-button-refer-article 3)))
+ "Alist of headers and regexps to match buttons in message headers."
+ :type '(repeat
+ (list (regexp :tag "Header")
+ regexp
+ (integer :tag "Button")
+ (function :tag "Callback")
+ (repeat :tag "Data"
+ :inline t
+ (integer :tag "Regexp group"))))
+ :group 'wl-pref)
+
+(defcustom wl-message-body-button-alist
+ '(("<mailto:[^>]+>" 0 'ignore 0 1024)
+ ("<[^>]+@[^>]+>" 0 wl-message-button-refer-article 0 1024))
+ "Alist of regexps to match buttons in message body."
+ :type '(repeat
+ (list regexp
+ (integer :tag "Button")
+ (function :tag "Callback")
+ (repeat :tag "Data"
+ :inline t
+ (integer :tag "Regexp group"))
+ (integer :tag "Max Length")))
+ :group 'wl-pref)
+
(defcustom wl-folder-window-width 20
"*Width of folder window."
:type 'integer
(defcustom wl-fcc nil
"*Folder Carbon Copy."
:type '(choice (const :tag "disable" nil)
- string function)
+ string function)
+ :group 'wl-draft
+ :group 'wl-pref)
+
+(defcustom wl-fcc-force-as-read nil
+ "*If non-nil, mark copied message as read."
+ :type 'boolean
:group 'wl-draft
:group 'wl-pref)
(defcustom wl-bcc nil
"*Blind Carbon Copy."
:type '(choice (const :tag "disable" nil)
- string)
+ string)
:group 'wl-draft
:group 'wl-pref)
:group 'wl-pref)
(defcustom wl-summary-indent-length-limit 46
- "*Limit of indent length for thread."
- :type 'integer
+ "*Limit of indent length for thread. Nil means unlimited"
+ :type '(choice (const :tag "Unlimited" nil)
+ integer)
:group 'wl-summary
:group 'wl-pref)
(string :tag "Other"))
:group 'wl-summary)
-(defcustom wl-from-width 17
+(defcustom wl-summary-from-width 17
"*From width in summary."
:type 'integer
:group 'wl-summary
:group 'wl-pref)
-(defcustom wl-subject-length-limit 35
- "*Subject width in summary."
- :type 'integer
+(defcustom wl-summary-subject-length-limit nil
+ "*Set subject width in summary when wl-summary-width is nil.
+Nil means unlimited"
+ :type '(choice (const :tag "Unlimited" nil)
+ integer)
:group 'wl-summary
:group 'wl-pref)
(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)))
+ "[\e$B!>\e(B]")
"String used to show biff status OFF."
:type 'string
:group 'wl-highlight)
:group 'wl-pref
:group 'wl-setting)
-(defcustom wl-cache-prefetch-folder-type-list '(imap4 nntp)
+(defcustom wl-message-buffer-prefetch-folder-type-list t
"*All folder types that match this list prefetch next message,
and reserved buffer cache."
- :type '(set (const localdir)
- (const localnews)
- (const imap4)
- (const nntp)
- (const pop3)
- (const archive)
- (const internal))
+ :type `(choice (const :tag "all" t)
+ (const :tag "never" nil)
+ (set (const localdir)
+ (const localnews)
+ (const maildir)
+ (const imap4)
+ (const nntp)
+ (const pop3)
+ (const shimbun)
+ (const nmz)
+ (const archive)
+ (const mark)
+ (const cache)))
:group 'wl-pref)
-(defcustom wl-cache-prefetch-folder-list nil
+(defcustom wl-message-buffer-prefetch-folder-list nil
"*All folders that match this list prefetch next message,
and reserved buffer cache.
e.x.
`read' means mark as read duplicated messages.
If TYPE is nil, do nothing for duplicated messages."
:type '(repeat (cons (regexp :tag "Folder regexp")
- (choice (const :tag "Hide" kill)
+ (choice (const :tag "Hide" hide)
(const :tag "Mark as read" read))))
:group 'wl-folder)
:type '(repeat (cons regexp face))
:group 'wl-highlight)
-(defcustom wl-highlight-message-header-button-alist
- (` (("^\\(References\\|Message-Id\\|In-Reply-To\\):" "<[^>]+>"
- 0 wl-message-button-refer-article 0)
- ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
- 1 wl-message-button-refer-article 3)))
- "Alist of headers and regexps to match buttons in message headers."
- :type '(repeat
- (list (regexp :tag "Header")
- regexp
- (integer :tag "Button")
- (function :tag "Callback")
- (repeat :tag "Data"
- :inline t
- (integer :tag "Regexp group"))))
- :group 'wl-highlight)
-
(defcustom wl-highlight-citation-prefix-regexp
"^[>|:} ]*[>|:}]\\([^ \n>]*>\\)?\\|^[^ <\n>]*>"
"All lines that match this regexp will be highlighted with
(defvar wl-highlight-thread-indent-string-regexp "[^[<]*"
"* A regexp string for thread indent...for highlight.")
-;; folder icons. filename relative to wl-icon-dir
+;; folder icons. filename relative to wl-icon-directory
(defvar wl-opened-group-folder-icon "opened.xpm"
"*Icon file for opened group folder.")
(defvar wl-closed-group-folder-icon "closed.xpm"
(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.
-(defvar wl-address-filename wl-address-file)
-(make-obsolete-variable 'wl-address-filename 'wl-address-file)
-(defvar wl-score-default-file-name wl-score-default-file)
-(make-obsolete-variable 'wl-score-default-file-name 'wl-score-default-file)
-(defvar wl-draft-prepared-config-alist nil)
-(make-obsolete-variable 'wl-draft-prepared-config-alist 'wl-draft-config-alist)
-(defvar wl-score-files-directory wl-score-files-dir)
-(make-obsolete-variable 'wl-score-files-directory 'wl-score-files-dir)
-(defvar wl-summary-temp-above wl-summary-target-above)
-(make-obsolete-variable 'wl-summary-temp-above 'wl-summary-target-above)
-
;; plug
(defvar wl-plugged-plug-on "ON")
(defvar wl-plugged-plug-off "--")
(defvar wl-plugged-port-indent 4)
(defvar wl-plugged-queue-status-column 25)
-;; Obsolete variables.
+;;;; Obsolete variables.
+
+;; 2001-12-11: *-dir -> *-directory
+(elmo-define-obsolete-variable 'wl-icon-dir
+ 'wl-icon-directory)
+(elmo-define-obsolete-variable 'wl-mime-save-dir
+ 'wl-mime-save-directory)
+(elmo-define-obsolete-variable 'wl-score-files-dir
+ 'wl-score-files-directory)
+(elmo-define-obsolete-variable 'wl-tmp-dir
+ 'wl-temporary-file-directory)
+
+;; 2001-12-07
+(elmo-define-obsolete-variable 'wl-from-width
+ 'wl-summary-from-width)
+(elmo-define-obsolete-variable 'wl-subject-length-limit
+ 'wl-summary-subject-length-limit)
+
+;; 2001-12-10
+(elmo-define-obsolete-variable 'wl-summary-update-confirm-threshold
+ 'elmo-folder-update-threshold)
+(elmo-define-obsolete-variable 'wl-fetch-confirm-threshold
+ 'elmo-message-fetch-threshold)
+
+(elmo-define-obsolete-variable 'wl-cache-prefetch-folder-type-list
+ 'wl-message-buffer-prefetch-folder-type-list)
+(elmo-define-obsolete-variable 'wl-cache-prefetch-folder-list
+ 'wl-message-buffer-prefetch-folder-list)
+
+;; 2001-02-27: *-func -> *-function
(elmo-define-obsolete-variable 'wl-summary-from-func
'wl-summary-from-function)
(elmo-define-obsolete-variable 'wl-summary-subject-func
(elmo-define-obsolete-variable 'wl-highlight-signature-search-func
'wl-highlight-signature-search-function)
+;; 2000-01-25: temp mark -> target mark
+(elmo-define-obsolete-variable 'wl-summary-temp-above
+ 'wl-summary-target-above)
+
+;; 1999-11-07: Unified with `wl-draft-config-alist'.
+(defvar wl-draft-prepared-config-alist nil)
+(make-obsolete-variable 'wl-draft-prepared-config-alist
+ 'wl-draft-config-alist)
+
+;; 1999-10-10
+(elmo-define-obsolete-variable 'wl-address-filename
+ 'wl-address-file)
+(elmo-define-obsolete-variable 'wl-score-default-file-name
+ 'wl-score-default-file)
+
+
(require 'product)
(product-provide (provide 'wl-vars) (require 'wl-version))
projects / elisp / wanderlust.git / blobdiff