diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 9ce35cece47..986567faa1f 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5165,8 +5165,8 @@ Otherwise, generate and save a value for `canlock-password' first."
 	   "Really post to %s unknown group%s: %s? "
 	   (if (= (length errors) 1) "this" "these")
 	   (if (= (length errors) 1) "" "s")
-	   (mapconcat 'identity errors ", ")))))))
-   (message--check-continuation-headers)
+	   (mapconcat #'identity errors ", ")))))))
+   (progn (message--check-continuation-headers) t)
    ;; Check the Newsgroups & Followup-To headers for syntax errors.
    (message-check 'valid-newsgroups
      (let ((case-fold-search t)