bug#32443: 27.0.50; encode-time bug

[Live System User <nyc4bos@aol.com>]

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