From 5dd7fd91ab031a5b6a672e4b21883a98b3e65797 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 27 Oct 2000 16:31:57 +0000 Subject: [PATCH] 2000-10-26 Simon Josefsson * mail-source.el (mail-sources): IMAP predicate is a string. (mail-sources): Add default values for IMAP mailbox, predicate and fetchflag. --- lisp/gnus/mail-source.el | 9 ++++++--- 1 file 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) -- 2.39.2