X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-vars.el;h=eb5716750b631d05fdf71c5b317a1ad0cf8c3b32;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=b74737111c5b44a2a66c221c3518f538bda0f89b;hpb=20fab7776b12db2aa3e9fbd624d4808e8a89cf01;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index b747371..eb57167 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -1,4 +1,4 @@ -;;; wl-vars.el -- Variable definitions for Wanderlust. +;;; wl-vars.el --- Variable definitions for Wanderlust. ;; Copyright (C) 1998,1999,2000,2001 Yuuichi Teranishi ;; Copyright (C) 1998,1999,2000,2001 Masahiro MURATA @@ -158,18 +158,18 @@ If you don't have multiple e-mail addresses, you don't have to set this." :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) @@ -195,11 +195,6 @@ If you don't have multiple e-mail addresses, you don't have to set this." :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'." @@ -270,7 +265,13 @@ If nil, `wl-from' is used." :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 @@ -386,12 +387,6 @@ If nil, `elmo-nntp-default-stream-type' is used." :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 @@ -524,6 +519,10 @@ reasons of system internal to accord facilities for the Emacs variants.") "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 @@ -829,7 +828,7 @@ In sync-all or rescan." :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 @@ -1204,6 +1203,38 @@ Each elements are regexp of field-name." :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 + '(("]+>" 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 @@ -1263,6 +1294,12 @@ with wl-highlight-folder-many-face." :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) @@ -1277,8 +1314,9 @@ with wl-highlight-folder-many-face." :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) @@ -1318,15 +1356,17 @@ with wl-highlight-folder-many-face." (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) @@ -1594,19 +1634,25 @@ See also variable `wl-summary-next-no-unread-command'." :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. @@ -1728,7 +1774,7 @@ TYPE is one of the symbols `hide' or `read'. `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) @@ -2076,22 +2122,6 @@ list : reserved specified permanent marks." :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 @@ -2242,7 +2272,7 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." (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" @@ -2306,6 +2336,27 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." ;;;; 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-teporary-file-directory) + +;; 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) @@ -2338,10 +2389,6 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." (elmo-define-obsolete-variable 'wl-summary-temp-above 'wl-summary-target-above) -;; 2000-03-08 -(elmo-define-obsolete-variable 'wl-score-files-directory - 'wl-score-files-dir) - ;; 1999-11-07: Unified with `wl-draft-config-alist'. (defvar wl-draft-prepared-config-alist nil) (make-obsolete-variable 'wl-draft-prepared-config-alist