diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 08:53:50 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-10 08:53:50 +0200 |
| commit | e064812ac964bbe4f522df6a684273132ec107a2 (patch) | |
| tree | a4e28958468d87e88b3e8b471b62d08e9762093a | |
| parent | 9265dcad4929c156a635648be213956385a4e781 (diff) | |
controller: Set email subject to bug subject.
| -rw-r--r-- | mumi/web/controller.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index d107c8d..12065f8 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -129,8 +129,10 @@ (let ((headers (request-headers request)) (form-data (parse-form-submission request body)) (cookie (or (session-data %session-manager request) - '()))) + '())) + (bug (fetch-bug id))) (if (and + bug ;; The encrypted cookie must be fresh and contain the ;; current issue id. (and=> (assoc-ref cookie 'issue-id) @@ -152,6 +154,7 @@ ;; Send comment to list (enqueue 'mail `((from . ,(string-trim-both (assoc-ref form-data 'from))) + (subject . ,(bug-subject bug)) (to . ,(format #f "~a@~a" id (%config 'debbugs-domain))) (text . ,(assoc-ref form-data 'text)))) |