From b709f1f03ab1461581a2c5b945f7fc9bd4e68b5b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 14 Jan 1999 00:21:30 +0000 Subject: [PATCH] * (nnspool-retrieve-headers): Protect against empty body. --- lisp/nnspool.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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 -- 1.7.10.4