X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-vars.el;h=6d848ce644f71655aeed12554022fb7d56ba0e60;hb=d435474a02bfed44eea9397d4f4673f541a8af84;hp=ce283585c33a773e49b02dd85cdec3e7fa84a0e6;hpb=4c0926c573fd336d678d1795bd3ef84792e076da;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index ce28358..6d848ce 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 @@ -132,9 +132,9 @@ "*Use SEMI or not.") (defcustom wl-from (and user-mail-address - (concat (and user-full-name + (concat (and (user-full-name) (concat (elmo-address-quote-specials - user-full-name) + (user-full-name)) " ")) "<" user-mail-address ">")) "*From string used in draft." @@ -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,12 +265,29 @@ 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 :group 'wl) +(defcustom wl-draft-cite-function 'wl-default-draft-cite + "*A function for citation." + :type 'function + :group 'wl-draft) + +(defcustom wl-default-draft-cite-decorate-author t + "*If non-nil, the author of cited message is arranged by +`wl-summary-from-func-internal' in `wl-default-draft-cite'." + :type 'boolean + :group 'wl-draft) + (defcustom wl-smtp-connection-type nil "*SMTP connection type. If nil, default smtp connection type is used." @@ -353,8 +365,8 @@ If nil, `elmo-pop3-default-stream-type' is used." "*Default Authentication type for POP-before-SMTP. If nil, `elmo-pop3-default-authenticate-type' is used." :type '(choice (const :tag "none" nil) - (const :tag "APOP" "apop") - (const :tag "POP3" "user")) + (const :tag "APOP" 'apop) + (const :tag "POP3" 'user)) :group 'wl :group 'wl-setting) @@ -386,12 +398,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 @@ -407,11 +413,6 @@ when `wl-prefetch-confirm' is non-nil." :group 'wl-pref :group 'wl-setting) -(defcustom wl-cache-prefetch-threshold 30000 - "*Quit forward cache prefetching if message size is larger than this value." - :type 'integer - :group 'wl-pref) - (defcustom wl-thread-insert-opened nil "*Non-nil forces to insert thread as opened in updating." :type 'boolean @@ -766,8 +767,7 @@ Default is for 'followup-to-me'." :type '(string :tag "Mark") :group 'wl-summary-marks) -(defcustom wl-summary-no-mime-folder-list - (list (concat "^" (regexp-quote wl-draft-folder) "$")) +(defcustom wl-summary-no-mime-folder-list nil "*All folders that match this list don't analysis mime." :type '(repeat string) :group 'wl-summary) @@ -833,7 +833,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 @@ -957,6 +957,11 @@ ex. :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") @@ -990,6 +995,24 @@ ex. :group 'wl-draft :group 'wl-pref) +(defcustom wl-draft-force-queuing nil + "*Non-nil forces queued sending for mail and news." + :type 'boolean + :group 'wl-draft + :group 'wl-pref) + +(defcustom wl-draft-force-queuing-mail nil + "*Non-nil forces queued sending for mail." + :type 'boolean + :group 'wl-draft + :group 'wl-pref) + +(defcustom wl-draft-force-queuing-news nil + "*Non-nil forces queued sending for news." + :type 'boolean + :group 'wl-draft + :group 'wl-pref) + (defcustom wl-draft-use-cache nil "*If non-nil, sending message is cached." :type 'boolean @@ -1148,6 +1171,11 @@ Allowed situations are: :group 'wl-summary :group 'wl-pref) +(defcustom wl-message-id-use-wl-from nil + "*Use `wl-from' for domain part of Message-ID if non-nil." + :type 'boolean + :group 'wl-pref) + (defcustom wl-local-domain nil "*Domain part of this client (without hostname). Set this if (system-name) does not return FQDN." @@ -1161,6 +1189,12 @@ Set this if (system-name) does not return FQDN." string) :group 'wl-pref) +(defcustom wl-unique-id-suffix ".wl" + "*Specific string in generated Message-ID +which appear just before @." + :type 'string + :group 'wl-pref) + (defcustom wl-break-pages t "*Break Pages at ^L." :type 'boolean @@ -1227,8 +1261,8 @@ Each elements are regexp of field-name." :group 'wl-pref) (defcustom wl-message-body-button-alist - '(("]+>" 0 'ignore 0) - ("<[^>]+@[^>]+>" 0 wl-message-button-refer-article 0)) + '(("]+>" 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 @@ -1236,7 +1270,8 @@ Each elements are regexp of field-name." (function :tag "Callback") (repeat :tag "Data" :inline t - (integer :tag "Regexp group")))) + (integer :tag "Regexp group")) + (integer :tag "Max Length"))) :group 'wl-pref) (defcustom wl-folder-window-width 20 @@ -1318,8 +1353,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) @@ -1359,15 +1395,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) @@ -1496,25 +1534,26 @@ Only IMAP4 folders have an effect." :group 'wl-folder) (defcustom wl-auto-check-folder-name nil - "*The folder specified by this variable will be automatically checked -at start time." + "*A folder, a group or a list of folders and groups specified which +will be automatically checked at the startup time." :type '(choice (string :tag "Folder") (repeat (string :tag "Folder")) (const none)) :group 'wl-folder) (defcustom wl-auto-uncheck-folder-list '("\\$.*") - "All folders that match this list won't be checked when group is -automatically checked (or desktop is checked). + "All folders that match this list won't be checked at the startup +time even if they are embedded in some groups specified by +wl-auto-check-folder-name. +Those folders are also skipped when you check on the Desktop. This value is preceded by wl-auto-check-folder-list. Each elements are regexp of folder name." :type '(repeat (regexp :tag "Folder Regexp")) :group 'wl-folder) (defcustom wl-auto-check-folder-list nil - "All folders that match this list are checked when group is -automatically checked (or desktop is checked). -This value precedes wl-auto-uncheck-folder-list. + "A list of patterns for exceptional folders against +wl-auto-uncheck-folder-list. Each elements are regexp of folder name." :type '(repeat (regexp :tag "Folder Regexp")) :group 'wl-folder) @@ -1621,6 +1660,12 @@ It uses wl-summary-move-direction-downward as a direction flag." :group 'wl-pref :group 'wl-setting) +(defcustom wl-auto-prefetch-first nil + "*If non-nil, prefetch selected first message when enter summary." + :type 'boolean + :group 'wl-pref + :group 'wl-setting) + (defcustom wl-auto-select-next nil "*If non-nil, offer to go to the next folder from the end of the previous. If the value is the symbol `unread', go to the next folder @@ -1635,19 +1680,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. @@ -1655,6 +1706,21 @@ e.x. :type '(repeat (regexp :tag "Folder Regexp")) :group 'wl-pref) +(defcustom wl-message-buffer-prefetch-depth 3 + "*Depth of buffer prefetch in summary mode." + :type 'integer + :group 'wl-pref) + +(defcustom wl-message-buffer-prefetch-idle-time 0.2 + "*Idle time of buffer prefetch." + :type 'number + :group 'wl-pref) + +(defcustom wl-message-buffer-prefetch-threshold 30000 + "*Quit forward cache prefetching if message size is larger than this value." + :type 'integer + :group 'wl-pref) + (defcustom wl-summary-always-sticky-folder-list nil "All folders that match this list has sticky summary. Each elements are regexp of folder name." @@ -1769,7 +1835,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) @@ -1947,6 +2013,11 @@ ex. (string :tag "Other")) :group 'wl-folder) +(defcustom wl-fldmgr-allow-rename-access-group nil + "*If non-nil, allow to rename folder in access group." + :type 'boolean + :group 'wl-folder) + ;;; For Expire and Archive (defcustom wl-expire-alist nil @@ -2240,7 +2311,11 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." ;; For disconnected operations. (defvar wl-plugged-hook nil) (defvar wl-unplugged-hook nil) -(defvar wl-plugged t) +(defcustom wl-plugged t + "*Plugged state at the startup. Nil means off-line." + :type 'boolean + :group 'wl + :group 'wl-setting) ;; Internal variables used to modeline identifiers. (defvar wl-modeline-plug-status nil) @@ -2267,7 +2342,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" @@ -2331,6 +2406,33 @@ 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-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) @@ -2363,10 +2465,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