From fe22a241dffed7f020a00479e52414ff502cc200 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 2 Jan 2003 19:00:31 +0000 Subject: [PATCH] (message-check-news-header-syntax): Allow posting. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06b76d3f1..c0887afc0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-01-02 Lars Magne Ingebrigtsen + + * message.el (message-check-news-header-syntax): Allow posting. + 2003-01-02 Matthieu Moy * message.el (message-check-news-header-syntax): Check syntax of diff --git a/lisp/message.el b/lisp/message.el index d86602462..b42ecc09d 100644 --- 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) -- 2.25.1