services: dovecot: Add ‘managesieve-sieve-capability’ option.

* gnu/services/mail.scm (protocol-configuration): Add a
‘managesieve-sieve-capability’ field.
* doc/guix.texi (Mail Services): Document it.

Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>

diff --git a/doc/guix.texi b/doc/guix.texi
index 2e5141d..0947b9f 100644 (file)
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -20092,6 +20092,16 @@ report what the Sieve interpreter supports by default.
 Defaults to @samp{()}.
 @end deftypevr
 
+@deftypevr {@code{protocol-configuration} parameter} space-separated-string-list managesieve-sieve-capability
+Which SIEVE capabilities to report to clients that first connect to
+the ManageSieve service, before authentication.  These may differ from the
+capabilities offered to authenticated users.  If this field is left empty,
+report what the Sieve interpreter supports by default.
+
+Defaults to @samp{()}.
+
+@end deftypevr
+
 @deftypevr {@code{protocol-configuration} parameter} space-separated-string-list mail-plugins
 Space separated list of plugins to load.
 @end deftypevr

diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
index 762662c..72dc123 100644 (file)
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -370,6 +370,12 @@ If this is @samp{#t}, you must also specify a dictionary @i{via} the
    "Which NOTIFY capabilities to report to clients that first connect to
 the ManageSieve service, before authentication.  These may differ from the
 capabilities offered to authenticated users.  If this field is left empty,
+report what the Sieve interpreter supports by default.")
+  (managesieve-sieve-capability
+   (space-separated-string-list '())
+   "Which SIEVE capabilities to report to clients that first connect to
+the ManageSieve service, before authentication.  These may differ from the
+capabilities offered to authenticated users.  If this field is left empty,
 report what the Sieve interpreter supports by default."))
 
 (define (serialize-protocol-configuration field-name val)