Avoid compilation error on Emacs 23
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Sun, 15 Feb 2015 04:50:31 +0000 (15:50 +1100)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Sun, 15 Feb 2015 04:50:31 +0000 (15:50 +1100)
* gnus-compat.el (process-live-p): Added new compat function for Emacs
23.

lisp/ChangeLog
lisp/gnus-compat.el

index 91643d1..b185292 100644 (file)
@@ -1,3 +1,8 @@
+2015-02-15  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-compat.el (process-live-p): Added new compat function for Emacs
+       23.
+
 2015-02-14  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-retrieve-headers): If the server closes connection
index 1d8a2b3..b96a6ac 100644 (file)
@@ -153,6 +153,16 @@ one is kept."
                (mm-encode-coding-string string 'utf-8)
              string))))
 
+(unless (fboundp 'process-live-p)
+  (defun 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'.  Value is nil if PROCESS is not a
+process."
+    (and (processp process)
+        (memq (process-status process)
+              '(run open listen connect stop)))))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here