--- gnus-ems.el~	2010-09-01 22:55:06 +0000
+++ gnus-ems.el	2010-09-02 07:33:21 +0000
@@ -317,16 +317,6 @@
       (put 'gnus-process-plist process plist))
     (defun gnus-process-plist (process)
       "Return the plist of PROCESS."
-      ;; Remove those of dead processes from `gnus-process-plist'
-      ;; to prevent it from growing.
-      (let ((plist (symbol-plist 'gnus-process-plist))
-	    proc)
-	(while (setq proc (car plist))
-	  (if (and (processp proc)
-		   (memq (process-status proc) '(open run)))
-	      (setq plist (cddr plist))
-	    (setcar plist (caddr plist))
-	    (setcdr plist (or (cdddr plist) '(nil))))))
       (get 'gnus-process-plist process))
     (defun gnus-process-get (process propname)
       "Return the value of PROCESS' PROPNAME property.