From 89bd689605413f0dbc826be9a109567ac038baea Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 18 Aug 1999 05:22:34 +0000 Subject: [PATCH] (pop3-retr): Undo last change. --- lisp/pop3.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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) -- 1.7.10.4