From: ueno <ueno>
Date: Tue, 5 Sep 2000 06:02:01 +0000 (+0000)
Subject: (pop3-quit): Don't clear `pop3-uidl-obarray'.
X-Git-Tag: t-gnus-6_14_5-05~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=702f91d8fca69436b5953dc66a357ddd1bbfcf0a;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 890bed5..ca83e6a 100644
--- 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
--- 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.