bug#60325: 30.0.50; [PATCH] Fix rfc822 date decode in newsticker

[Eli Zaretskii]

> 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
>