X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fpop3.el;h=ae48589a65a87bfd79158d3e92851800a5132e71;hb=f49b6e4dfa0b6b8d88e12de4161c30613bc4410c;hp=589a2ed23ef4eef3a9e074709f84b6231d34dce5;hpb=0805a9cdbfbe085a1a55f917bdee99ebdf86eb8a;p=elisp%2Fgnus.git-

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 589a2ed..ae48589 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -421,8 +421,9 @@ Return the response string if optional second argument RETURN is non-nil."
 	 (lambda (atom)
 	   (when (car (symbol-value atom))
 	     (insert (format "%s\n" atom))))
-	 pop3-uidl-obarray)))))
-    
+	 pop3-uidl-obarray)))
+    (fillarray pop3-uidl-obarray 0)))
+
 
 ;; The Command Set
 
@@ -544,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.