diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-diary.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-icalendar.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnrss.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnspool.el | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index 0e78f2b8992..16973074be4 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el @@ -161,7 +161,7 @@ There are currently two built-in format functions: (now (current-time)) (occur (nndiary-next-occurrence sched now)) (real-time (time-subtract occur now))) - (let* ((sec (encode-time real-time 'integer)) + (let* ((sec (time-convert real-time 'integer)) (past (< sec 0)) delay) (and past (setq sec (- sec))) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 7e0ceec17b6..b40379c4f5c 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -4533,7 +4533,7 @@ and the second element is the address." This function can be used in hooks like `gnus-select-group-hook' or `gnus-group-catchup-group-hook'." (when gnus-newsgroup-name - (let ((time (encode-time nil 'integer))) + (let ((time (time-convert nil 'integer))) (gnus-group-set-parameter gnus-newsgroup-name 'timestamp time)))) (defsubst gnus-group-timestamp (group) diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 529cafe23e8..7d11b5699bb 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -650,7 +650,7 @@ is searched." (defun gnus-icalendar-show-org-agenda (event) (let* ((time-delta (time-subtract (gnus-icalendar-event:end-time event) (gnus-icalendar-event:start-time event))) - (duration-days (1+ (floor (encode-time time-delta 'integer) 86400)))) + (duration-days (1+ (floor (time-convert time-delta 'integer) 86400)))) (org-agenda-list nil (gnus-icalendar-event:start event) duration-days))) (cl-defmethod gnus-icalendar-event:sync-to-org ((event gnus-icalendar-event-request) reply-status) diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 958745d5790..955432764e6 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el @@ -455,7 +455,7 @@ which RSS 2.0 allows." (cond ((null date)) ; do nothing for this case ;; if the date is just digits (unix time stamp): ((string-match "^[0-9]+$" date) - (setq given (encode-time (string-to-number date)))) + (setq given (time-convert (string-to-number date)))) ;; RFC 822 ((string-match " [0-9]+ " date) (setq vector (timezone-parse-date date) diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index 767631c6859..31ed3e97ef9 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el @@ -305,7 +305,7 @@ there.") (while (and (not (looking-at "\\([^ ]+\\) +\\([0-9]+\\)[0-9][0-9][0-9] ")) (zerop (forward-line -1)))) - (let ((seconds (encode-time (date-to-time date) 'integer)) + (let ((seconds (time-convert (date-to-time date) 'integer)) groups) ;; Go through lines and add the latest groups to a list. (while (and (looking-at "\\([^ ]+\\) +[0-9]+ ") |