diff options
| author | Dave Love <fx@gnu.org> | 2000-10-27 16:31:57 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-10-27 16:31:57 +0000 |
| commit | 5dd7fd91ab031a5b6a672e4b21883a98b3e65797 (patch) | |
| tree | 597e5f004810ddd86a332c5c618db6ed4adc4a1d /lisp/gnus/mail-source.el | |
| parent | 10ee3d79459b56f8b61863592407a15b8f8eeeb4 (diff) | |
| download | emacs-5dd7fd91ab031a5b6a672e4b21883a98b3e65797.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 9 |
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) |