(require 'elmo-vars)
(require 'elmo-util)
-(require 'elmo-msgdb)
(require 'custom)
;;; Customizable Variables
(defcustom wl-summary-search-parent-by-subject-regexp "^[ \t]*\\(\\[[^:]+[,: ][0-9]+\\]\\)?[ \t]*re[\\^[:> ]"
"*If message does not have in-reply-to field nor references field and
- subject matches this regexp, search parent message by subject matching."
- :type 'string
+subject matches this regexp, search parent message by subject matching.
+If nil, never search search parent by subject."
+ :type '(choice string
+ (const :tag "Don't search parent" nil))
:group 'wl-summary)
;; Important folders
("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
("From" . (("From") nil nil)))
"Alist of cons cell of
-('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+\('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups')\)
'field-name' is a string.
'fields for ***' is a list of strings.
If car of each cons cell exists in original message,
("Reply-To" . (("Reply-To") ("To" "Cc" "From") ("Newsgroups")))
("From" . (("From") ("To" "Cc") ("Newsgroups"))))
"Alist of cons cell of
-('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+\('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups')\)
'field-name' is a string.
'fields for ***' is a list of strings.
If car of each cons cell exists in original message,
("Newsgroups" . (("To") ("Cc") ("Newsgroups")))
("From" . (("To") ("Cc") nil)))
"Alist of cons cell of
-('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+\('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups')\)
'field-name' is a string.
'fields for ***' is a list of strings.
If car of each cons cell exists in original message,
("Newsgroups" . (("To") ("Cc") ("Newsgroups")))
("From" . (("To") ("Cc") nil)))
"Alist of cons cell of
-('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+\('field-name' . ('fields for To' 'fields for Cc' 'fields for Newsgroups')\)
'field-name' is a string.
'fields for ***' is a list of strings.
If car of each cons cell exists in original message,
:type 'boolean
:group 'wl-folder)
+(defcustom wl-summary-unread-mark "!"
+ "Mark for unread message."
+ :type '(string :tag "Mark")
+ :group 'wl-summary-marks)
+(defcustom wl-summary-important-mark "$"
+ "Mark for important message."
+ :type '(string :tag "Mark")
+ :group 'wl-summary-marks)
+(defcustom wl-summary-new-mark "N"
+ "Mark for new 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-score-over-mark "+"
"Score mark used for messages with high scores."
:type '(string :tag "Mark")
:group 'wl-summary-marks)
-
(defcustom wl-summary-score-below-mark "-"
"Score mark used for messages with low scores."
:type '(string :tag "Mark")
:group 'wl-score)
(defcustom wl-summary-score-marks
- (list elmo-msgdb-new-mark)
+ (list wl-summary-new-mark)
"Persistent marks to scoring."
:type '(repeat (string :tag "Mark"))
:group 'wl-score)
(string :tag "Other"))
:group 'wl-summary)
-(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)
-
(defcustom wl-mime-charset 'x-ctext
"*MIME Charset for summary and message."
:type 'symbol
: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-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)
:group 'wl-summary)
(defcustom wl-summary-incorporate-marks
- (list elmo-msgdb-new-mark
- elmo-msgdb-unread-uncached-mark)
+ (list wl-summary-new-mark
+ wl-summary-unread-uncached-mark)
"Persistent marks to prefetch at `wl-summary-incorporate'."
:type '(repeat (string :tag "Mark"))
:group 'wl-summary)
:group 'wl-pref
:group 'wl-setting)
-(defcustom wl-message-buffer-prefetch-folder-type-list t
+(defcustom wl-message-buffer-prefetch-folder-type-list '(imap4 nntp)
"*All folder types that match this list prefetch next message,
and reserved buffer cache."
:type `(choice (const :tag "all" t)
:type '(repeat (regexp :tag "Folder Regexp"))
:group 'wl-pref)
-(defcustom wl-message-buffer-prefetch-depth 3
+(defcustom wl-message-buffer-prefetch-depth 1
"*Depth of buffer prefetch in summary mode."
:type 'integer
:group 'wl-pref)
-(defcustom wl-message-buffer-prefetch-idle-time 0.2
+(defcustom wl-message-buffer-prefetch-idle-time 1
"*Idle time of buffer prefetch."
:type 'number
:group 'wl-pref)
: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-important-mark
+ wl-summary-new-mark
+ wl-summary-unread-mark
+ wl-summary-unread-uncached-mark
+ wl-summary-unread-cached-mark)
"Permanent marks of reserved message when expire.
Don't reserve temporary mark message.
(elmo-define-obsolete-variable 'wl-tmp-dir
'wl-temporary-file-directory)
-;; 2001-12-07
-(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)
projects / elisp / wanderlust.git / blobdiff