# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824843850 0
# Node ID b9daaf52fc01b89d594c105153daca3a1de25a5f
# Parent  830d54a0d39b7907c8b8cfdf97f95b5e24db7a8d
(nnheader-insert-head): Make sure the entire head of
the article is inserted.

diff -r 830d54a0d39b -r b9daaf52fc01 lisp/nnheader.el
--- a/lisp/nnheader.el	Tue Feb 20 19:15:28 1996 +0000
+++ b/lisp/nnheader.el	Tue Feb 20 19:17:30 1996 +0000
@@ -188,14 +188,23 @@
     (set (car (car state)) (nth 1 (car state)))
     (setq state (cdr state))))
 
-;; Read the head of an article.
+(defvar nnheader-max-head-length 4096
+  "The maximum length of a HEAD.")
+
 (defun nnheader-insert-head (file)
-  (let ((beg 0)
-	(chop 1024))
-    (while (and (eq chop (nth 1 (nnheader-insert-file-contents-literally
-				 file nil beg (setq beg (+ chop beg)))))
-		(prog1 (not (search-backward "\n\n" nil t)) 
-		  (goto-char (point-max)))))))
+  "Insert the head of the article."
+  (if (eq nnheader-max-head-length t)
+      ;; Just read the entire file.
+      (insert-file-contents-literally file)
+    ;; Read 1K blocks until we find a separator.
+    (let ((beg 0)
+	  (chop 1024))
+      (while (and (eq chop (nth 1 (insert-file-contents-literally
+				   file nil beg (setq beg (+ beg chop)))))
+		  (prog1 (not (search-forward "\n\n" nil t)) 
+		    (goto-char (point-max)))
+		  (or (null nnheader-max-head-length)
+		      (< beg nnheader-max-head-length)))))))
 
 (defun nnheader-article-p ()
   (goto-char (point-min))