+(defcustom elmo-spam-bogofilter-max-messages-per-process 30
+ "Number of messages processed at once."
+ :type 'integer
+ :group 'elmo-spam-bogofilter)
+
+(defcustom elmo-spam-bogofilter-arguments-alist
+ '((classify
+ (if elmo-spam-bogofilter-debug "-vv")
+ (if register "-u")
+ (if elmo-spam-bogofilter-database-directory
+ (list "-d" elmo-spam-bogofilter-database-directory)))
+ (register
+ (if elmo-spam-bogofilter-debug "-vv")
+ (if spam "-s" "-n")
+ (if restore (if spam "-N" "-S"))
+ (if elmo-spam-bogofilter-database-directory
+ (list "-d" elmo-spam-bogofilter-database-directory))))
+ "*An alist of options that are used with call bogofilter process.
+Each element is a list of following:
+\(TYPE [SEXP...])
+TYPE is a symbol from `classify' or `register'.
+SEXP is an expression to get options.
+Must be return a string or list of string."
+ :type '(repeat (cons (choice (const :tag "Classify" classify)
+ (const :tag "Register" register))
+ (repeat sexp)))
+ :group 'elmo-spam-bogofilter)
+
+(defcustom elmo-spam-bogofilter-debug nil
+ "Non-nil to debug elmo bogofilter spam backend."
+ :type 'boolean
+ :group 'elmo-spam-bogofilter)
+
+