- (const imap)
- (choice
- :tag "Options"
- (const :tag "None" nil)
- (repeat
- (choice
- (list :inline t :tag "server"
- (const :value :server) string)
- (list :inline t :tag "port"
- (const :value :port)
- (choice number string))
- (list :inline t :tag "user"
- (const :value :user) string)
- (list :inline t :tag "password"
- (const :value :password) string)
- (list :inline t :tag "stream"
- (const :value :stream)
- (choice ,@(progn (require 'imap)
- (mapcar
- (lambda (a)
- (list 'const (car a)))
- imap-stream-alist))))
- (list :inline t :tag "authenticator"
- (const :value :authenticator)
- (choice ,@(progn (require 'imap)
- (mapcar
- (lambda (a)
- (list 'const (car a)))
- imap-authenticator-alist))))
- (list :inline t :tag "mailbox"
- (const :value :mailbox) string)
- (list :inline t :tag "predicate"
- (const :value :predicate) function)
- (list :inline t :tag "fetchflag"
- (const :value :fetchflag) string)
- (list :inline t :tag "dontexpunge"
- (const :value :dontexpunge) boolean)
- (list :inline t :tag "plugged"
- (const :value :plugged) )))))
+ (const :format "" imap)
+ (checklist :tag "Options" :greedy t
+ (group :inline t
+ (const :format "" :value :server)
+ (string :tag "Server"))
+ (group :inline t
+ (const :format "" :value :port)
+ (choice :tag "Port"
+ :value 143
+ number string))
+ (group :inline t
+ (const :format "" :value :user)
+ (string :tag "User"))
+ (group :inline t
+ (const :format "" :value :password)
+ (string :tag "Password"))
+ (group :inline t
+ (const :format "" :value :stream)
+ (choice :tag "Stream"
+ :value network
+ ,@mail-source-imap-streams))
+ (group :inline t
+ (const :format ""
+ :value :authenticator)
+ (choice :tag "Authenticator"
+ :value login
+ ,@mail-source-imap-authenticators))
+ (group :inline t
+ (const :format "" :value :mailbox)
+ (string :tag "Mailbox"
+ :value "INBOX"))
+ (group :inline t
+ (const :format "" :value :predicate)
+ (string :tag "Predicate"
+ :value "UNSEEN UNDELETED"))
+ (group :inline t
+ (const :format "" :value :fetchflag)
+ (string :tag "Fetchflag"
+ :value "\\Deleted"))
+ (group :inline t
+ (const :format ""
+ :value :dontexpunge)
+ (boolean :tag "Dontexpunge"))
+ (group :inline t
+ (const :format "" :value :plugged)
+ (boolean :tag "Plugged"))))