From: Dave Love <fx@gnu.org>
Date: Fri, 27 Oct 2000 16:31:57 +0000 (+0000)
Subject: 2000-10-26  Simon Josefsson  <sj@extundo.com>
X-Git-Tag: emacs-pretest-21.0.90~505
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dd7fd91ab031a5b6a672e4b21883a98b3e65797;p=emacs.git

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 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)