[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#60325: 30.0.50; [PATCH] Fix rfc822 date decode in newsticker
From: |
Eli Zaretskii |
Subject: |
bug#60325: 30.0.50; [PATCH] Fix rfc822 date decode in newsticker |
Date: |
Thu, 29 Dec 2022 11:06:04 +0200 |
> Date: Sun, 25 Dec 2022 17:32:45 -0600
> From: LdBeth <andpuke@foxmail.com>
>
> `newsticker--decode-rfc822-date' matches North American timezone in
> regex, but the actually time stamp conversion was not implemented.
> This patch fixes the missing timezone conversion.
Paul, any comments? If not, I intend to install this on master.
Thanks.
> From c06782604df686dd17e6eab5caf64e1717f519dc Mon Sep 17 00:00:00 2001
> From: LdBeth <andpuke@foxmail.com>
> Date: Sun, 25 Dec 2022 17:15:12 -0600
> Subject: [PATCH] Fix newsticker timezone decode
>
> `newsticker--decode-rfc822-date' has the regex pattern for
> North American timezones but the actual timezone conversion
> for them was not implmented. Now cond cases are added to
> handle them as specified in RFC822.
> ---
> lisp/net/newst-backend.el | 20 +++++++++++++++-----
> 1 file changed, 15 insertions(+), 5 deletions(-)
>
> diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
> index af196cc..2a87742 100644
> --- a/lisp/net/newst-backend.el
> +++ b/lisp/net/newst-backend.el
> @@ -1623,7 +1623,7 @@ Sat, 07 Sep 2002 00:00:01 GMT
> ":\\([0-9]\\{2\\}\\)"
> ;; second
> "\\(:\\([0-9]\\{2\\}\\)\\)?"
> - ;; zone -- fixme
> + ;; zone
> "\\(\\s-+\\("
> "UT\\|GMT\\|EST\\|EDT\\|CST\\|CDT\\|MST\\|MDT\\|PST\\|PDT"
> "\\|\\([-+]\\)\\([0-9]\\{2\\}\\)\\([0-9]\\{2\\}\\)"
> @@ -1642,16 +1642,26 @@ Sat, 07 Sep 2002 00:00:01 GMT
> (offset-hour (read (or (match-string 14 rfc822-string)
> "0")))
> (offset-minute (read (or (match-string 15 rfc822-string)
> - "0")))
> - ;;FIXME
> - )
> + "0"))))
> (when zone
> (cond ((string= sign "+")
> (setq hour (- hour offset-hour))
> (setq minute (- minute offset-minute)))
> ((string= sign "-")
> (setq hour (+ hour offset-hour))
> - (setq minute (+ minute offset-minute)))))
> + (setq minute (+ minute offset-minute)))
> + ((or (string= zone "UT") (string= zone "GMT"))
> + nil)
> + ((string= zone "EDT")
> + (setq hour (+ hour 4)))
> + ((or (string= zone "EST") (string= zone "CDT"))
> + (setq hour (+ hour 5)))
> + ((or (string= zone "CST") (string= zone "MDT"))
> + (setq hour (+ hour 6)))
> + ((or (string= zone "MST") (string= zone "PDT"))
> + (setq hour (+ hour 7)))
> + ((string= zone "PST")
> + (setq hour (+ hour 8)))))
> (condition-case error-data
> (let ((i 1))
> (dolist (m '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug"
> --
> 2.33.1
>