2000-11-08 08:38:30 ShengHuo ZHU <zsh@cs.rochester.edu>

	* pop3.el (pop3-munge-message-separator): A message may have an
	empty body.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4da00ff..88b6fdb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-08 08:38:30  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * pop3.el (pop3-munge-message-separator): A message may have an
+       empty body.
+
 2000-11-07 18:02:26  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 02630b5..6838432 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -234,7 +234,10 @@ Return the response string if optional second argument is non-nil."
                                  (substring From_ (match-end 0)))))
            (goto-char (point-min))
            (insert From_)
-           (re-search-forward "\n\n")
+           (if (search-forward "\n\n" nil t)
+               nil
+             (goto-char (point-max))
+             (insert "\n"))
            (narrow-to-region (point) (point-max))
            (let ((size (- (point-max) (point-min))))
              (goto-char (point-min))