From: keiichi <keiichi>
Date: Thu, 27 Apr 2000 08:32:15 +0000 (+0000)
Subject: (pop3-retr): Fix bug.
X-Git-Tag: nana-gnus-7_1_0_22~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cf135cc7e1302416eade5b73b9873fd92892aea8;p=elisp%2Fgnus.git-

(pop3-retr): Fix bug.
(pop3-movemail): Fix bug.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index d3f0ffb..5f12251 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -140,10 +140,10 @@ Nil means no, t means yes, not-nil-or-t means yet to be determined.")
 	    (pop3-retr process (caar messages) crashbuf)
 	    (push (caar messages) retrieved-messages)
 	    (setq messages (cdr messages)
-		  n (1+ n)))
-	  (with-current-buffer crashbuf
-	    (write-region-as-binary (point-min) (point-max)
-				    crashbox 'append 'nomesg))
+		  n (1+ n))
+	    (with-current-buffer crashbuf
+	      (write-region-as-binary (point-min) (point-max)
+				      crashbox 'append 'nomesg)))
 	  ;; mark messages as read
 	  (when pop3-leave-mail-on-server
 	    (pop3-save-uidls))
@@ -540,9 +540,6 @@ Return the response string if optional second argument RETURN is non-nil."
       (setq end (point-marker))
       (pop3-clean-region start end)
       (pop3-munge-message-separator start end)
-      (save-excursion
-	(set-buffer crashbuf)
-	(erase-buffer))
       (copy-to-buffer crashbuf start end)
       (delete-region start end)
       )))