diff --git a/prv/modules/imageboard.scm b/prv/modules/imageboard.scm
index 8f5453d..0a96d2f 100755
--- a/prv/modules/imageboard.scm
+++ b/prv/modules/imageboard.scm
@@ -994,8 +994,10 @@
#:lines-error "Error: Comment has too many lines") => (lambda (message) (tpl->response (message-tpl message))))
((check-string-limits filename max-filename-length #:length-error "Error: Filename length too long"
#:lines-error "Error: Filename has too many lines") => (lambda (message) (tpl->response (message-tpl message))))
- ((string-match "^([[:space:]]*[^<]+)+[[:space:]]*$"
- raw-comment)
+ ((or (string-match "^([[:space:]]*[^<]+)+[[:space:]]*$"
+ raw-comment)
+ (string-match "^([[:space:]]*\\[url=[^]]+\\][^[]+\\[/url\\])+[[:space:]]*$"
+ raw-comment))
(tpl->response (message-tpl "Error: This looks like spam!")))
(else
(if (and (not (null? subpost))