diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 00:09:12 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 00:09:41 +0200 |
commit | 817500299fea7ccfa75c442904abcb352da0d100 (patch) | |
tree | d9c8c83bca424f6ba809efb1fc1285f5f43b893d | |
parent | a38180c536eebb73648cb376b4d12cc87e8a8f19 (diff) |
jobs: mail-job: Include provided name.
-rw-r--r-- | mumi/jobs.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mumi/jobs.scm b/mumi/jobs.scm index addeaae..fbec9bb 100644 --- a/mumi/jobs.scm +++ b/mumi/jobs.scm @@ -132,7 +132,9 @@ the job status and result are updated." job raw-args) (match (string-split job #\:) (("mail" timestamp) - (let ((message (compose-message (assoc-ref global 'sender) + (let ((message (compose-message (format #f "~a via web <~a>" + (assoc-ref args 'from) + (assoc-ref global 'sender)) (assoc-ref args 'to) #:reply-to (assoc-ref args 'reply-to) #:subject (assoc-ref args 'subject) |