diff --git a/gnu/tests/mail.scm b/gnu/tests/mail.scm index 07a4487d785..389bb4b1569 100644 --- a/gnu/tests/mail.scm +++ b/gnu/tests/mail.scm @@ -484,7 +484,17 @@ addheader \"X-Sieve-Filtered\" \"Guix\"; (mail-location (string-append "maildir:~/Maildir" ":INBOX=~/Maildir/INBOX" - ":LAYOUT=fs")))) + ":LAYOUT=fs")) + (namespaces + (list + (namespace-configuration + (name "main") + (inbox? #t) + (mailboxes + (list + (mailbox-configuration + (name "TESTBOX") + (auto "create"))))))))) (service getmail-service-type (list (getmail-configuration @@ -594,9 +604,6 @@ Subject: Hello Nice to meet you!") (read-line imap) ;+ (write-line "c2lyaGM=" imap) (read-line imap) ;OK - ;; Create a TESTBOX mailbox - (write-line "a CREATE TESTBOX" imap) - (read-line imap) ;OK ;; Append a message to a TESTBOX mailbox (write-line (format #f "a APPEND TESTBOX {~a}" (number->string (message-length message)))