diff options
Diffstat (limited to 'mumi/web/controller.scm')
| -rw-r--r-- | mumi/web/controller.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index 10252dd..e8163bb 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -132,7 +132,8 @@ (('GET "msgid" msgid) (match (search (format #false "msgid:~a" (string-hash msgid))) ((id . rest) - (redirect (list "issue" id))) + (redirect (list "issue" id) + #:fragment (format #false "msgid-~a" (string-hash msgid)))) (_ (render-html (unknown msgid))))) (('POST "issue" (? string->number id) "comment") (if (mailer-enabled?) @@ -168,9 +169,9 @@ (to . ,(format #f "~a@~a" id (%config 'debbugs-domain))) (text . ,(assoc-ref form-data 'text)))) - (redirect (list "issue" id) "comment-ok")) - (redirect (list "issue" id) "comment-error"))) - (redirect (list "issue" id) "comment-error"))) + (redirect (list "issue" id) #:query "comment-ok")) + (redirect (list "issue" id) #:query "comment-error"))) + (redirect (list "issue" id) #:query "comment-error"))) (('GET "issue" (? string->number id) "attachment" (? string->number msg-num) (? string->number path) ...) |