X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-vars.el;h=6e8ecc6813242b04828eecc18a32875fbf8b3bb6;hb=4c3f56d75a954e8a1904bd767f2b544f5de57684;hp=5d31b7ee2e28c79f3f93a72b8448a67e25cf5109;hpb=7269c10320f048cd13223614c67d45135f805289;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 5d31b7e..6e8ecc6 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -129,9 +129,6 @@ (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 (and user-mail-address (concat (and (user-full-name) (concat (elmo-address-quote-specials @@ -413,7 +410,8 @@ FACE is a face for highlighting." (symbol :tag "Set mark function") (symbol :tag "Unset mark function") (symbol :tag "Exec function") - (symbol :tag "Face symbol")) + (symbol :tag "Face symbol") + (string :tag "Document string")) :group 'wl-summary) ;; Important folders @@ -436,7 +434,7 @@ FACE is a face for highlighting." :group 'wl) (defcustom wl-default-spec "%" - "*Default spec" + "*Default prefix for folder name initially added in minibuffer" :type 'string :group 'wl) @@ -483,6 +481,23 @@ You had better set this variable if you set 'wl-insert-mail-followup-to' as t." :type 'boolean :group 'wl-pref) +(defcustom wl-demo-icon-name-alist + '(((string-match "^... Dec \\([ 01][0-9]\\|2[0-5]\\)" (current-time-string)) + . + (concat "wl-" (wl-version-status) "-xmas-logo")) + (t + . + (concat "wl-" (wl-version-status) "-logo"))) + "An alist to determine the basename of the logo file." + :type '(repeat (cons (symbol :tag "condition") + (symbol :tag "file name"))) + :group 'wl-pref) + +(defcustom wl-demo-image-filter-alist nil + "An alist of image type and filter function." + :type '(repeat (cons symbol function)) + :group 'wl-pref) + (defcustom wl-envelope-from nil "*Envelope From used in SMTP. If nil, `wl-from' is used." @@ -868,7 +883,7 @@ cdr of each cons cell is used for draft message." :group 'wl-draft) (defcustom wl-draft-always-delete-myself nil - "*Always delete myself from reciepient if non-nil." + "*Always delete myself from recipient if non-nil." :type 'boolean :group 'wl-draft) @@ -956,6 +971,71 @@ cdr of each cons cell is used for draft message." :type 'boolean :group 'wl-folder) +(defcustom wl-summary-persistent-mark-priority-list '(new + flag + answered + unread) + "List of flags reflected with the priority to persistent marks and faces." + :type '(repeat (radio (const :format "%v " new) + (const :format "%v " flag) + (const :format "%v " answered) + (const :format "%v " unread))) + :group 'wl-summary) + +(defcustom wl-summary-flag-alist + '((important "orange")) + "An alist to define the flags for the summary mode. +Each element is a form like: +\(SYMBOL-OF-FLAG COLOR\) +Example: +\((important \"orange\"\) + \(todo \"red\"\) + \(business \"green\"\) + \(private \"blue\"\)\)" + :type '(repeat (list (symbol :tag "flag") + (string :tag "color"))) + :group 'wl-summary) + +(defcustom wl-summary-new-uncached-mark "N" + "Mark for new and uncached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-new-cached-mark "?" + "Mark for new but already cached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-unread-uncached-mark "U" + "Mark for unread and uncached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-unread-cached-mark "!" + "Mark for unread but already cached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-read-uncached-mark "u" + "Mark for read but uncached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-answered-cached-mark "&" + "Mark for answered and cached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-answered-uncached-mark "A" + "Mark for answered but cached message." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + +(defcustom wl-summary-flag-mark "$" + "Mark for the messages which have tags." + :type '(string :tag "Mark") + :group 'wl-summary-marks) + (defcustom wl-summary-score-over-mark "+" "Score mark used for messages with high scores." :type '(string :tag "Mark") @@ -1016,7 +1096,7 @@ This variable is local to the summary buffers." :group 'wl-score) (defcustom wl-summary-score-marks - (list elmo-msgdb-new-mark) + (list wl-summary-new-uncached-mark wl-summary-new-cached-mark) "Persistent marks to scoring." :type '(repeat (string :tag "Mark")) :group 'wl-score) @@ -1141,7 +1221,8 @@ This can either be a regular expression or list of regular expressions." (defcustom wl-draft-mime-bcc-body nil "Body string for MIME-encapsulated Bcc. If nil, a string `This is a blind carbon copy.' is used." - :type '(string :tag "Body") + :type '(choice (const :tag "default" nil) + (string :tag "Body")) :group 'wl-draft) (defcustom wl-draft-disable-bcc-for-mime-bcc t @@ -1366,6 +1447,11 @@ Available if only `wl-summary-lazy-highlight' is nil." :group 'wl-summary :group 'wl-highlight) +(defcustom wl-summary-lazy-update-mark (boundp 'window-scroll-functions) + "Non-nil forces lazy update mark using `window-scroll-functions'." + :type 'boolean + :group 'wl-summary) + (defcustom wl-summary-cache-use t "Non-nil forces wl-summary to use cache file." :type 'boolean @@ -1475,10 +1561,31 @@ which appear just before @." :type 'boolean :group 'wl-pref) +(defcustom wl-message-use-header-narrowing t + "Use header narrowing when non-nil." + :type 'boolean + :group 'wl-pref) + +(defcustom wl-message-header-narrowing-fields '("to" "cc") + "A list of field name to enable header narrowing." + :type '(repeat string) + :group 'wl-pref) + +(defcustom wl-message-header-narrowing-lines 4 + "Line number to enable the header narrowing." + :type 'integer + :group 'wl-pref) + +(defcustom wl-message-header-narrowing-string "..." + "A string used for header narrowing truncation." + :type 'string + :group 'wl-pref) + (defvar wl-message-mode-line-format-spec-alist '((?f (if (memq 'modeline wl-use-folder-petname) (wl-folder-get-petname wl-message-buffer-cur-folder) wl-message-buffer-cur-folder)) + (?F wl-message-buffer-flag-indicator) (?n wl-message-buffer-cur-number)) "An alist of format specifications for message buffer's mode-lines. Each element is a list of following: @@ -1486,13 +1593,14 @@ Each element is a list of following: SPEC is a character for format specification. STRING-EXP is an expression to get string to insert.") -(defcustom wl-message-mode-line-format "Wanderlust: << %f / %n >>" +(defcustom wl-message-mode-line-format "Wanderlust: << %f / %n %F>>" "*A format string for message buffer's mode-line of Wanderlust. It may include any of the following format specifications which are replaced by the given information: %f The folder name. -%n The number of the message." +%n The number of the message. +%F The global flag indicator." :group 'wl-pref :type 'string) @@ -1630,7 +1738,7 @@ with wl-highlight-folder-many-face." :group 'wl-pref) (defcustom wl-fcc nil - "*Folder Carbon Copy." + "*Folder Carbon Copy target initially added at creating draft buffer." :type '(choice (const :tag "disable" nil) string function) :group 'wl-draft @@ -1643,7 +1751,7 @@ with wl-highlight-folder-many-face." :group 'wl-pref) (defcustom wl-bcc nil - "*Blind Carbon Copy." + "*Blind Carbon Copy target initially added at creating draft buffer." :type '(choice (const :tag "disable" nil) string) :group 'wl-draft @@ -1767,15 +1875,49 @@ This wrapper is generated by the mail system when rejecting a letter." :type 'regexp :group 'wl-draft) +(defcustom wl-draft-preview-attributes t + "Non-nil forces to preview the attributes in the `wl-draft-preview-message'. +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) + "*Attribute symbols to display in the draft preview. +Candidates are following: +`recipients' +`envelope-from' +`smtp-posting-server' +`smtp-posting-port' +`nntp-posting-server' +`nntp-posting-port' +Also variables which begin with `wl-' can be specified +\(`wl-' have to be removed\)" + :type '(repeat symbol) + :group 'wl-draft) + +(defcustom wl-draft-preview-attributes-buffer-lines 5 + "*Buffer height for the draft attribute preview." + :type 'integer + :group 'wl-draft) + +(defcustom wl-draft-preview-attributes-buffer-name "*Preview Attributes*" + "*Buffer name for the draft attribute preview." + :type 'string + :group 'wl-draft) + (defcustom wl-refile-default-from-folder "+from" "*Folder name to refile by `wl-refile-guess-by-from'." :type '(string :tag "Folder") :group 'wl-pref) (defcustom wl-summary-auto-refile-skip-marks - (list elmo-msgdb-new-mark - elmo-msgdb-unread-uncached-mark - elmo-msgdb-unread-cached-mark) + (list wl-summary-new-uncached-mark + wl-summary-new-cached-mark + wl-summary-unread-uncached-mark + wl-summary-unread-cached-mark) "Persistent marks to skip auto-refiling." :type '(repeat (string :tag "Mark")) :group 'wl-summary) @@ -1795,8 +1937,8 @@ the message is skipped at cursor move." :group 'wl-summary) (defcustom wl-summary-incorporate-marks - (list elmo-msgdb-new-mark - elmo-msgdb-unread-uncached-mark) + (list wl-summary-new-uncached-mark + wl-summary-unread-uncached-mark) "Persistent marks to prefetch at `wl-summary-incorporate'." :type '(repeat (string :tag "Mark")) :group 'wl-summary) @@ -2103,11 +2245,11 @@ e.x. :group 'wl-pref) (defcustom wl-folder-sync-range-alist - (list (cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^" - (regexp-quote wl-queue-folder) "$") - "all")) + (list (cons 'wl-require-update-all-folder-p "all") + (cons "^'flag" "all")) "*Default sync range alist. If no matches, `wl-default-sync-range' is used." - :type '(repeat (cons (regexp :tag "Folder Regexp") + :type '(repeat (cons (choice (regexp :tag "Folder Regexp") + (symbol :tag "A function")) (choice (const "update") (const "all") (const "rescan") @@ -2197,6 +2339,11 @@ Sender information in summary mode." regexp) :group 'wl-summary) +(defcustom wl-summary-save-file-suffix ".eml" + "Suffix for the saved file name." + :type 'string + :group 'wl-summary) + (defcustom wl-folder-removed-mark "#" "Mark for removed folder." :type 'string @@ -2242,7 +2389,7 @@ POLICY is copy or move." :group 'wl-pref) (defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)" - "^@$") + "^@$" "^'$") "*Access group REGEXPs to make hierarchy structure." :type '(repeat (string :tag "Regexp")) :group 'wl-folder) @@ -2384,10 +2531,11 @@ ex. :group 'wl-expire) (defcustom wl-summary-expire-reserve-marks - (list elmo-msgdb-important-mark - elmo-msgdb-new-mark - elmo-msgdb-unread-uncached-mark - elmo-msgdb-unread-cached-mark) + (list wl-summary-flag-mark + wl-summary-new-uncached-mark + wl-summary-new-cached-mark + wl-summary-unread-uncached-mark + wl-summary-unread-cached-mark) "Permanent marks of reserved message when expire. Don't reserve temporary mark message. @@ -2566,7 +2714,12 @@ This variable can also be a regex." ;; highilght about mouse (defcustom wl-use-highlight-mouse-line (and window-system (>= emacs-major-version 19)) - "*Highlight mouse line, if non nil." + "*Highlight mouse line, if non-nil." + :type 'boolean + :group 'wl-highlight) + +(defcustom wl-use-flag-folder-help-echo nil + "*Display help-echo in the flag folder if non-nil." :type 'boolean :group 'wl-highlight) @@ -2683,6 +2836,8 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." "*Icon file for namazu 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-empty-trash-folder-icon "trash-e.xpm" @@ -2718,6 +2873,10 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." ;;;; Obsolete variables. +;; 2003-11-05 +(elmo-define-obsolete-variable 'wl-summary-new-mark + 'wl-summary-new-uncached-mark) + ;; 2003-07-15 delete -> dispose (elmo-define-obsolete-variable 'wl-delete-folder-alist 'wl-dispose-folder-alist)