summaryrefslogtreecommitdiff
path: root/gnu/services/mail.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services/mail.scm')
-rw-r--r--gnu/services/mail.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
index d31cad5645d..93eea095853 100644
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -27,6 +27,13 @@
27;;; 27;;;
28;;; Some of the help text was taken from the default dovecot.conf files. 28;;; Some of the help text was taken from the default dovecot.conf files.
29 29
30;;; Commentary:
31;;;
32;;; This module provides service definitions for the Dovecot POP3 and IMAP
33;;; mail server.
34;;;
35;;; Code:
36
30(define-module (gnu services mail) 37(define-module (gnu services mail)
31 #:use-module (gnu services) 38 #:use-module (gnu services)
32 #:use-module (gnu services base) 39 #:use-module (gnu services base)
@@ -105,13 +112,6 @@
105 %default-rspamd-config-file 112 %default-rspamd-config-file
106 %default-rspamd-group)) 113 %default-rspamd-group))
107 114
108;;; Commentary:
109;;;
110;;; This module provides service definitions for the Dovecot POP3 and IMAP
111;;; mail server.
112;;;
113;;; Code:
114
115(define (uglify-field-name field-name) 115(define (uglify-field-name field-name)
116 (let ((str (symbol->string field-name))) 116 (let ((str (symbol->string field-name)))
117 (string-join (string-split (if (string-suffix? "?" str) 117 (string-join (string-split (if (string-suffix? "?" str)