diff --git a/prv/modules/imageboard.scm b/prv/modules/imageboard.scm
index bee3d80..34c31d8 100755
--- a/prv/modules/imageboard.scm
+++ b/prv/modules/imageboard.scm
@@ -994,6 +994,9 @@
                                                                    #: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:]]*<a href=\"[^\"]+\">[^<]+</a>)+[[:space:]]*$"
+                                 (escape-str raw-comment)))
+                   (tpl->response (message-tpl "Error: This looks like spam!")))
                   (else
                    (if (and (not (null? subpost))
                             (> (string->number (car subpost)) 1))