gnus-notifications: add actions support

[gnus] / lisp / gnus-compat.el

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index cc0bd45..2b25e45 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -77,6 +77,7 @@ TRASH is ignored."
       (delete-directory directory))))
 
 ;; Emacs 24.0.93
+(require 'url)
 (when (= (length (help-function-arglist 'url-retrieve)) 5)
   (defvar gnus-compat-original-url-retrieve
     (symbol-function 'url-retrieve))
@@ -85,6 +86,24 @@ TRASH is ignored."
     (funcall gnus-compat-original-url-retrieve
             url callback cbargs silent)))
 
+;; XEmacs
+(when (and (not (fboundp 'timer-set-function))
+          (fboundp 'set-itimer-function))
+  (defun timer-set-function (timer function &optional args)
+    "Make TIMER call FUNCTION with optional ARGS when triggering."
+    (lexical-let ((function function)
+                 (args args))
+      (set-itimer-function timer
+                          (lambda (process status)
+                            (apply function process status args))))))
+
+;; XEmacs 21.4
+(unless (fboundp 'bound-and-true-p)
+  (defmacro bound-and-true-p (var)
+    "Return the value of symbol VAR if it is bound, else nil."
+    (and (boundp var)
+        (symbol-value var))))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here