From cf135cc7e1302416eade5b73b9873fd92892aea8 Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 27 Apr 2000 08:32:15 +0000 Subject: [PATCH] (pop3-retr): Fix bug. (pop3-movemail): Fix bug. --- lisp/pop3.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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) ))) -- 1.7.10.4