X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-vars.el;h=4bd89b2b41d30a76096d0cf550c212e09b9b8fca;hb=b30519142c934095b6a46366d4ead917e4cf5c85;hp=3a2e222d0c9a2feccdb5cb9499c6d006360893c0;hpb=6fc95a687fd1ac622b7b373f3fb81449b3895284;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 3a2e222..4bd89b2 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 @@ -113,28 +113,32 @@ (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) (defvar wl-use-semi (module-installed-p 'mime-view) ; If nil, use tm. "*Use SEMI or not.") -(defcustom wl-from (if (boundp 'user-mail-address) - user-mail-address) +(defcustom wl-from (and user-mail-address + (concat (and user-full-name + (concat (elmo-address-quote-specials + user-full-name) + " ")) + "<" user-mail-address ">")) "*From string used in draft." - :type 'string + :type 'string :group 'wl :group 'wl-setting) @@ -147,10 +151,10 @@ If you don't have multiple e-mail addresses, you don't have to set this." :group 'wl :group 'wl-setting) -(defcustom wl-organization nil +(defcustom wl-organization (getenv "ORGANIZATION") "Organization name." :type '(choice (const :tag "none" nil) - string) + string) :group 'wl :group 'wl-setting) @@ -191,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'." @@ -266,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 @@ -283,7 +288,7 @@ If nil, default smtp connection type is used." (defcustom wl-smtp-posting-user nil "*SMTP authentication user." :type '(choice (const :tag "none" nil) - string) + string) :group 'wl :group 'wl-setting) @@ -298,7 +303,7 @@ If nil, default smtp connection type is used." "*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) @@ -319,7 +324,7 @@ If nil, `elmo-pop3-default-user' is used. 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) @@ -327,7 +332,7 @@ To use POP-before-SMTP, "*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) @@ -358,7 +363,7 @@ If nil, `elmo-pop3-default-authenticate-type' is used." "*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 @@ -366,7 +371,7 @@ If nil, `elmo-nntp-default-server' is used." 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 @@ -382,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 @@ -494,7 +493,7 @@ reasons of system internal to accord facilities for the Emacs variants.") "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.") @@ -520,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 @@ -534,8 +537,6 @@ reasons of system internal to accord facilities for the Emacs variants.") "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.") @@ -767,7 +768,7 @@ Default is for 'followup-to-me'." :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) @@ -1146,13 +1147,13 @@ Allowed situations are: "*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 @@ -1160,6 +1161,17 @@ Set this if (system-name) does not return FQDN." :type 'boolean :group 'wl-pref) +(defcustom wl-message-truncate-lines default-truncate-lines + "*Truncate lines in Message Buffer." + :type 'boolean + :group 'wl-pref) + +(defcustom wl-draft-truncate-lines default-truncate-lines + "*Truncate lines in Draft Buffer." + :type 'boolean + :group 'wl-draft + :group 'wl-pref) + (defcustom wl-message-scroll-amount 5 "*Scroll amount by SPC key." :type 'integer @@ -1191,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 @@ -1246,14 +1290,20 @@ with wl-highlight-folder-many-face." (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) @@ -1264,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) @@ -1305,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) @@ -1504,7 +1557,11 @@ every intervals specified by wl-biff-check-interval." :type 'string :group 'wl-highlight) -(defcustom wl-biff-state-indicator-off "[‐]" +(defcustom wl-biff-state-indicator-off (if (and (featurep 'xemacs) + (not (featurep 'mule))) + "[--]" + ;; Japanese short hyphen + "[‐]") "String used to show biff status OFF." :type 'string :group 'wl-highlight) @@ -1528,7 +1585,7 @@ even if the value of this option is set to nil. Here are some samples: (sexp :tag "Other" :value title))) :group 'wl-highlight) -(defcustom wl-interactive-send nil +(defcustom wl-interactive-send t "*If non-nil, require your confirmation when sending draft message." :type 'boolean :group 'wl-pref @@ -1577,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. @@ -1711,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) @@ -2059,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 @@ -2279,18 +2326,6 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." (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 "--") @@ -2299,7 +2334,9 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." (defvar wl-plugged-port-indent 4) (defvar wl-plugged-queue-status-column 25) -;; Obsolete variables. +;;;; Obsolete variables. + +;; 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 @@ -2327,6 +2364,26 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." (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) + +;; 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 + '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))