From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Live System User Newsgroups: gmane.emacs.bugs Subject: bug#32443: 27.0.50; encode-time bug Date: Tue, 14 Aug 2018 20:00:57 -0400 Message-ID: <87pnyka47a.fsf@aol.com> References: <87bma4pmtt.fsf@aol.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1534291211 29521 195.159.176.226 (15 Aug 2018 00:00:11 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 15 Aug 2018 00:00:11 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) To: 32443@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 15 02:00:06 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fpjEL-0007ZB-Gj for geb-bug-gnu-emacs@m.gmane.org; Wed, 15 Aug 2018 02:00:05 +0200 Original-Received: from localhost ([::1]:46642 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fpjGS-0005SA-1C for geb-bug-gnu-emacs@m.gmane.org; Tue, 14 Aug 2018 20:02:16 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:35940) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fpjGI-0005Ra-DS for bug-gnu-emacs@gnu.org; Tue, 14 Aug 2018 20:02:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fpjGE-0007W3-V7 for bug-gnu-emacs@gnu.org; Tue, 14 Aug 2018 20:02:06 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:46166) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fpjGE-0007Vc-H6 for bug-gnu-emacs@gnu.org; Tue, 14 Aug 2018 20:02:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fpjGE-0007O0-AS for bug-gnu-emacs@gnu.org; Tue, 14 Aug 2018 20:02:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <87bma4pmtt.fsf@aol.com> Resent-From: Live System User Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 15 Aug 2018 00:02:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 32443 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 32443-submit@debbugs.gnu.org id=B32443.153429127326309 (code B ref 32443); Wed, 15 Aug 2018 00:02:02 +0000 Original-Received: (at 32443) by debbugs.gnu.org; 15 Aug 2018 00:01:13 +0000 Original-Received: from localhost ([127.0.0.1]:51184 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fpjFQ-0006pc-Uq for submit@debbugs.gnu.org; Tue, 14 Aug 2018 20:01:13 -0400 Original-Received: from sonic303-21.consmr.mail.ir2.yahoo.com ([77.238.178.202]:36500) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fpjFO-0006ix-Nv for 32443@debbugs.gnu.org; Tue, 14 Aug 2018 20:01:11 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=aol.com; s=a2048; t=1534291264; bh=wtkTGgHCGPzBQ/bH4MpeQn/LHwozkhdXvmMj4EAOhSQ=; h=From:To:Subject:Date:From:Subject; b=PevBSTJgPTITill7+GtnFVtJnI14r/4AJ2W8w/QOCrbBagQo9A5qMDTmtyGLVDjVvJJte4WNU7LukGhEFfAvWY7VVjZbheg3/09w993lQNiEjXlZ97LvUoEWaZYyduXb+Kj3lbfZYSYGHqFQbzZABfdt9uzIeTtOw4TTw1cjhYzHgzm9TZ4uWWuqVkGD2DTh0PDM2cPW84hToxJiLRctgLhOgvo+iBwuCjBaxPz8V5HJDTCI/gKp1GjBB+Vm86B2Xvs1jRQXclW7v9coPRcLF/qZdmwXWapQym0PqEhzga0aMPr6ElpIoOW77MzhSk/YPb63ADjC826UJv8I83/xeQ== X-YMail-OSG: fO3MFQYVM1nr04W9qMhu9nLXddxI2Zmt2mpbsops.CiiFpAZLZnVYbRQTt5xUdj lfHhvHRY8NTJNgZ7ZFWMxBna9kWfhVqMcmG2kiraJGu8Mq__HYSaQpy8tSL2.vadlAxtZiEDced6 ulI9o0dMP1poIiaR0bZ0UPtPkJbVBIxgEXUPXb6y_PRo.BL8B_nPWU1TFxMjb4zjXNsoAQmXciOU 6UO_QZL0DcU3vAmjIeJZ634U8DcE5fTho.bieWofNqCXtQvBmt9gmyIbEVgNW.9Y8nreT6_as2Ln TXnkPyCRjiUwq0PqlCQVNBPcvwC0XplkYCgbUT1eWNbRVwVUAdk4F7_31_KclGl.Zdm6w2dqnleg qvM96u8X_Ko9bJrWNh8iO9EQysuBVSKPG4U9P2ev84KcpxMd8ttwSPFQJaMcQoID_QQDFPkzFKT1 wpPo1S6hTmcndrX6.GgPCPz4D21JZ_BuFp_YYsJkmhkwrj6AcW4ZRaTquqsfUAY0XJLNYPzdF3ne KGQx2D5YqJCn58ISvDydEiVRIyZsLPW9q4weg2dIxGnqZuY7zKJcq6ci67S_0QZJZCJy.Y4Q9S3K b5YziTO.xqcJYKJmL3YVdBQX7ky_oFeUIfkJAaFQAJHpjlhorDrgHCpLea6XUULhgLhQHv2uyXLg wmkqPX73suy4ckVaD9K6_AtPMLL0CJbWelGIwDGRYOL3XIXNoqZxpdINk3xzbmN.6A5.c7XICEvw JPIgQOIn_OR8hXKAegio2LXe.UEdQNpaeh3AANb8V8uVLG30BLVyP.Kyd6nAXNmVeTKq97DGbGS2 .dD_q3yzSx9_80LGoQ8s.M0dMaj6sG5g2SLdopzS1j Original-Received: from sonic.gate.mail.ne1.yahoo.com by sonic303.consmr.mail.ir2.yahoo.com with HTTP; Wed, 15 Aug 2018 00:01:04 +0000 Original-Received: from c-73-16-70-190.hsd1.ma.comcast.net (EHLO localhost.localdomain) ([73.16.70.190]) by smtp425.mail.ir2.yahoo.com (Oath Hermes SMTP Server) with ESMTPA ID 251b7ce80f3be6bb34e4a55963d4c973 for <32443@debbugs.gnu.org>; Wed, 15 Aug 2018 00:00:59 +0000 (UTC) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:149503 Archived-At: --=-=-= Content-Type: text/plain Here's the `encode-time' error, as an attachment. Thanks --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=gnus-date-error.txt Content-Transfer-Encoding: quoted-printable Content-Description: encode-time error 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 's= ignal err) (error "Invalid date: %s" date)))) (if (equal err overflow-error) (apply 'signal err) (condition-case err (a= pply 'encode-time (parse-time-string (timezone-make-date-arpa-standard date= ))) (error (if (equal err overflow-error) (apply 'signal err) (error "Inval= id date: %s" date))))) (let ((overflow-error '(error "Specified time is not representable"))) (i= f (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 d= ate: %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))) (e= rror (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-co= mmand "^\\.\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-t= imeout nil #'(lambda nil (let* ... ...)))))) (unwind-protect (setq nntp-wit= h-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if debu= g-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 -se= rver -connectionless) (let ((-timer (and nntp-connection-timeout (run-at-ti= me 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 -time= r (progn (nnheader-cancel-timer -timer)))) nil)) (while (catch 'nntp-with-open-group-error (nntp-possibly-change-group -gr= oup -server -connectionless) (let ((-timer (and nntp-connection-timeout (ru= n-at-time nntp-connection-timeout nil #'...)))) (unwind-protect (setq nntp-= with-open-group-internal (condition-case nil (funcall -bodyfun) (quit (if d= ebug-on-quit nil ...) (signal ... nil)))) (if -timer (progn (nnheader-cance= l-timer -timer)))) nil)) (setq nntp--report-1 nntp-report-n)) (let ((nntp-report-n nntp--report-1) (nntp--report-1 t) (nntp-with-open-g= roup-internal nil)) (while (catch 'nntp-with-open-group-error (nntp-possibl= y-change-group -group -server -connectionless) (let ((-timer (and nntp-conn= ection-timeout (run-at-time nntp-connection-timeout nil ...)))) (unwind-pro= tect (setq nntp-with-open-group-internal (condition-case nil (funcall -body= fun) (quit ... ...))) (if -timer (progn (nnheader-cancel-timer -timer)))) n= il)) (setq nntp--report-1 nntp-report-n)) nntp-with-open-group-internal) nntp-with-open-group-function(nil "news" nil (lambda nil (save-current-bu= ffer (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) "GM= T") (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" (nn= tp-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 'i= gnore)) (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 (...) (con= d ... ... ...)))) hashtb))) (while (setq method (gnus-server-get-method nil (car-safe (prog1 methods = (setq methods (cdr methods)))))) (setq new-newsgroups nil gnus-override-sub= scribe-method method) (if (and (gnus-check-server method) (gnus-request-new= groups date method)) (progn (save-excursion (setq got-new t hashtb (gnus-ma= ke-hashtable 100)) (set-buffer nntp-server-buffer) (gnus-active-to-gnus-for= mat method hashtb 'ignore)) (mapatoms #'(lambda (group-sym) (if (or ... ...= ... ... ... ...) nil (if ... ...) (let ... ...))) hashtb))) (if new-newsgr= oups (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-n= ew-newsgroups) gnus-check-new-newsgroups) gnus-secondary-select-methods))))= (groups 0) group new-newsgroups got-new method hashtb gnus-override-subscr= ibe-method) (if gnus-killed-hashtb nil (gnus-make-hashtable-from-killed)) (= while (setq method (gnus-server-get-method nil (car-safe (prog1 methods (se= tq methods (cdr methods)))))) (setq new-newsgroups nil gnus-override-subscr= ibe-method method) (if (and (gnus-check-server method) (gnus-request-newgro= ups 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-intera= ctive new-newsgroups)))) (if (> groups 0) (gnus-message 5 "%d new newsgroup= %s arrived" groups (if (> groups 1) "s have" " has")) (gnus-message 5 "No n= ew 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-gr= oups) (let ((groups 0) group new-newsgroups) (gnus-message 5 "Looking for n= ew newsgroups...") (if gnus-have-read-active-file nil (gnus-read-active-fil= e)) (setq gnus-newsrc-last-checked-date (message-make-date)) (if gnus-kille= d-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-newsgro= ups (progn (gnus-subscribe-hierarchical-interactive new-newsgroups))) (if (= > groups 0) (gnus-message 5 "%d new newsgroup%s arrived." groups (if (> gro= ups 1) "s have" " has")) (gnus-message 5 "No new newsgroups.")) groups)) (let* ((gnus-subscribe-newsgroup-method gnus-subscribe-newsgroup-method) = (check (cond ((or (and (=3D ... 4) (not ...)) (null gnus-read-active-file) = (eq gnus-read-active-file 'some)) 'ask-server) ((=3D (or arg 1) 16) (setq g= nus-subscribe-newsgroup-method 'gnus-subscribe-zombies) t) (t gnus-check-ne= w-newsgroups)))) (if (or (consp check) (eq check 'ask-server)) (gnus-ask-se= rver-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 arri= ved." groups (if (> groups 1) "s have" " has")) (gnus-message 5 "No new new= sgroups.")) groups))) gnus-find-new-newsgroups() (progn (gnus-find-new-newsgroups)) (if (and init gnus-check-new-newsgroups (not level) (gnus-check-server gn= us-select-method) (not gnus-slave) gnus-plugged) (progn (gnus-find-new-news= groups))) (let ((init (not (and gnus-newsrc-alist gnus-active-hashtb (not rawfile))= )) (nnmail-fetched-sources (list t))) (if init (progn (setq gnus-newsrc-ali= st nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile))) (let ((met= hod (or (and (stringp gnus-message-archive-method) (gnus-server-to-method g= nus-message-archive-method)) gnus-message-archive-method))) (if (or (not me= thod) (stringp method) (memq 'respool (assoc (format "%s" (car method)) gnu= s-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-dr= ibble-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-ma= tch "%[-,0-9]*D" gnus-group-line-format)) (not gnus-description-hashtb) (no= t dont-connect) gnus-read-active-file) (progn (gnus-read-all-descriptions-f= iles))) (if (and init gnus-check-new-newsgroups (not level) (gnus-check-ser= ver gnus-select-method) (not gnus-slave) gnus-plugged) (progn (gnus-find-ne= w-newsgroups))) (if (and init gnus-check-bogus-newsgroups gnus-read-active-= file (not level) (gnus-server-opened gnus-select-method)) (progn (gnus-chec= k-bogus-newsgroups))) (gnus-master-read-slave-newsrc) (let ((gnus-read-acti= ve-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-ru= n-hooks 'gnus-startup-hook) (setq gnus-current-startup-file (gnus-make-news= rc-file gnus-startup-file)) (if (or gnus-slave gnus-use-dribble-file) (prog= n (gnus-dribble-read-file))) (gnus-setup-news nil level dont-connect) (gnus= -run-hooks 'gnus-setup-news-hook) (if gnus-agent (progn (gnus-request-creat= e-group "queue" '(nndraft "")))) (gnus-start-draft-setup) (gnus-group-list-= groups level) (gnus-group-first-unread-group) (gnus-configure-windows 'grou= p) (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 gn= us-slave gnus-use-dribble-file) (progn (gnus-dribble-read-file))) (gnus-set= up-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-ru= n-hooks 'gnus-started-hook))) (let ((level (and (numberp arg) (> arg 0) arg)) did-connect) (unwind-prot= ect (progn (if dont-connect nil (setq did-connect (gnus-start-news-server (= and arg (not level)))))) (if (and (not dont-connect) (not did-connect)) (gn= us-group-quit) (gnus-run-hooks 'gnus-startup-hook) (setq gnus-current-start= up-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 le= vel dont-connect) (gnus-run-hooks 'gnus-setup-news-hook) (if gnus-agent (pr= ogn (gnus-request-create-group "queue" '(nndraft "")))) (gnus-start-draft-s= etup) (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) (swit= ch-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) (gnu= s-splash) (gnus-run-hooks 'gnus-before-startup-hook) (nnheader-init-server-= buffer) (setq gnus-slave slave) (gnus-read-init-file) (if gnus-select-metho= d (progn (add-to-list 'gnus-predefined-server-alist (cons "native" gnus-sel= ect-method)))) (if gnus-agent (gnus-agentize)) (let ((level (and (numberp a= rg) (> arg 0) arg)) did-connect) (unwind-protect (progn (if dont-connect ni= l (setq did-connect (gnus-start-news-server (and arg ...))))) (if (and (not= dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks 'gnus-s= tartup-hook) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-st= artup-file)) (if (or gnus-slave gnus-use-dribble-file) (progn (gnus-dribble= -read-file))) (gnus-setup-news nil level dont-connect) (gnus-run-hooks 'gnu= s-setup-news-hook) (if gnus-agent (progn (gnus-request-create-group "queue"= '...))) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-grou= p-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 slav= e) (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) --=-=-=--