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.

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index a6be19cfae2..62cff03e8e6 100644
--- 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)