2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-util.el (gnus-process-live-p): Copy over compat function.
+
* pop3.el (pop3-wait-for-messages): If the pop3 process dies, stop
processing.
(with-current-buffer gnus-group-buffer
(eq major-mode 'gnus-group-mode))))
+(defun gnus-process-live-p (process)
+ "Returns non-nil if PROCESS is alive.
+A process is considered alive if its status is `run', `open',
+`listen', `connect' or `stop'."
+ (memq (process-status process)
+ '(run open listen connect stop)))
+
(defun gnus-remove-if (predicate sequence &optional hash-table-p)
"Return a copy of SEQUENCE with all items satisfying PREDICATE removed.
SEQUENCE should be a list, a vector, or a string. Returns always a list.