X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-vars.el;h=329754ecb0c792adc530daed98345b9e83760106;hb=ec4e50677163a03593169c0d1a1c5ea833ff52df;hp=6a7d702a0a8fc05b43ac33ba257c7e8419d4d4b3;hpb=fd6b0d6017ad425c6e04fc3e6cdc91712895c3fa;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 6a7d702..329754e 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -524,21 +524,22 @@ If nil, `wl-from' is used." "*Additional headers in the draft." :type '(repeat (cons (symbol :tag "Field Name") (choice (string :tag "String") - (function :tag "Function"))))) + (function :tag "Function")))) + :group 'wl-draft) (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. Note: default value follows RFC2822." :type 'boolean - :group 'wl) + :group 'wl-draft) (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. Note: default value follows RFC2822." :type 'boolean - :group 'wl) + :group 'wl-draft) (defcustom wl-draft-cite-function 'wl-default-draft-cite "*A function for citation." @@ -631,7 +632,8 @@ If nil, `elmo-pop3-default-port' is used." (defcustom wl-pop-before-smtp-stream-type nil "*Stream type for POP-before-SMTP. If nil, `elmo-pop3-default-stream-type' is used." - :type 'boolean + :type '(choice (const :tag "Use `elmo-pop3-default-stream-type'" nil) + symbol) :group 'wl) (defcustom wl-pop-before-smtp-authenticate-type nil @@ -668,7 +670,8 @@ If nil, `elmo-nntp-default-port' is used." (defcustom wl-nntp-posting-stream-type nil "*Stream type for posting Netnews. If nil, `elmo-nntp-default-stream-type' is used." - :type 'boolean + :type '(choice (const :tag "Use `elmo-nntp-default-stream-type'" nil) + symbol) :group 'wl) (defcustom wl-nntp-posting-function 'elmo-nntp-post "A function to post news. @@ -724,6 +727,12 @@ when `wl-prefetch-confirm' is non-nil." :type 'boolean :group 'wl-summary) +(defcustom wl-additional-search-condition-fields nil + "*A list of field name which is used for candidates of search condition." + :type '(repeat (string :tag "Field name")) + :group 'wl-pref + :group 'wl-setting) + ;;;; Hooks (defvar wl-folder-mode-hook nil "A hook called when wanderlust folder mode is started. @@ -892,6 +901,16 @@ Prepared candidates are 'wl-draft-send-mail-with-smtp, (function :tag "Other")) :group 'wl-draft) +(defcustom wl-draft-send-confirm-type 'y-or-n-p + "*Confirmation type or function to use when send a message." + :type '(choice + (const :tag "y or n with scroll (j/k)" scroll-by-j/k) + (const :tag "y or n with scroll (SPC/BS)" scroll-by-SPC/BS) + (function-item y-or-n-p) + (function-item yes-or-no-p) + (function :tag "Other function")) + :group 'wl-draft) + (defcustom wl-draft-reply-with-argument-list '(("From" . (("Reply-To" "Mail-Reply-To" "From") ("Mail-Followup-To" "To" "Cc") @@ -1034,7 +1053,8 @@ cdr of each cons cell is used for preparing headers of draft message." :type 'boolean :group 'wl-folder) -(defcustom wl-summary-persistent-mark-priority-list '(flag +(defcustom wl-summary-persistent-mark-priority-list '(killed + flag new answered forwarded @@ -1061,6 +1081,11 @@ Example: (const :tag "Default mark" nil)))) :group 'wl-summary) +(defcustom wl-summary-killed-mark "X" + "Mark for killed message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + (defcustom wl-summary-uncached-mark "!" "Mark for uncached message with no flag." :type '(string :tag "Mark") @@ -1135,6 +1160,12 @@ If nil, it is adjust to the default time zone information string) :group 'wl-summary) +(defcustom wl-summary-message-ring-max 16 + "*Maximum size of message ring on summary buffer. +Start discarding off end if gets this big." + :type 'integer + :group 'wl-summary) + (defcustom wl-summary-default-score 0 "*Default message score level. All scores generated by the score files will be added to this score. @@ -1190,7 +1221,7 @@ In sync-all or rescan." (defcustom wl-score-files-directory (concat elmo-msgdb-directory elmo-path-sep) "*Name of the directory where score files will be stored. -(default \"~/.elmo\")." +\(default \"~/.elmo\")." :type 'directory :group 'wl) @@ -1644,6 +1675,11 @@ which appear just before @." :type 'boolean :group 'wl-pref) +(defcustom wl-message-auto-reassemble-message/partial nil + "*Reassemble message/partial messages automatically on show when non-nil." + :type 'boolean + :group 'wl-pref) + (defcustom wl-message-use-header-narrowing t "Use header narrowing when non-nil." :type 'boolean @@ -1988,21 +2024,28 @@ Attributes specified in the `wl-draft-preview-attributes-list' are displayed." :type 'boolean :group 'wl-draft) -(defcustom wl-draft-preview-attributes-list '(recipients - envelope-from - smtp-posting-server - smtp-posting-port) +(defcustom wl-draft-preview-attributes-list '((mail recipients + envelope-from + smtp-posting-server + smtp-posting-port) + (news newsgroups + nntp-posting-server + nntp-posting-port)) "*Attribute symbols to display in the draft preview. Candidates are following: `recipients' `envelope-from' `smtp-posting-server' `smtp-posting-port' +`newsgroups' `nntp-posting-server' `nntp-posting-port' Also variables which begin with `wl-' can be specified \(`wl-' have to be removed\)" - :type '(repeat symbol) + :type '(choice (repeat (cons (choice (const :tag "Mail" mail) + (const :tag "News" news)) + (repeat symbol))) + (repeat symbol)) :group 'wl-draft) (defcustom wl-draft-preview-attributes-buffer-lines 5 @@ -2235,6 +2278,12 @@ See also variable `wl-summary-next-no-unread-command'." :group 'wl-pref :group 'wl-setting) +(defcustom wl-message-popup-buffers '(mime-echo-buffer-name epa-info-buffer) + "*List of buffer or name which is popped up with message buffer." + :type '(repeat (choice (symbol :tag "Variable") + (string :tag "Buffer name"))) + :group 'wl-setting) + (defcustom wl-message-buffer-name " *WL:Message*" "*Buffer name for message buffers." :group 'wl-pref @@ -2252,7 +2301,7 @@ and reserved buffer cache." (const nntp) (const pop3) (const shimbun) - (const nmz) + (const search) (const archive) (const mark) (const cache))) @@ -2452,7 +2501,8 @@ already existing summary." (defcustom wl-summary-showto-folder-regexp nil "Regexp specifying the folder that shows the To (or Newsgroups) field as -Sender information in summary mode." +Sender information in summary mode. It is effective when the value of +`wl-summary-from-function' is `wl-summary-default-from'" :type '(choice (const :tag "none" nil) regexp) :group 'wl-summary) @@ -2462,6 +2512,12 @@ Sender information in summary mode." :type 'string :group 'wl-summary) +(defcustom wl-summary-resend-use-cache nil + "*Non-nil to enable offline resending by using file cache. +Note that strict message identity is not guaranteed when cache is used." + :type 'boolean + :group 'wl-summary) + (defcustom wl-folder-removed-mark "#" "Mark for removed folder." :type 'string @@ -2496,7 +2552,7 @@ ex. (string :tag "Folder")))) :group 'wl-folder) -(defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)" +(defcustom wl-folder-hierarchy-access-folders '("^-[^.]*\\(:\\|@\\|$\\)" "^@$" "^'$") "*Access group REGEXPs to make hierarchy structure." :type '(repeat (string :tag "Regexp")) @@ -2828,7 +2884,7 @@ This variable can also be a regex." (defcustom wl-highlight-summary-line-help-echo-alist '((flag wl-highlight-flag-folder-help-echo) - (nmz elmo-message-file-name)) + (search elmo-message-file-name)) "*Alist to display help-echo in summary buffer. Each element is (folder-type handler(function)). Handler take two arguments elmo-folder and message number and return string." @@ -2886,6 +2942,41 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." :type 'string :group 'wl-pref) +(defcustom wl-use-pgp-module + (condition-case nil + (progn + (require 'epg-config) + (epg-check-configuration (epg-configuration)) + 'epg) + (error 'pgg)) + "*Which PGG library to be used." + :type '(choice (const :tag "EasyPG Library" epg) + (const :tag "PGG Library" pgg) + (const :tag "Don't use PGP" nil)) + :group 'wl-pref) + +(defcustom wl-display-progress-threshold + '((wl-folder-insert-entity . 100) + (elmo-retrieve-message . 3000) + (t . 20)) + "*Displaying progress message if number of total are more than this value." + :type '(choice (const :tag "No display" nil) + (const :tag "No limitation" 0) + (integer :tag "For all") + (repeat :tag "Each label" + (cons (choice (const :tag "Default" t) + (symbol :tag "Label")) + (choice (const :tag "No display" nil) + (const :tag "No limitation" 0) + (integer :tag "Threshold"))))) + :group 'wl-pref) + +(defcustom wl-display-progress-function #'wl-simple-display-progress + "*A function to display progress message" + :type '(choice (const :tag "No display" nil) + (function :tag "Function")) + :group 'wl-pref) + ;;; Internal variables (defvar wl-init nil) @@ -2945,14 +3036,16 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." "*Icon file for archive folder.") (defvar wl-pipe-folder-icon "pipe.xpm" "*Icon file for pipe folder.") -(defvar wl-nmz-folder-icon "nmz.xpm" - "*Icon file for namazu folder.") +(defvar wl-search-folder-icon "nmz.xpm" + "*Icon file for search folder.") (defvar wl-shimbun-folder-icon "shimbun.xpm" "*Icon file for shimbun folder.") (defvar wl-file-folder-icon "file.xpm" "*Icon file for file folder.") (defvar wl-maildir-folder-icon "maildir.xpm" "*Icon file for maildir folder.") +(defvar wl-access-folder-icon "access.xpm" + "*Icon file for access folder.") (defvar wl-empty-trash-folder-icon "trash-e.xpm" "*Icon file for emptied trash folder.") (defvar wl-trash-folder-icon "trash.xpm" @@ -2986,6 +3079,10 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." ;;;; Obsolete variables. +;; 2005-01-23 +(elmo-define-obsolete-variable 'wl-nmz-folder-icon + 'wl-search-folder-icon) + ;; 2003-11-05 (elmo-define-obsolete-variable 'wl-summary-new-mark 'wl-summary-new-uncached-mark)