* riece-xemacs.el (riece-run-at-time): Accept nil as the current-time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ef82a7..fee5cbb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-02-04  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-xemacs.el (riece-run-at-time): Accept nil as the current-time.
+
        * riece-compat.el (riece-read-passwd): Changed default value.
 
        * riece-400.el (riece-handle-475-message): Don't bind inhibit-quit

diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 70735ac..5df81ba 100644 (file)
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -100,7 +100,7 @@
      name
      `(lambda ()
        (,function ,@args))
-     time repeat)
+     (or time (current-time)) repeat)
     name))
 
 (defun riece-run-with-idle-timer (time repeat function &rest args)