From a909359ac59a0b3346fc41a5946b9cd437a85ef3 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 2 Jan 2003 19:04:46 +0000 Subject: [PATCH] (message-check-news-header-syntax): Fix logic for sure, this time. --- lisp/ChangeLog | 2 ++ lisp/message.el | 14 ++++++-------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0887afc0..288ac8525 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2003-01-02 Lars Magne Ingebrigtsen * message.el (message-check-news-header-syntax): Allow posting. + (message-check-news-header-syntax): Fix logic for sure, this + time. 2003-01-02 Matthieu Moy diff --git a/lisp/message.el b/lisp/message.el index b42ecc09d..11149e625 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3907,17 +3907,15 @@ Otherwise, generate and save a value for `canlock-password' first." ;; Check continuation headers. (message-check 'continuation-headers (goto-char (point-min)) - (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 ?") + (let ((do-posting t)) + (while (re-search-forward "^[^ \t\n][^:\n]*$" nil t) + (if (y-or-n-p "Fix continuation lines? ") (progn (goto-char (match-beginning 0)) (insert " ")) - (if (y-or-n-p "Send anyway ?") - t - nil))))) + (unless (y-or-n-p "Send anyway? ") + (setq do-posting nil)))) + do-posting)) ;; Check the Newsgroups & Followup-To headers for syntax errors. (message-check 'valid-newsgroups (let ((case-fold-search t) -- 2.25.1