(pop3-quit): Don't clear `pop3-uidl-obarray'.

diff --git a/ChangeLog b/ChangeLog
index 890bed5..ca83e6a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2000-09-05   Daiki Ueno  <ueno@unixuser.org>
 
-       * lisp/pop3.el (pop3-save-uidls): Clear `pop3-uidl-obarray'.
+       * lisp/pop3.el (pop3-quit): Don't clear `pop3-uidl-obarray'.
+       (pop3-save-uidls): Clear `pop3-uidl-obarray' here.
 
 2000-09-04   Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 4f2d2d9..ae48589 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -545,14 +545,7 @@ and close the connection."
     (save-excursion
       (set-buffer (process-buffer process))
       (goto-char (point-max))
-      (delete-process process)
-      ))
-  (when pop3-leave-mail-on-server
-    (mapatoms
-     (lambda (atom)
-       (when (car (symbol-value atom))
-        (unintern atom pop3-uidl-obarray)))
-     pop3-uidl-obarray)))
+      (delete-process process))))
 
 (defun pop3-uidl (process &optional msgno)
   "Return the results of a UIDL command in PROCESS for optional MSGNO.