* AUTHORS: Update maintainer's mail address.

* lisp/liece-misc.el (liece-time-difference): Use `abs' for
`liece-check-buffers-if-interval-expired'.

diff --git a/AUTHORS b/AUTHORS
index 071acdb..71f1248 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,6 +1,6 @@
 -*- mode: text; left-margin: 2; fill-column: 70; -*-
 
-  Liece is mainly written by Daiki Ueno <ueno@ueda.info.waseda.ac.jp>.
+  Liece is mainly written by Daiki Ueno <ueno@unixuser.org>.
   
   This package based on Irchat (version 3.01) which has been
   distributed under GPL1 or later.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0658a60..31c2534 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-02  Katsuhiro Hermit Endo  <hermit@koka-in.org>
+
+       * liece-misc.el (liece-time-difference): Use `abs' for
+       `liece-check-buffers-if-interval-expired'.
+
 2001-09-16  Katsuhiro Hermit Endo  <hermit@koka-in.org>
 
        * liece-vars.el (liece-server-alist): Update default value.

diff --git a/lisp/liece-misc.el b/lisp/liece-misc.el
index 79f6cea..4820e9a 100644 (file)
--- a/lisp/liece-misc.el
+++ b/lisp/liece-misc.el
@@ -434,8 +434,8 @@
 (defmacro liece-time-difference (t0 t1)
   "Difference in seconds between T0 and T1.
 Both T0 and T1 are in the encoded time format."
-  `(+ (* (- (car ,t1) (car ,t0)) 65536)
-      (- (cadr ,t1)) (cadr ,t0)))
+  `(abs (+ (* (- (car ,t1) (car ,t0)) 65536)
+          (- (cadr ,t1)) (cadr ,t0))))
 
 (defmacro liece-time-add (t0 t1)
   "Add T0 seconds to time T1.