bug#32443: 27.0.50; encode-time bug

bug#32443: 27.0.50; encode-time bug

[Live System User]

Hi,

        I am getting an "Invalid date" error when starting
        Gnus (see attachment).

        I don't get this error and Gnus starts up normally
        with Emacs 26.1.

        Thanks.




In GNU Emacs 27.0.50 (build 3, x86_64-pc-linux-gnu, GTK+ Version 3.20.10)
 of 2018-08-14 built on localhost.localdomain
Repository revision: 5620d591ee67e5b31ca8d5aa0dcc1a13116b09a7
Windowing system distributor 'Fedora Project', version 11.0.11803000
System Description: Fedora 24 (Workstation Edition)

Recent messages:
Mark set [2 times]
Saved text until "mmand-execute(execute-extended-command)
"
Mark set
Saving file /home/liveuser/gnus-date-error.txt...
Wrote /home/liveuser/gnus-date-error.txt
Read-Only mode enabled in current buffer
previous-line: Beginning of buffer [7 times]
Mark saved where search started [2 times]
previous-line: Beginning of buffer [5 times]
previous-line: Beginning of buffer
Configured using:
 'configure 'CFLAGS=-DMAIL_USE_LOCKF -O0 -ggdb3 -pipe -Wall
 -Werror=format-security -fexceptions -fstack-protector-strong
 --param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic'
 LDFLAGS=-Wl,-z,relro
 --prefix=/tmp/emacs-27.0-git-master
 --with-dbus --with-gif --with-jpeg --with-png --with-rsvg --with-lcms2
 --with-tiff --with-xft --with-xpm --with-x-toolkit=gtk3 --with-gpm=yes
 --with-xwidgets --with-modules --with-json'

Configured features:
XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GSETTINGS NOTIFY
ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB
TOOLKIT_SCROLL_BARS GTK3 X11 MODULES THREADS XWIDGETS JSON LCMS2 GMP

Important settings:
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix

Major mode: Text

Minor modes in effect:
  gnus-desktop-notify-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug help-fns radix-tree cl-print debug
backtrace cus-start timezone utf-7 nnfolder nnagent nnml gnutls
network-stream nsm gnus-agent gnus-srvr gnus-score score-mode nnvirtual
gnus-msg gnus-cache gnus-demon nntp gnus-desktop-notify notifications
dbus xml epa-file nnreddit gnus-art mm-uu mml2015 cl sieve sieve-mode
sieve-manage sasl sasl-anonymous sasl-login sasl-plain advice nnir
gnus-sum gnus-group mm-url gnus-undo gnus-start gnus-cloud nnimap nnmail
mail-source imap rfc2104 utf7 netrc parse-time gnus-spec gnus-int
gnus-range gnus-win gnus message rmc puny dired desktop frameset edmacro
kmacro dired-loaddefs subr-x format-spec rfc822 mml url url-proxy
url-privacy url-expand url-methods url-history url-cookie url-domsuf
url-util url-parse auth-source eieio eieio-core eieio-loaddefs json rx
map url-vars mm-view mml-smime smime dig mailcap mml-sec password-cache
epa epg cl-extra help-mode easymenu epg-config mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev sendmail derived gmm-utils
mailheader seq byte-opt bytecomp byte-compile cconv wid-edit nnoo
nnheader gnus-util rmail dframe rmail-loaddefs rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mail-utils misearch multi-isearch
elec-pair cl-seq easy-mmode cl-macs inline cl-loaddefs cl-lib gv pcase
time-date mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode elisp-mode lisp-mode prog-mode register page menu-bar
rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core term/tty-colors frame cl-generic cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese composite charscript charprop
case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote threads dbusbind
inotify lcms2 dynamic-setting system-font-setting font-render-setting
xwidget-internal move-toolbar gtk x-toolkit x multi-tty
make-network-process emacs)

Memory information:
((conses 16 840321 58820)
 (symbols 48 127249 0)
 (strings 32 105403 3903)
 (string-bytes 1 4088488)
 (vectors 16 11805)
 (vector-slots 8 571636 32258)
 (floats 8 267 599)
 (intervals 56 9430 361)
 (buffers 992 34)
 (heap 1024 78672 18405))

bug#32443: 27.0.50; encode-time bug

[Live System User]

[-- Attachment #1: Type: text/plain, Size: 75 bytes --]


       Here's the `encode-time' error, as an attachment.

       Thanks



[-- Attachment #2: encode-time error --]
[-- Type: text/plain, Size: 15689 bytes --]

Debugger entered--Lisp error: (error "Invalid date: Tue, 06 Mar 2018 11:17:02 -0500")
  signal(error ("Invalid date: Tue, 06 Mar 2018 11:17:02 -0500"))
  error("Invalid date: %s" "Tue, 06 Mar 2018 11:17:02 -0500")
  (if (equal err overflow-error) (apply 'signal err) (error "Invalid date: %s" date))
  (condition-case err (apply 'encode-time (parse-time-string (timezone-make-date-arpa-standard date))) (error (if (equal err overflow-error) (apply 'signal err) (error "Invalid date: %s" date))))
  (if (equal err overflow-error) (apply 'signal err) (condition-case err (apply 'encode-time (parse-time-string (timezone-make-date-arpa-standard date))) (error (if (equal err overflow-error) (apply 'signal err) (error "Invalid date: %s" date)))))
  (let ((overflow-error '(error "Specified time is not representable"))) (if (equal err overflow-error) (apply 'signal err) (condition-case err (apply 'encode-time (parse-time-string (timezone-make-date-arpa-standard date))) (error (if (equal err overflow-error) (apply 'signal err) (error "Invalid date: %s" date))))))
  (condition-case err (apply 'encode-time (parse-time-string date)) (error (let ((overflow-error '(error "Specified time is not representable"))) (if (equal err overflow-error) (apply 'signal err) (condition-case err (apply 'encode-time (parse-time-string (timezone-make-date-arpa-standard date))) (error (if (equal err overflow-error) (apply ... err) (error "Invalid date: %s" date))))))))
  date-to-time("Tue, 06 Mar 2018 11:17:02 -0500")
  (format-time-string "%y%m%d %H%M%S" (date-to-time date) t)
  (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT")
  (prog1 (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT") (nntp-decode-text))
  (save-current-buffer (set-buffer nntp-server-buffer) (prog1 (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT") (nntp-decode-text)))
  (lambda nil (save-current-buffer (set-buffer nntp-server-buffer) (prog1 (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT") (nntp-decode-text))))()
  funcall((lambda nil (save-current-buffer (set-buffer nntp-server-buffer) (prog1 (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT") (nntp-decode-text)))))
  (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil (nntp-close-server)) (signal 'quit nil)))
  (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil (nntp-close-server)) (signal 'quit nil))))
  (unwind-protect (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil (nntp-close-server)) (signal 'quit nil)))) (if -timer (progn (nnheader-cancel-timer -timer))))
  (let ((-timer (and nntp-connection-timeout (run-at-time nntp-connection-timeout nil #'(lambda nil (let* ... ...)))))) (unwind-protect (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil (nntp-close-server)) (signal 'quit nil)))) (if -timer (progn (nnheader-cancel-timer -timer)))) nil)
  (catch 'nntp-with-open-group-error (nntp-possibly-change-group -group -server -connectionless) (let ((-timer (and nntp-connection-timeout (run-at-time nntp-connection-timeout nil #'(lambda nil ...))))) (unwind-protect (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil (nntp-close-server)) (signal 'quit nil)))) (if -timer (progn (nnheader-cancel-timer -timer)))) nil))
  (while (catch 'nntp-with-open-group-error (nntp-possibly-change-group -group -server -connectionless) (let ((-timer (and nntp-connection-timeout (run-at-time nntp-connection-timeout nil #'...)))) (unwind-protect (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debug-on-quit nil ...) (signal ... nil)))) (if -timer (progn (nnheader-cancel-timer -timer)))) nil)) (setq nntp--report-1 nntp-report-n))
  (let ((nntp-report-n nntp--report-1) (nntp--report-1 t) (nntp-with-open-group-internal nil)) (while (catch 'nntp-with-open-group-error (nntp-possibly-change-group -group -server -connectionless) (let ((-timer (and nntp-connection-timeout (run-at-time nntp-connection-timeout nil ...)))) (unwind-protect (setq nntp-with-open-group-internal (condition-case nil (funcall -bodyfun) (quit ... ...))) (if -timer (progn (nnheader-cancel-timer -timer)))) nil)) (setq nntp--report-1 nntp-report-n)) nntp-with-open-group-internal)
  nntp-with-open-group-function(nil "news" nil (lambda nil (save-current-buffer (set-buffer nntp-server-buffer) (prog1 (nntp-send-command "^\\.\15?\n" "NEWGROUPS" (format-time-string "%y%m%d %H%M%S" (date-to-time date) t) "GMT") (nntp-decode-text)))))
  nntp-request-newgroups("Tue, 06 Mar 2018 11:17:02 -0500" "news")
  funcall(nntp-request-newgroups "Tue, 06 Mar 2018 11:17:02 -0500" "news")
  (progn (funcall func date (nth 1 gnus-command-method)))
  (if func (progn (funcall func date (nth 1 gnus-command-method))))
  (let ((func (gnus-get-function gnus-command-method 'request-newgroups t))) (if func (progn (funcall func date (nth 1 gnus-command-method)))))
  gnus-request-newgroups("Tue, 06 Mar 2018 11:17:02 -0500" (nntp "news" (nntp-address "news.gmane.org") (nnir-search-engine nntp)))
  (and (gnus-check-server method) (gnus-request-newgroups date method))
  (if (and (gnus-check-server method) (gnus-request-newgroups date method)) (progn (save-excursion (setq got-new t hashtb (gnus-make-hashtable 100)) (set-buffer nntp-server-buffer) (gnus-active-to-gnus-format method hashtb 'ignore)) (mapatoms #'(lambda (group-sym) (if (or (null ...) (not ...) (null ...) (symbol-value ...) (member group gnus-zombie-list) (member group gnus-killed-list)) nil (if (symbol-value group-sym) (progn ...)) (let (...) (cond ... ... ...)))) hashtb)))
  (while (setq method (gnus-server-get-method nil (car-safe (prog1 methods (setq methods (cdr methods)))))) (setq new-newsgroups nil gnus-override-subscribe-method method) (if (and (gnus-check-server method) (gnus-request-newgroups date method)) (progn (save-excursion (setq got-new t hashtb (gnus-make-hashtable 100)) (set-buffer nntp-server-buffer) (gnus-active-to-gnus-format method hashtb 'ignore)) (mapatoms #'(lambda (group-sym) (if (or ... ... ... ... ... ...) nil (if ... ...) (let ... ...))) hashtb))) (if new-newsgroups (progn (gnus-subscribe-hierarchical-interactive new-newsgroups))))
  (let* ((new-date (message-make-date)) (date (or gnus-newsrc-last-checked-date new-date)) (methods (cons gnus-select-method (nconc (if (gnus-archive-server-wanted-p) (progn (list "archive"))) (append (and (consp gnus-check-new-newsgroups) gnus-check-new-newsgroups) gnus-secondary-select-methods)))) (groups 0) group new-newsgroups got-new method hashtb gnus-override-subscribe-method) (if gnus-killed-hashtb nil (gnus-make-hashtable-from-killed)) (while (setq method (gnus-server-get-method nil (car-safe (prog1 methods (setq methods (cdr methods)))))) (setq new-newsgroups nil gnus-override-subscribe-method method) (if (and (gnus-check-server method) (gnus-request-newgroups date method)) (progn (save-excursion (setq got-new t hashtb (gnus-make-hashtable 100)) (set-buffer nntp-server-buffer) (gnus-active-to-gnus-format method hashtb 'ignore)) (mapatoms #'(lambda (group-sym) (if ... nil ... ...)) hashtb))) (if new-newsgroups (progn (gnus-subscribe-hierarchical-interactive new-newsgroups)))) (if (> groups 0) (gnus-message 5 "%d new newsgroup%s arrived" groups (if (> groups 1) "s have" " has")) (gnus-message 5 "No new newsgroups")) (if got-new (progn (setq gnus-newsrc-last-checked-date new-date))) new-newsgroups)
  gnus-ask-server-for-new-groups()
  (if (or (consp check) (eq check 'ask-server)) (gnus-ask-server-for-new-groups) (let ((groups 0) group new-newsgroups) (gnus-message 5 "Looking for new newsgroups...") (if gnus-have-read-active-file nil (gnus-read-active-file)) (setq gnus-newsrc-last-checked-date (message-make-date)) (if gnus-killed-hashtb nil (gnus-make-hashtable-from-killed)) (mapatoms #'(lambda (sym) (if (or (null ...) (not ...) (null ...) (symbol-value ...) (symbol-value ...)) nil (let (...) (cond ... ... ...)))) gnus-active-hashtb) (if new-newsgroups (progn (gnus-subscribe-hierarchical-interactive new-newsgroups))) (if (> groups 0) (gnus-message 5 "%d new newsgroup%s arrived." groups (if (> groups 1) "s have" " has")) (gnus-message 5 "No new newsgroups.")) groups))
  (let* ((gnus-subscribe-newsgroup-method gnus-subscribe-newsgroup-method) (check (cond ((or (and (= ... 4) (not ...)) (null gnus-read-active-file) (eq gnus-read-active-file 'some)) 'ask-server) ((= (or arg 1) 16) (setq gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies) t) (t gnus-check-new-newsgroups)))) (if (or (consp check) (eq check 'ask-server)) (gnus-ask-server-for-new-groups) (let ((groups 0) group new-newsgroups) (gnus-message 5 "Looking for new newsgroups...") (if gnus-have-read-active-file nil (gnus-read-active-file)) (setq gnus-newsrc-last-checked-date (message-make-date)) (if gnus-killed-hashtb nil (gnus-make-hashtable-from-killed)) (mapatoms #'(lambda (sym) (if (or ... ... ... ... ...) nil (let ... ...))) gnus-active-hashtb) (if new-newsgroups (progn (gnus-subscribe-hierarchical-interactive new-newsgroups))) (if (> groups 0) (gnus-message 5 "%d new newsgroup%s arrived." groups (if (> groups 1) "s have" " has")) (gnus-message 5 "No new newsgroups.")) groups)))
  gnus-find-new-newsgroups()
  (progn (gnus-find-new-newsgroups))
  (if (and init gnus-check-new-newsgroups (not level) (gnus-check-server gnus-select-method) (not gnus-slave) gnus-plugged) (progn (gnus-find-new-newsgroups)))
  (let ((init (not (and gnus-newsrc-alist gnus-active-hashtb (not rawfile)))) (nnmail-fetched-sources (list t))) (if init (progn (setq gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile))) (let ((method (or (and (stringp gnus-message-archive-method) (gnus-server-to-method gnus-message-archive-method)) gnus-message-archive-method))) (if (or (not method) (stringp method) (memq 'respool (assoc (format "%s" (car method)) gnus-valid-select-methods))) nil (setq method "archive")) (if (stringp method) (progn (setq method (cons 'nnfolder (cons method (cons ... ...)))))) (if (assoc "archive" gnus-server-alist) (if gnus-update-message-archive-method (progn (if method (setcdr (assoc "archive" gnus-server-alist) method) (setq gnus-server-alist (delq ... gnus-server-alist))))) (if method (progn (setq gnus-server-alist (cons (cons "archive" method) gnus-server-alist)))))) (if (or (null gnus-read-active-file) (eq gnus-read-active-file 'some)) (progn (gnus-update-active-hashtb-from-killed))) (if gnus-active-hashtb nil (setq gnus-active-hashtb (gnus-make-hashtable 4096))) (if gnus-use-cache (progn (gnus-cache-open))) (and init (or gnus-use-dribble-file gnus-slave) (gnus-dribble-eval-file)) (if (and init gnus-slave) (progn (gnus-dribble-clear))) (gnus-update-format-specifications) (if (and (boundp 'gnus-group-line-format) (stringp gnus-group-line-format) (let ((case-fold-search nil)) (string-match "%[-,0-9]*D" gnus-group-line-format)) (not gnus-description-hashtb) (not dont-connect) gnus-read-active-file) (progn (gnus-read-all-descriptions-files))) (if (and init gnus-check-new-newsgroups (not level) (gnus-check-server gnus-select-method) (not gnus-slave) gnus-plugged) (progn (gnus-find-new-newsgroups))) (if (and init gnus-check-bogus-newsgroups gnus-read-active-file (not level) (gnus-server-opened gnus-select-method)) (progn (gnus-check-bogus-newsgroups))) (gnus-master-read-slave-newsrc) (let ((gnus-read-active-file (and (not level) gnus-read-active-file))) (gnus-get-unread-articles level dont-connect)))
  gnus-setup-news(nil nil nil)
  (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks 'gnus-startup-hook) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (if (or gnus-slave gnus-use-dribble-file) (progn (gnus-dribble-read-file))) (gnus-setup-news nil level dont-connect) (gnus-run-hooks 'gnus-setup-news-hook) (if gnus-agent (progn (gnus-request-create-group "queue" '(nndraft "")))) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows 'group) (gnus-group-set-mode-line) (gnus-run-hooks 'gnus-started-hook))
  (unwind-protect (progn (if dont-connect nil (setq did-connect (gnus-start-news-server (and arg (not level)))))) (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks 'gnus-startup-hook) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (if (or gnus-slave gnus-use-dribble-file) (progn (gnus-dribble-read-file))) (gnus-setup-news nil level dont-connect) (gnus-run-hooks 'gnus-setup-news-hook) (if gnus-agent (progn (gnus-request-create-group "queue" '(nndraft "")))) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows 'group) (gnus-group-set-mode-line) (gnus-run-hooks 'gnus-started-hook)))
  (let ((level (and (numberp arg) (> arg 0) arg)) did-connect) (unwind-protect (progn (if dont-connect nil (setq did-connect (gnus-start-news-server (and arg (not level)))))) (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks 'gnus-startup-hook) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (if (or gnus-slave gnus-use-dribble-file) (progn (gnus-dribble-read-file))) (gnus-setup-news nil level dont-connect) (gnus-run-hooks 'gnus-setup-news-hook) (if gnus-agent (progn (gnus-request-create-group "queue" '(nndraft "")))) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows 'group) (gnus-group-set-mode-line) (gnus-run-hooks 'gnus-started-hook))))
  (if (gnus-alive-p) (progn (gnus-run-hooks 'gnus-before-resume-hook) (switch-to-buffer gnus-group-buffer) (gnus-group-get-new-news (and (numberp arg) (> arg 0) (max (car gnus-group-list-mode) arg)))) (gnus-clear-system) (gnus-splash) (gnus-run-hooks 'gnus-before-startup-hook) (nnheader-init-server-buffer) (setq gnus-slave slave) (gnus-read-init-file) (if gnus-select-method (progn (add-to-list 'gnus-predefined-server-alist (cons "native" gnus-select-method)))) (if gnus-agent (gnus-agentize)) (let ((level (and (numberp arg) (> arg 0) arg)) did-connect) (unwind-protect (progn (if dont-connect nil (setq did-connect (gnus-start-news-server (and arg ...))))) (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks 'gnus-startup-hook) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (if (or gnus-slave gnus-use-dribble-file) (progn (gnus-dribble-read-file))) (gnus-setup-news nil level dont-connect) (gnus-run-hooks 'gnus-setup-news-hook) (if gnus-agent (progn (gnus-request-create-group "queue" '...))) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows 'group) (gnus-group-set-mode-line) (gnus-run-hooks 'gnus-started-hook)))))
  gnus-1(nil nil nil)
  (let ((gnus-action-message-log (list nil))) (gnus-1 arg dont-connect slave) (gnus-final-warning))
  gnus(nil)
  funcall-interactively(gnus nil)
  call-interactively(gnus record nil)
  command-execute(gnus record)
  execute-extended-command(nil "gnus" nil)
  funcall-interactively(execute-extended-command nil "gnus" nil)
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

bug#32443: 27.0.50; encode-time bug

[Live System User]

Hi,

        A closer look seems to show this bug is rooted in
        a regression in (ultimately) 'parse-time-string':

           M-: (date-to-time "Tue, 06 Mar 2018 11:17:02 -0500")
           Invalid date: Tue, 06 Mar 2018 11:17:02 -0500

        When the date/time is being parsed, you erroneously get:

           M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
           (nil nil nil 6 3 2018 2 nil nil)

        With Emacs 26.1, you get:

           (2 17 11 6 3 2018 2 nil -18000)

        Thanks.

bug#32443: 27.0.50; encode-time bug

[Glenn Morris]

Live System User wrote:

>         When the date/time is being parsed, you erroneously get:
>
>            M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
>            (nil nil nil 6 3 2018 2 nil nil)
>
>         With Emacs 26.1, you get:
>
>            (2 17 11 6 3 2018 2 nil -18000)

I can't reproduce this.

> System Description: Fedora 24 (Workstation Edition)

I see that distribution is EOL for one year now.
(And Fedora 25 and 26 are EOL too.)

bug#32443: 27.0.50; encode-time bug

[Robert Pluim]

Glenn Morris <rgm@gnu.org> writes:

> Live System User wrote:
>
>>         When the date/time is being parsed, you erroneously get:
>>
>>            M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
>>            (nil nil nil 6 3 2018 2 nil nil)
>>
>>         With Emacs 26.1, you get:
>>
>>            (2 17 11 6 3 2018 2 nil -18000)
>
> I can't reproduce this.

Iʼve seen this, but only once with a time string of "Tue, 28 Aug 2018 13:16:54
+0200". Iʼve not been able to reproduce in 'emacs -Q'.

Robert

bug#32443: 27.0.50; encode-time bug

[Live System User]

Robert Pluim <rpluim@gmail.com> writes:

> Glenn Morris <rgm@gnu.org> writes:
>
>> Live System User wrote:
>>
>>>         When the date/time is being parsed, you erroneously get:
>>>
>>>            M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
>>>            (nil nil nil 6 3 2018 2 nil nil)
>>>
>>>         With Emacs 26.1, you get:
>>>
>>>            (2 17 11 6 3 2018 2 nil -18000)
>>
>> I can't reproduce this.
>
> Iʼve seen this, but only once with a time string of "Tue, 28 Aug 2018 13:16:54
> +0200". Iʼve not been able to reproduce in 'emacs -Q'.

  I get the same erroreous output with "emacs -Q" with your date
  as well:


(parse-time-string "Tue, 14 Aug 2018 09:14:11 +0400")
(nil nil nil 14 8 2018 2 nil nil)


(parse-time-string "Tue, 28 Aug 2018 13:16:54 +0200")
(nil nil nil 28 8 2018 2 nil nil)

(parse-time-string "Wed, 29 Aug 2018 11:15:22 -0400")
(nil nil nil 29 8 2018 3 nil nil)



  Thanks.


>
> Robert

bug#32443: 27.0.50; encode-time bug

[Robert Pluim]

Live System User <nyc4bos@aol.com> writes:

> Robert Pluim <rpluim@gmail.com> writes:
>
>> Glenn Morris <rgm@gnu.org> writes:
>>
>>> Live System User wrote:
>>>
>>>>         When the date/time is being parsed, you erroneously get:
>>>>
>>>>            M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
>>>>            (nil nil nil 6 3 2018 2 nil nil)
>>>>
>>>>         With Emacs 26.1, you get:
>>>>
>>>>            (2 17 11 6 3 2018 2 nil -18000)
>>>
>>> I can't reproduce this.
>>
>> Iʼve seen this, but only once with a time string of "Tue, 28 Aug 2018 13:16:54
>> +0200". Iʼve not been able to reproduce in 'emacs -Q'.
>
>   I get the same erroreous output with "emacs -Q" with your date
>   as well:
>
>
> (parse-time-string "Tue, 14 Aug 2018 09:14:11 +0400")
> (nil nil nil 14 8 2018 2 nil nil)
>
>
> (parse-time-string "Tue, 28 Aug 2018 13:16:54 +0200")
> (nil nil nil 28 8 2018 2 nil nil)
>
> (parse-time-string "Wed, 29 Aug 2018 11:15:22 -0400")
> (nil nil nil 29 8 2018 3 nil nil)

None of those fail for me. Could you tell us which revision youʼre
currently using? Perhaps this got fixed as a side effect of some other
change, in which case I can bisect it.

Otherwise, since youʼre the only one who can reproduce it, could you
do 'edebug-defun' on 'parse-time-string' and step through it? That
might give us a better idea of what's going wrong.

Thanks

Robert

bug#32443: 27.0.50; encode-time bug

[Live System User]

Robert Pluim <rpluim@gmail.com> writes:

> Live System User <nyc4bos@aol.com> writes:
>
>> Robert Pluim <rpluim@gmail.com> writes:
>>
>>> Glenn Morris <rgm@gnu.org> writes:
>>>
>>>> Live System User wrote:
>>>>
>>>>>         When the date/time is being parsed, you erroneously get:
>>>>>
>>>>>            M-: (parse-time-string "Tue, 06 Mar 2018 11:17:02 -0500")
>>>>>            (nil nil nil 6 3 2018 2 nil nil)
>>>>>
>>>>>         With Emacs 26.1, you get:
>>>>>
>>>>>            (2 17 11 6 3 2018 2 nil -18000)
>>>>
>>>> I can't reproduce this.
>>>
>>> Iʼve seen this, but only once with a time string of "Tue, 28 Aug 2018 13:16:54
>>> +0200". Iʼve not been able to reproduce in 'emacs -Q'.
>>
>>   I get the same erroreous output with "emacs -Q" with your date
>>   as well:
>>
>>
>> (parse-time-string "Tue, 14 Aug 2018 09:14:11 +0400")
>> (nil nil nil 14 8 2018 2 nil nil)
>>
>>
>> (parse-time-string "Tue, 28 Aug 2018 13:16:54 +0200")
>> (nil nil nil 28 8 2018 2 nil nil)
>>
>> (parse-time-string "Wed, 29 Aug 2018 11:15:22 -0400")
>> (nil nil nil 29 8 2018 3 nil nil)
>
> None of those fail for me. Could you tell us which revision youʼre
> currently using? Perhaps this got fixed as a side effect of some other
> change, in which case I can bisect it.

  I just tried it using:

Repository revision: d8bef4b519624de20baa1428dd103f61dfb220fa

   and got the same errpneous results.
>
> Otherwise, since youʼre the only one who can reproduce it, could you
> do 'edebug-defun' on 'parse-time-string' and step through it? That
> might give us a better idea of what's going wrong.


  I've never used `edebug' before so I will have to get up to speed.

  Thanks.

>
> Thanks
>
> Robert

bug#32443: 27.0.50; encode-time bug

[Robert Pluim]

Live System User <nyc4bos@aol.com> writes:

> Robert Pluim <rpluim@gmail.com> writes:

>> None of those fail for me. Could you tell us which revision youʼre
>> currently using? Perhaps this got fixed as a side effect of some other
>> change, in which case I can bisect it.
>
>   I just tried it using:
>
> Repository revision: d8bef4b519624de20baa1428dd103f61dfb220fa
>
>    and got the same errpneous results.

And thatʼs more recent than my version, so the bug is still lurking
somewhere.

>>
>> Otherwise, since youʼre the only one who can reproduce it, could you
>> do 'edebug-defun' on 'parse-time-string' and step through it? That
>> might give us a better idea of what's going wrong.
>
>
>   I've never used `edebug' before so I will have to get up to speed.

SPC single steps. You can use 'e' to evaluate arbitrary expressions in
the context of the function youʼre debugging. Since single stepping
can be tedious, you can move point and use 'h' to run until you reach
point.

Robert

bug#32443: 27.0.50; encode-time bug

[Live System User]

Robert Pluim <rpluim@gmail.com> writes:

> Live System User <nyc4bos@aol.com> writes:
>
>> Robert Pluim <rpluim@gmail.com> writes:
>
>>> None of those fail for me. Could you tell us which revision youʼre
>>> currently using? Perhaps this got fixed as a side effect of some other
>>> change, in which case I can bisect it.
>>
>>   I just tried it using:
>>
>> Repository revision: d8bef4b519624de20baa1428dd103f61dfb220fa
>>
>>    and got the same errpneous results.
>
> And thatʼs more recent than my version, so the bug is still lurking
> somewhere.
>
>>>
>>> Otherwise, since youʼre the only one who can reproduce it, could you
>>> do 'edebug-defun' on 'parse-time-string' and step through it? That
>>> might give us a better idea of what's going wrong.
>>
>>
>>   I've never used `edebug' before so I will have to get up to speed.
>
> SPC single steps. You can use 'e' to evaluate arbitrary expressions in
> the context of the function youʼre debugging. Since single stepping
> can be tedious, you can move point and use 'h' to run until you reach
> point.


  I'm still trying to discover where the bug is using edebug,

  Stepping through with edebug everything appears to go fine
  with going through all the rules and assigning all of its
  resultant values (such as "Tue' equals 2 gleen from
  `parse-time-weekdays '), until you get to the following:

        (rplaca (nthcdr (pop slots) time) new-val))))))))


  Once I execute `rplaca' -- "tike" and "new-val" are incorrect.
  
 FWIW, with thw recwnt update to parse-time.el (Git 0bec064), I now
 get

(parse-time-string "Tue, 21 Feb 2017 17:17:56 -0500")
 (nil nil nil 21 2 2017 2 -1 nil)


`Before this update, the "-1" was nil.

 I believe the "-1" means that DST is not known to be in effect.

 DST *is* in effect here.

`Thanks.
>
> Robert

bug#32443: 27.0.50; encode-time bug

[Lars Ingebrigtsen]

Live System User <nyc4bos@aol.com> writes:

>        Here's the `encode-time' error, as an attachment.
>
>        Thanks
>
>
> Debugger entered--Lisp error: (error "Invalid date: Tue, 06 Mar 2018 11:17:02 -0500")
>   signal(error ("Invalid date: Tue, 06 Mar 2018 11:17:02 -0500"))
>   error("Invalid date: %s" "Tue, 06 Mar 2018 11:17:02 -0500")

[...]

>   date-to-time("Tue, 06 Mar 2018 11:17:02 -0500")

I'm unable to reproduce this error:

(date-to-time "Tue, 06 Mar 2018 11:17:02 -0500")
=> (23198 48894)

Are you still seeing this in the current trunk?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#32443: 27.0.50; encode-time bug

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> I'm unable to reproduce this error:
>
> (date-to-time "Tue, 06 Mar 2018 11:17:02 -0500")
> => (23198 48894)
>
> Are you still seeing this in the current trunk?

More information was requested some weeks back, but no response was
given, so I'm closing this bug report.  If you're still seeing this
problem, please reopen.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no