Index: howm-common.el
===================================================================
RCS file: /home/hira/PATH/CVSROOT/howm/howm-common.el,v
retrieving revision 1.72
diff -u -r1.72 howm-common.el
--- howm-common.el	15 May 2006 13:34:32 -0000	1.72
+++ howm-common.el	7 Nov 2007 12:44:42 -0000
@@ -327,6 +327,13 @@
                        ans)))))
 ;; (howm-classify (lambda (s) (substring s 0 1)) '("aaa" "abc" "xyz"))
 
+(defun howm-decode-time (&optional specified-time)
+  "Decode time and remove DOW, DST, ZONE.
+When we do something like (encode-time (decode-time)), we use this function
+instead of `decode-time' so that we can force current timezone rule uniformly
+to avoid inconsistency."
+  (butlast (decode-time specified-time) 3))
+
 ;; view-in-background
 
 (defvar *howm-view-in-background* nil
Index: howm-mode.el
===================================================================
RCS file: /home/hira/PATH/CVSROOT/howm/howm-mode.el,v
retrieving revision 1.290
diff -u -r1.290 howm-mode.el
--- howm-mode.el	22 Mar 2006 13:29:25 -0000	1.290
+++ howm-mode.el	7 Nov 2007 12:44:42 -0000
@@ -420,7 +420,7 @@
           (t a))))
 
 (defun howm-days-after (ti days &optional hours)
-  (let* ((ne (decode-time ti))
+  (let* ((ne (howm-decode-time ti))
          (hour-pos 2)
          (day-pos 3)
          (nh (nth hour-pos ne))
Index: howm-reminder.el
===================================================================
RCS file: /home/hira/PATH/CVSROOT/howm/howm-reminder.el,v
retrieving revision 1.58
diff -u -r1.58 howm-reminder.el
--- howm-reminder.el	23 Jan 2006 14:40:00 -0000	1.58
+++ howm-reminder.el	7 Nov 2007 12:44:42 -0000
@@ -604,13 +604,13 @@
 When D is omitted, the current time is encoded.
 When D is t, the beginning of today is encoded."
   (let* ((e (apply #'encode-time (cond ((eq d t)
-                                        (let ((now (decode-time)))
+                                        (let ((now (howm-decode-time)))
                                           (append '(0 0 0) (cdddr now))))
                                        (d
                                         (mapcar #'string-to-number
                                                 (list "0" "0" "0" d m y)))
                                        (t
-                                        (decode-time)))))
+                                        (howm-decode-time)))))
          (hi (car e))
          (low (second e))
          (daysec (* 60 60 24.0)))
