From 2c17363e21f5b8e7dafde011b74059dad9b17352 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Fri, 17 Mar 2023 17:14:57 -0300 Subject: queue.scm: Parameterize Dovecot /var/mail/ location --- src/org/euandre/queue.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src') 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 - (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))) -- cgit v1.2.3