update.

[elisp/liece.git] / lisp / liece-commands.el

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 755e028..5062929 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -339,8 +339,8 @@ If SILENT is non-nil, don't notify current status."
                                       (car ignore))))
        ;; did not find, add to ignored ones
        (let ((expire-time (if (> timeout 0)
-                              (liece-time-add (current-time)
-                                               (* timeout 60)))))
+                              (liece-time-elapsed (current-time)
+                                                  (* timeout 60)))))
          (and silent (> timeout 0)
               (setcar (cdr (cdr expire-time)) -1))
          (setq liece-kill-nickname