aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexey Abramov <levenson@mmer.org>2020-09-08 15:53:47 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2021-05-06 11:27:00 +0200
commit6e05920cef3afe0f0e3dde936a4b07a27b2c1ca3 (patch)
tree8514dc16041f95829c9a5edf282d317913b62161
parent0fd5bdcaf67ab50490e0d2fe1f954b3692aab259 (diff)
downloadguix-6e05920cef3afe0f0e3dde936a4b07a27b2c1ca3.tar
guix-6e05920cef3afe0f0e3dde936a4b07a27b2c1ca3.tar.gz
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>
-rw-r--r--doc/guix.texi9
-rw-r--r--gnu/services/mail.scm8
2 files changed, 16 insertions, 1 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index 49d4ef8473..2e5141d3bb 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 b45bf836a9..762662c58c 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))