diff options
| author | Théo Tyburn <theo.tyburn@posteo.net> | 2026-06-03 10:56:10 +0200 |
|---|---|---|
| committer | Nguyễn Gia Phong <cnx@loang.net> | 2026-08-31 11:00:19 +0900 |
| commit | c62ebcd02c2eb190ab5dc157475ef4a93a1c7581 (patch) | |
| tree | f178f262874978ac0be45e5499db5cc2d63248fe /gnu/services/mail.scm | |
| parent | 30cb1f541eb99b0fbbec1f8f29796151103c5f2b (diff) | |
doc: Move Commentary above module definition.
Merges: https://codeberg.org/guix/guix/pulls/9052
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>
Diffstat (limited to 'gnu/services/mail.scm')
| -rw-r--r-- | gnu/services/mail.scm | 14 |
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) |
