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

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 6e05920cef3afe0f0e3dde936a4b07a27b2c1ca3
Author: Alexey Abramov <levenson@mmer.org>
AuthorDate: Tue Sep 8 15:53:47 2020 +0200

    services: dovecot: Add ‘managesieve-notify-capability’ option.
    
    * gnu/services/mail.scm (protocol-configuration): Add a
    ‘managesieve-notify-capability’ field.
    * doc/guix.texi (Mail Services): Document it.
    
    Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
---
 doc/guix.texi         | 9 +++++++++
 gnu/services/mail.scm | 8 +++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 49d4ef8..2e5141d 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -20083,6 +20083,15 @@ Defaults to @samp{#f}.
 
 @end deftypevr
 
+@deftypevr {@code{protocol-configuration} parameter} 
space-separated-string-list managesieve-notify-capabilities
+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.
+
+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 b45bf83..762662c 100644
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -364,7 +364,13 @@ a means for clients to set and retrieve per-mailbox, 
per-user metadata
 and annotations over IMAP.
 
 If this is @samp{#t}, you must also specify a dictionary @i{via} the
-@code{mail-attribute-dict} setting."))
+@code{mail-attribute-dict} setting.")
+  (managesieve-notify-capability
+   (space-separated-string-list '())
+   "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."))
 
 (define (serialize-protocol-configuration field-name val)
   (format #t "protocol ~a {\n" (protocol-configuration-name val))