From: Hirotaka Honda <hirotaka@hondalaw.com>
To: Eric Abrahamsen <eric@ericabrahamsen.net>
Cc: ding@gnus.org
Subject: Re: Mail source failed, wrong-type-argument integer-or-marker-p nil
Date: Fri, 28 May 2021 06:30:59 +0900 [thread overview]
Message-ID: <2b74d912-71d1-943d-91a1-132023197abe@hondalaw.com> (raw)
In-Reply-To: <878s40w21y.fsf@ericabrahamsen.net>
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) #<bytecode
0x1ff2281b98c1>)("~/.emacs-mail-crash-box" "~/.emacs-mail-crash-box")
mail-source-callback(#f(compiled-function (file orig-file) #<bytecode
0x1ff2281b98c1>) "~/.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) #<bytecode 0x1ff2281b98c1>))
(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.
>
next prev parent reply other threads:[~2021-05-27 21:31 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-09-21 16:15 spam-split of spam.el with bsfilter Hirotaka Honda
2020-09-22 1:55 ` 黃炳熙
2020-09-22 2:09 ` Emanuel Berg
2020-09-23 0:48 ` 黃炳熙
2020-09-23 1:01 ` Emanuel Berg
2020-09-23 2:30 ` 黃炳熙
2021-04-10 10:50 ` Hirotaka Honda
2021-04-10 13:30 ` Emanuel Berg
2021-04-11 11:10 ` Hirotaka Honda
2021-04-11 11:16 ` Emanuel Berg
2021-05-27 13:48 ` Mail source failed, wrong-type-argument integer-or-marker-p nil Hirotaka Honda
2021-05-27 15:59 ` Eric Abrahamsen
2021-05-27 16:49 ` Hirotaka Honda
2021-05-27 16:53 ` Eric Abrahamsen
2021-05-27 21:30 ` Hirotaka Honda [this message]
2021-05-28 17:29 ` Eric Abrahamsen
2021-05-28 2:40 ` Pankaj Jangid
2021-05-28 23:05 ` Andy Moreton
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=2b74d912-71d1-943d-91a1-132023197abe@hondalaw.com \
--to=hirotaka@hondalaw.com \
--cc=ding@gnus.org \
--cc=eric@ericabrahamsen.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).