2000-10-26 Simon Josefsson <sj@extundo.com>

	* mail-source.el (mail-sources): IMAP predicate is a string.
	(mail-sources): Add default values for IMAP mailbox, predicate and
	fetchflag.

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index a6be19cfae2ecf057733bc2f973e9993b08eaba8..62cff03e8e6b8cfd442ad1c168db40af5973d835 100644 (file)
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -168,13 +168,16 @@ See Info node `(gnus)Mail Source Specifiers'."
                                                  ,@mail-source-imap-authenticators))
                                   (group :inline t
                                          (const :format "" :value :mailbox)
-                                         (string :tag "Mailbox"))
+                                         (string :tag "Mailbox"
+                                                 :value "INBOX"))
                                   (group :inline t
                                          (const :format "" :value :predicate)
-                                         (function :tag "Predicate"))
+                                         (string :tag "Predicate" 
+                                                 :value "UNSEEN UNDELETED"))
                                   (group :inline t
                                          (const :format "" :value :fetchflag)
-                                         (string :tag "Fetchflag"))
+                                         (string :tag "Fetchflag"
+                                                 :value  "\\Deleted"))
                                   (group :inline t
                                          (const :format ""
                                                 :value :dontexpunge)