Minor nndiary simplificatiuon with time zone

* lisp/gnus/nndiary.el (nndiary-last-occurrence)
(nndiary-next-occurrence): Simplify (and X (car X)) to (car X).

diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index 133e0307a542ee47815282dcbc2d22a5cfe324f2..6f8917e2528fc311ddbfa1dedfc4cc3951445d0b 100644 (file)
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -1308,7 +1308,7 @@ all.  This may very well take some time.")
   (let ((minute (nndiary-max (nth 0 sched)))
        (hour (nndiary-max (nth 1 sched)))
        (year (nndiary-max (nth 4 sched)))
-       (time-zone (or (and (nth 6 sched) (car (nth 6 sched)))
+       (time-zone (or (car (nth 6 sched))
                       (current-time-zone))))
     (when year
       (or minute (setq minute 59))
@@ -1405,7 +1405,7 @@ all.  This may very well take some time.")
                  t))
         (dow-list (nth 5 sched))
         (year (1- this-year))
-        (time-zone (or (and (nth 6 sched) (car (nth 6 sched)))
+        (time-zone (or (car (nth 6 sched))
                        (current-time-zone))))
     ;; Special case: an asterisk in one of the days specifications means that
     ;; only the other should be taken into account. If both are unspecified,