diff options
| author | EuAndreh <eu@euandre.org> | 2023-03-16 20:36:11 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-03-16 20:36:11 -0300 |
| commit | 3952ddfc36b798bcd1e8e46329194bb5e5caeaa6 (patch) | |
| tree | 6baa28d316d49f1431013e4fa043b48be96e4ba6 /src/org/euandre | |
| parent | queue.scm: Add rottlog-mailutils-sendmail package (diff) | |
| download | package-repository-3952ddfc36b798bcd1e8e46329194bb5e5caeaa6.tar.gz package-repository-3952ddfc36b798bcd1e8e46329194bb5e5caeaa6.tar.xz | |
queue.scm: Conditionally create /var/mail on activation
Diffstat (limited to 'src/org/euandre')
| -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 5790826..8d18f3b 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -1106,9 +1106,10 @@ header_checks = regexp:{ { /^Received:.*/ IGNORE }, { /^X-Originating-IP:.*/ IGN (format (current-error-port) "Creating Postfix queue directory: \"~a\".~%" #$queue-directory) (mkdir-p/perms #$queue-directory user #o755) - (format (current-error-port) - "Creating email spool director: \"/var/mail\".~%") - (mkdir-p/perms "/var/mail" user #o755) + (unless (directory-exists? "/var/mail") + (format (current-error-port) + "Creating email spool director: \"/var/mail\".~%") + (mkdir-p/perms "/var/mail" user #o755)) (format (current-error-port) "Updating /etc/aliases: FIXME.~%") ;; FIXME: add -c option |