(message-check-news-header-syntax): Update `start'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79bd483..394635e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * message.el (message-check-news-header-syntax): Check long
        header lines.
+       (message-check-news-header-syntax): Update `start'.
 
        * gnus-group.el (gnus-group-expire-articles): Doc fix.
        (gnus-group-line-format): %U.

diff --git a/lisp/message.el b/lisp/message.el
index 48a6ec6..8b46840 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3776,12 +3776,14 @@ Otherwise, generate and save a value for `canlock-password' first."
      (let ((start (point))
           found)
        (while (and (not found)
-                  (re-search-forward "^[^ \t:]+: " nil t))
+                  (re-search-forward "^\\([^ \t:]+\\): " nil t))
         (when (> (- (point) start) 998)
           (setq found t))
+        (setq start (match-beginning 0))
         (forward-line 1))
        (if found
-          (y-or-n-p "You have a header that's too long.  Really post? ")
+          (y-or-n-p (format "Your %s header is too long.  Really post? "
+                            (match-string 1)))
         t)))
    ;; Check for multiple identical headers.
    (message-check 'multiple-headers