diff options
| author | EuAndreh <eu@euandre.org> | 2023-03-17 17:14:57 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-03-17 17:14:57 -0300 |
| commit | 2c17363e21f5b8e7dafde011b74059dad9b17352 (patch) | |
| tree | 26532601225d9909f5964cc89d0db56f74f048cb /src | |
| parent | queue.scm: Remove FIXME marker on personal server automation (diff) | |
| download | package-repository-2c17363e21f5b8e7dafde011b74059dad9b17352.tar.gz package-repository-2c17363e21f5b8e7dafde011b74059dad9b17352.tar.xz | |
queue.scm: Parameterize Dovecot /var/mail/ location
Diffstat (limited to 'src')
| -rw-r--r-- | src/org/euandre/queue.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 2041743..02e4e99 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -1333,6 +1333,7 @@ correctly."))) dovecot-configuration? (package dovecot-configuration-package (default dovecot)) (mail-in-home? dovecot-configuration-mail-in-home? (default #f)) + (mail-location dovecot-configuration-mail-location (default "/var/mail/")) (raw-file dovecot-configuration-raw-file (default #f)) (extra-content dovecot-configuration-extra-content (default "")) (config-dirname dovecot-configuration-config-dirname (default "dovecot")) @@ -1350,7 +1351,7 @@ correctly."))) (define (generate-dovecot-config config) (match-record config <dovecot-configuration> - (mail-in-home? user group auth-worker-group untrusted-user + (mail-in-home? mail-location user group auth-worker-group untrusted-user hostname base-dir state-dir extra-content) (format #f "protocols = imap @@ -1418,8 +1419,8 @@ namespace inbox { base-dir state-dir - (if mail-in-home? "~/Mail" "/var/mail/%u") - (if mail-in-home? "~/Mail/Inbox" "/var/mail/%u") + (if mail-in-home? "~/Mail" (string-append mail-location "%u")) + (if mail-in-home? "~/Mail/Inbox" (string-append mail-location "%u")) extra-content))) |