2003-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * message.el (message-check-news-header-syntax): Check long
+ header lines.
+
* gnus-group.el (gnus-group-expire-articles): Doc fix.
(gnus-group-line-format): %U.
(gnus-group-line-format-alist): ?U.
`approved', `sender', `empty', `empty-headers', `message-id', `from',
`subject', `shorten-followup-to', `existing-newsgroups',
`buffer-file-name', `unchanged', `newsgroups', `reply-to',
-'continuation-headers'."
+'continuation-headers', and `long-header-lines'."
:group 'message-news
:type '(repeat sexp)) ; Fixme: improve this
(y-or-n-p
"The control code \"cmsg\" is in the subject. Really post? ")
t))
+ ;; Check long header lines.
+ (message-check 'long-header-lines
+ (let ((start (point))
+ found)
+ (while (and (not found)
+ (re-search-forward "^[^ \t:]+: " nil t))
+ (when (> (- (point) start) 998)
+ (setq found t))
+ (forward-line 1))
+ (if found
+ (y-or-n-p "You have a header that's too long. Really post? ")
+ t)))
;; Check for multiple identical headers.
(message-check 'multiple-headers
(let (found)