From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-2.1 required=5.0 tests=DKIM_INVALID,DKIM_SIGNED, NICE_REPLY_A,RCVD_IN_DNSWL_MED,RCVD_IN_MSPIKE_H3,RCVD_IN_MSPIKE_WL autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 9261 invoked from network); 27 May 2021 21:31:33 -0000 Received: from mx1.math.uh.edu (129.7.128.32) by inbox.vuxu.org with ESMTPUTF8; 27 May 2021 21:31:33 -0000 Received: from lists1.math.uh.edu ([129.7.128.208]) by mx1.math.uh.edu with esmtps (TLS1.3) tls TLS_AES_256_GCM_SHA384 (Exim 4.94) (envelope-from ) id 1lmNbH-007rSL-BB for ml@inbox.vuxu.org; Thu, 27 May 2021 16:31:31 -0500 Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.94) (envelope-from ) id 1lmNbG-00GkyC-MR for ml@inbox.vuxu.org; Thu, 27 May 2021 16:31:30 -0500 Received: from mx1.math.uh.edu ([129.7.128.32]) by lists1.math.uh.edu with esmtps (TLS1.3) tls TLS_AES_256_GCM_SHA384 (Exim 4.94) (envelope-from ) id 1lmNbE-00Gky4-Cm for ding@lists.math.uh.edu; Thu, 27 May 2021 16:31:28 -0500 Received: from quimby.gnus.org ([95.216.78.240]) by mx1.math.uh.edu with esmtps (TLS1.3) tls TLS_AES_256_GCM_SHA384 (Exim 4.94) (envelope-from ) id 1lmNbC-007rRz-43 for ding@lists.math.uh.edu; Thu, 27 May 2021 16:31:28 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnus.org; s=20200322; h=Content-Transfer-Encoding:Content-Type:In-Reply-To: MIME-Version:Date:Message-ID:From:References:Cc:To:Subject:Sender:Reply-To: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=ddF4fyU9+7uXyw/XH9uZ9IIX2nija8RUw2Eb9kGLs/U=; b=e8hUpqaIMezLexFJYvVLVXPHme Rg8vDERhN9GlMuraVICUXzNBRwQLw3wh8Mvd3gG4aku81p51FVrVIGgBw+I9KSsYRIZ7L9SMeVf+H MgdcLHw8bzXprGOSzX1vQNKEiOsBRROHwjzGyLpKGi8gd0Raa/Xm2td6QJljVUpAKxm0=; Received: from www1564.sakura.ne.jp ([219.94.163.204]) by quimby.gnus.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lmNb2-0000Uf-4f for ding@gnus.org; Thu, 27 May 2021 23:31:21 +0200 Received: from cumulonimbus.local (KD210155075200.ec-userreverse.dion.ne.jp [210.155.75.200]) (authenticated bits=0) by www1564.sakura.ne.jp (8.15.2/8.15.2) with ESMTPSA id 14RLUxJ0069881 (version=TLSv1.2 cipher=AES256-GCM-SHA384 bits=256 verify=NO); Fri, 28 May 2021 06:30:59 +0900 (JST) (envelope-from hirotaka@hondalaw.com) Subject: Re: Mail source failed, wrong-type-argument integer-or-marker-p nil To: Eric Abrahamsen Cc: ding@gnus.org References: <87zgy6fes6.fsf@zoho.eu> <87wnrkw4kl.fsf@ericabrahamsen.net> <67b31f60-16fa-16f7-ee0c-3e97785c2dba@hondalaw.com> <878s40w21y.fsf@ericabrahamsen.net> From: Hirotaka Honda Message-ID: <2b74d912-71d1-943d-91a1-132023197abe@hondalaw.com> Date: Fri, 28 May 2021 06:30:59 +0900 User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:78.0) Gecko/20100101 Thunderbird/78.10.2 MIME-Version: 1.0 In-Reply-To: <878s40w21y.fsf@ericabrahamsen.net> Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Content-Language: en-US List-ID: Precedence: bulk Dear all The result is as the following. at line 1767 C-M-x inside: Message:  nnmail-get-new-mail C- x e outside: eval: Symbol’s value as variable is void: method at 1775 definition of nnmail-get-new-mail-1 C-M-x inside: Message:  nnmail-get-new-mail-1 C- x e outside: nnmail-get-new-mail-1 at 1794 C-M-x inside: Message:  nnmail-get-new-mail-1 C- x e outside: Message: eval: Symbol’s value as variable is void: method at  1764 definition of nnmail-get-new-mail Debugger entered--Lisp error: (void-variable method)   (nnmail-get-new-mail-1 method exit-func temp group nil spool-func)   eval((nnmail-get-new-mail-1 method exit-func temp group nil spool-func) nil)   elisp--eval-last-sexp(nil)   eval-last-sexp(nil)   funcall-interactively(eval-last-sexp nil)   call-interactively(eval-last-sexp nil nil)   command-execute(eval-last-sexp) at Group Buffer 2 g gnus-group-get-new-news Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)   mail-extract-address-components("=?iso-2022-jp?B?GyRCP004Ik1KOG4wUTB3MnFCaCMzSXQycS..." t)   gnus-registry-extract-addresses("=?iso-2022-jp?B?GyRCP004Ik1KOG4wUTB3MnFCaCMzSXQycS...")   mapcan(gnus-registry-extract-addresses ("=?iso-2022-jp?B?GyRCP004Ik1KOG4wUTB3MnFCaCMzSXQycS..." "=?utf-8?B?5Lq65qip5pOB6K235aeU5ZOh5Lya56ys77yT?= =..."))   gnus-registry-sort-addresses("=?iso-2022-jp?B?GyRCP004Ik1KOG4wUTB3MnFCaCMzSXQycS..." "=?utf-8?B?5Lq65qip5pOB6K235aeU5ZOh5Lya56ys77yT?= =...")   gnus-registry-spool-action("<1599175788.2553940.1621982579163.JavaMail.root@ww..." "mail.misc" nil nil)   run-hook-with-args(gnus-registry-spool-action "<1599175788.2553940.1621982579163.JavaMail.root@ww..." "mail.misc" nil nil)   nnmail-cache-insert("<1599175788.2553940.1621982579163.JavaMail.root@ww..." "mail.misc")   nnmail-check-duplication("<1599175788.2553940.1621982579163.JavaMail.root@ww..." nnml-save-mail nnml-active-number)   nnmail-process-unix-mail-format(nnml-save-mail nnml-active-number)   nnmail-split-incoming("~/.emacs-mail-crash-box" nnml-save-mail nil nil nnml-active-number)   #f(compiled-function (file orig-file) #)("~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box")   mail-source-callback(#f(compiled-function (file orig-file) #) "~/.emacs-mail-crash-box")   mail-source-fetch((pop :server "hondalaw.sakura.ne.jp" :user "[name]@hondalaw.com" :leave 64 :port 995 :authentication apop) #f(compiled-function (file orig-file) #))   (condition-case cond (mail-source-fetch source (gnus-byte-compile (list 'lambda '(file orig-file) (list 'nnmail-split-incoming 'file (list 'quote (intern (format "%s-save-mail" method))) (list 'quote spool-func) (list 'or 'in-group (list 'if '... nil (list ... ... ...))) (list 'quote (intern (format "%s-active-number" method))))))) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0))   (setq new (condition-case cond (mail-source-fetch source (gnus-byte-compile (list 'lambda '(file orig-file) (list 'nnmail-split-incoming 'file (list 'quote (intern ...)) (list 'quote spool-func) (list 'or 'in-group (list ... ... nil ...)) (list 'quote (intern ...)))))) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0)))   (if (setq new (condition-case cond (mail-source-fetch source (gnus-byte-compile (list 'lambda '(file orig-file) (list 'nnmail-split-incoming 'file (list ... ...) (list ... spool-func) (list ... ... ...) (list ... ...))))) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0))) (progn (setq total (+ total new)) (setq i (1+ i))))   (while (setq source (car-safe (prog1 fetching-sources (setq fetching-sources (cdr fetching-sources))))) (if (setq new (condition-case cond (mail-source-fetch source (gnus-byte-compile (list 'lambda '... (list ... ... ... ... ... ...)))) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0))) (progn (setq total (+ total new)) (setq i (1+ i)))))   (progn (nnmail-activate method) (run-hooks 'nnmail-pre-get-new-mail-hook) (nnmail-cache-open) (while (setq source (car-safe (prog1 fetching-sources (setq fetching-sources (cdr fetching-sources))))) (if (setq new (condition-case cond (mail-source-fetch source (gnus-byte-compile (list ... ... ...))) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0))) (progn (setq total (+ total new)) (setq i (1+ i))))) (if (= 0 total) (if mail-source-plugged (progn (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" method (car source)))) (nnmail-save-active (nnmail-get-value "%s-group-alist" method) (nnmail-get-value "%s-active-file" method)) (if exit-func (progn (funcall exit-func))) (run-hooks 'nnmail-read-incoming-hook) (nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method total)) (nnmail-cache-close) (run-hooks 'nnmail-post-get-new-mail-hook))   (if fetching-sources (progn (nnmail-activate method) (run-hooks 'nnmail-pre-get-new-mail-hook) (nnmail-cache-open) (while (setq source (car-safe (prog1 fetching-sources (setq fetching-sources (cdr fetching-sources))))) (if (setq new (condition-case cond (mail-source-fetch source (gnus-byte-compile ...)) ((debug error quit) (message "Mail source %s failed: %s" source cond) 0))) (progn (setq total (+ total new)) (setq i (1+ i))))) (if (= 0 total) (if mail-source-plugged (progn (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" method (car source)))) (nnmail-save-active (nnmail-get-value "%s-group-alist" method) (nnmail-get-value "%s-active-file" method)) (if exit-func (progn (funcall exit-func))) (run-hooks 'nnmail-read-incoming-hook) (nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method total)) (nnmail-cache-close) (run-hooks 'nnmail-post-get-new-mail-hook)))   (let* ((sources mail-sources) fetching-sources (i 0) (new 0) (total 0) source) (if (and (nnmail-get-value "%s-get-new-mail" method) sources) (progn (while (setq source (car-safe (prog1 sources (setq sources ...)))) (if (and (eq (car source) 'group) group) (progn (let (...) (nnmail-get-new-mail-1 method exit-func temp group group spool-func)) (setq source nil))) (if (and (eq (car source) 'directory) (null nnmail-scan-directory-mail-source-once) group) (progn (let* (... ... ... ... ... ...) (mail-source-set-1 source) (setq source ...)))) (if nnmail-fetched-sources (progn (if (member source nnmail-fetched-sources) (setq source nil) (setq nnmail-fetched-sources ...) (setq fetching-sources ...))))))) (if fetching-sources (progn (nnmail-activate method) (run-hooks 'nnmail-pre-get-new-mail-hook) (nnmail-cache-open) (while (setq source (car-safe (prog1 fetching-sources (setq fetching-sources ...)))) (if (setq new (condition-case cond (mail-source-fetch source ...) (... ... 0))) (progn (setq total (+ total new)) (setq i (1+ i))))) (if (= 0 total) (if mail-source-plugged (progn (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" method (car source)))) (nnmail-save-active (nnmail-get-value "%s-group-alist" method) (nnmail-get-value "%s-active-file" method)) (if exit-func (progn (funcall exit-func))) (run-hooks 'nnmail-read-incoming-hook) (nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method total)) (nnmail-cache-close) (run-hooks 'nnmail-post-get-new-mail-hook))))   nnmail-get-new-mail-1(nnml nnml-save-incremental-nov "~/Mail/" nil nil nil)   nnmail-get-new-mail(nnml nnml-save-incremental-nov "~/Mail/" nil)   nnml-request-scan(nil "")   gnus-request-scan(nil (nnml "" (nnir-search-engine namazu)))   gnus-read-active-file-1((nnml "" (nnir-search-engine namazu)) nil)   gnus-read-active-for-groups((nnml "" (nnir-search-engine namazu)) (("nnml:groupname" 2 (1) nil "nnml:" nil) ("nnml:groupname" 2 (1) nil "nnml:" nil) [ellipsis] ("nnml:groupname" 1 (1) nil "nnml:" nil) ...) nil)   gnus-get-unread-articles(2 nil nil)   gnus-group-get-new-news(2)   funcall-interactively(gnus-group-get-new-news 2)   call-interactively(gnus-group-get-new-news nil nil)   command-execute(gnus-group-get-new-news) On 2021/05/28 1:53, Eric Abrahamsen wrote: > On 05/28/21 01:49 AM, Hirotaka Honda wrote: >> Dear all >> >> I moved nnmail.elc and el.gz and put condition-case-unless-debug into >> nnmail.el. >> Somehow debugger window did not open. >> >> I found this line in *Messages" >>> Processing mail from ~/.emacs-mail-crash-box... >> Does it suggest email crashed, I forgot it, and some files (.newsrc, >> .newsrc.eld, newsrc-dribble, and .gnus.registry.eieio) left collapsed? > The earlier errors probably created that crash box, since they happened > during mail splitting. > > I forgot to say you need to re-evaluate the new definition of > `nnmail-get-new-mail-1'! You don't need to move the nnmail files > anywhere, it is enough just to edit the definition of > `nnmail-get-new-mail-1', then hit C-M-x while point is inside the > function definition. That will be necessary to put the new definition > into effect. The next time you restart Emacs the old definition will be > restored. >