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))