emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master fc520f8 5/9: Minor nndiary simplificatiuon with time zone


From: Paul Eggert
Subject: master fc520f8 5/9: Minor nndiary simplificatiuon with time zone
Date: Thu, 16 Dec 2021 14:17:37 -0500 (EST)

branch: master
commit fc520f8b7090fb95e61a498b5b23be6041475bd3
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Minor nndiary simplificatiuon with time zone
    
    * lisp/gnus/nndiary.el (nndiary-last-occurrence)
    (nndiary-next-occurrence): Simplify (and X (car X)) to (car X).
---
 lisp/gnus/nndiary.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index 133e030..6f8917e 100644
--- 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,



reply via email to

[Prev in Thread] Current Thread [Next in Thread]