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

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 0d6eb69266535c1570b8b85c9e88872de34626e5
Author: Alexey Abramov <levenson@mmer.org>
AuthorDate: Tue Sep 8 15:53:48 2020 +0200

    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>
---
 doc/guix.texi         | 10 ++++++++++
 gnu/services/mail.scm |  6 ++++++
 2 files changed, 16 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index 2e5141d..0947b9f 100644
--- 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
--- 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)