summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2022-12-24 20:05:32 +0100
committerRicardo Wurmus <rekado@elephly.net>2022-12-24 20:11:24 +0100
commitef26c3dace3a4698906a145866f39f4983ccd894 (patch)
tree5b908b1d14b28b42c9584b1e6386e3dfa34a6106
parent05ffaa14b2483e29ab496151a4ae0150bd61607b (diff)
html: URI-encode the mailto subject.
-rw-r--r--mumi/web/view/html.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index e152af7..3835148 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -586,7 +586,7 @@ failed to process associated messages.")
"You may also "
(a (@ (href ,(string-append "mailto:"
(number->string id) "@" (%config 'debbugs-domain)
- "?subject=" (bug-subject* bug))))
+ "?subject=" (uri-encode (bug-subject* bug)))))
,(string-append "send email to "
(number->string id) "@" (%config 'debbugs-domain)))
" to comment.")))))
@@ -607,7 +607,7 @@ currently disabled."))
(p "To comment on this conversation "
(a (@ (href ,(string-append "mailto:"
(number->string id) "@" (%config 'debbugs-domain)
- "?subject=" (bug-subject* bug))))
+ "?subject=" (uri-encode (bug-subject* bug)))))
,(string-append "send email to "
(number->string id) "@" (%config 'debbugs-domain)))))))
(define comment-box