From: ueno <ueno>
Date: Wed, 18 Aug 1999 05:22:34 +0000 (+0000)
Subject: (pop3-retr): Undo last change.
X-Git-Tag: t-gnus-6_13_0-06~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=89bd689605413f0dbc826be9a109567ac038baea;p=elisp%2Fgnus.git-

(pop3-retr): Undo last change.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index dbcdfe1..8a2bd52 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -420,10 +420,11 @@ Return the response string if optional second argument is non-nil."
   (pop3-send-command process (format "RETR %s" msg))
   (pop3-read-response process)
   (save-excursion
-    (let ((region (pop3-get-extended-response process)))
-      (apply 'pop3-munge-message-separator region)
-      (apply 'append-to-buffer crashbuf region)
-      (apply 'delete-region region)
+    (save-restriction
+      (apply 'narrow-to-region (pop3-get-extended-response process))
+      (pop3-munge-message-separator (point-min) (point-max))
+      (append-to-buffer crashbuf (point-min) (point-max))
+      (delete-region (point-min) (point-max))
       )))
 
 (defun pop3-dele (process msg)