Mercurial > emacs

changeset 32961:5357dbf00515

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Dave Love <fx@gnu.org>
date Fri, 27 Oct 2000 16:31:57 +0000
parents 0756037b6de5
children 496ce24f9ddc
files lisp/gnus/mail-source.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el	Fri Oct 27 15:50:24 2000 +0000
+++ b/lisp/gnus/mail-source.el	Fri Oct 27 16:31:57 2000 +0000
@@ -168,13 +168,16 @@
 						  ,@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)