(message-check-news-header-syntax): Allow posting.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06b76d3..c0887af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-check-news-header-syntax): Allow posting. 
+
 2003-01-02  Matthieu Moy  <Matthieu.Moy@imag.fr>
 
        * message.el (message-check-news-header-syntax): Check syntax of

diff --git a/lisp/message.el b/lisp/message.el
index d866024..b42ecc0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3907,15 +3907,17 @@ Otherwise, generate and save a value for `canlock-password' first."
    ;; Check continuation headers.
    (message-check 'continuation-headers
      (goto-char (point-min))
-     (while (re-search-forward "^[^ \\n][^:\\n]*$" nil t)
-       (if (y-or-n-p "You have line in your headers without : and not \
+     (if (not (re-search-forward "^[^ \\n][^:\\n]*$" nil t))
+        t
+       (while (re-search-forward "^[^ \\n][^:\\n]*$" nil t)
+        (if (y-or-n-p "You have line in your headers without : and not \
 beginning by a continuation caracter. Add one ?")
             (progn
               (goto-char (match-beginning 0))
               (insert " "))
           (if (y-or-n-p "Send anyway ?")
               t
-            nil))))
+            nil)))))
    ;; Check the Newsgroups & Followup-To headers for syntax errors.
    (message-check 'valid-newsgroups
      (let ((case-fold-search t)