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