diff options
Diffstat (limited to 'mumi/web/controller.scm')
-rw-r--r-- | mumi/web/controller.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index e8163bb..2acba24 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -130,10 +130,10 @@ (render-html (unknown id)))) (render-html (unknown id))))) (('GET "msgid" msgid) - (match (search (format #false "msgid:~a" (string-hash msgid))) + (match (search (format #false "msgid:~a" (msgid-hash msgid))) ((id . rest) (redirect (list "issue" id) - #:fragment (format #false "msgid-~a" (string-hash msgid)))) + #:fragment (format #false "msgid-~a" (msgid-hash msgid)))) (_ (render-html (unknown msgid))))) (('POST "issue" (? string->number id) "comment") (if (mailer-enabled?) |