From: yamaoka <yamaoka>
Date: Thu, 14 Jan 1999 00:21:30 +0000 (+0000)
Subject: * (nnspool-retrieve-headers): Protect against empty body.
X-Git-Tag: pgnus-ichikawa-199901141900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b709f1f03ab1461581a2c5b945f7fc9bd4e68b5b;p=elisp%2Fgnus.git-

* (nnspool-retrieve-headers): Protect against empty body.
---

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index dd3d89c..f056344 100644
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -136,9 +136,13 @@ there.")
 	      (setq beg (point))
 	      (inline (nnheader-insert-head file))
 	      (goto-char beg)
-	      (search-forward "\n\n" nil t)
-	      (forward-char -1)
-	      (insert ".\n")
+	      (if (search-forward "\n\n" nil t)
+		  (progn (forward-char -1)
+			 (insert ".\n"))
+		(goto-char (point-max))
+		(if (bolp)
+		    (insert ".\n")
+		  (insert "\n.\n")))
 	      (delete-region (point) (point-max)))
 
 	    (and do-message