diff options
| -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))) |