(defun-maybe dynamic-link (a))
(defun-maybe dynamic-call (a b)))
+;; bind colon keywords for old Emacsen.
+(dont-compile
+ (condition-case nil
+ :symbol-for-testing-whether-colon-keyword-is-available-or-not
+ (void-variable
+ (let ((kwds '(:cc :date :extra :message-id :number :references :subject)))
+ (while kwds
+ (set (car kwds) (car kwds))
+ (setq kwds (cdr kwds)))))))
+
(defgroup elmo nil
"ELMO, Elisp Library for Message Orchestration."
:tag "ELMO"
:prefix "elmo-"
:group 'elmo)
-;; Local
-(defcustom elmo-localnews-folder-path "~/News"
- "*Local news folder path."
- :type 'directory
- :group 'elmo)
-(defcustom elmo-maildir-folder-path "~/Maildir"
- "*Maildir folder path."
- :type 'directory
- :group 'elmo)
-(defvar elmo-maildir-list '("\\+~/Maildir")
- "*All Folders that match this list will be treated as Maildir.
-Each elements are regexp of folder name (This is obsolete).")
+;; Message Database
(defvar elmo-msgdb-file-header-chop-length 2048
"*Number of bytes to get header in one reading from file.")
;;; IMAP4
-(defcustom elmo-imap4-default-mailbox "inbox"
- "*Default IMAP4 mailbox."
- :type 'string
- :group 'elmo
- :group 'elmo-setting)
-
(defcustom elmo-imap4-default-server "localhost"
"*Default IMAP4 server."
:type 'string
(defvar elmo-use-decoded-cache (featurep 'xemacs)
"Use cache of decoded mime charset string.")
-(defvar elmo-use-overview-hashtb t
- "Use hash table of overview.")
-
(defvar elmo-display-progress-threshold 20
"*Displaying progress gauge if number of messages are more than this value.")