On Wed, Oct 21, 2009 at 1:50 AM, Katsumi Yamaoka
<yamaoka@jpl.org> wrote:
>>>>> In [Wanderlust English : No.03053] Sebastian Hofer wrote:
> Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
> signal(wrong-type-argument (arrayp nil))
> byte-code("<some stuff i cant post here>...)
> wl-draft-send-mail-with-smtp()
In such a case where byte codes appear in a Lisp backtrace, load
the el file (not the elc file) that provides the function in
question, and you'll get more helpful information. At the first,
type `C-]' to exit the recursive mode, load the wl-draft.el file,
i.e.,
M-x load-file RET wl-draft.el RET
, and try redoing the action that causes the error. In that case
the file to load can be found in the result of the command:
C-h f wl-draft-send-mail-with-smtp RET
If you get another byte code in the second try, repeat loading
of el file(s) till no byte code gets appeared in a backtrace.
It may be smtpmail.el.
thanks, that was valuable information for me. however, doing this results in a messy debug output which i can't make any sense of. i'd be greatful if anyone can, otherwise i guess i will try reinstalling wanderlust.
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
signal(wrong-type-argument (arrayp nil))
(condition-case err (smtp-send-buffer sender recipients (current-buffer)) (error (wl-draft-write-sendlog ... ... smtp-server recipients id) (if ... ...) (signal ... ...)) (quit (wl-draft-write-sendlog ... ... smtp-server recipients id) (signal ... ...)))
(let* ((smtp-sasl-mechanisms ...) (smtp-use-sasl ...) (smtp-use-starttls ...) (smtp-open-connection-function ...) smtp-sasl-user-name smtp-sasl-properties sasl-read-passphrase) (setq smtp-sasl-user-name wl-smtp-posting-user smtp-sasl-properties (when wl-smtp-authenticate-realm ...)) (setq sasl-read-passphrase (function ...)) (condition-case err (smtp-send-buffer sender recipients ...) (error ... ... ...) (quit ... ...)))
(wl-smtp-extension-bind (condition-case err (smtp-send-buffer sender recipients ...) (error ... ... ...) (quit ... ...)))
(progn (wl-smtp-extension-bind (condition-case err ... ... ...)) (wl-draft-set-sent-message (quote mail) (quote sent)) (wl-draft-write-sendlog (quote ok) (quote smtp) smtp-server recipients id))
(if recipients (progn (wl-smtp-extension-bind ...) (wl-draft-set-sent-message ... ...) (wl-draft-write-sendlog ... ... smtp-server recipients id)))
(when recipients (wl-smtp-extension-bind (condition-case err ... ... ...)) (wl-draft-set-sent-message (quote mail) (quote sent)) (wl-draft-write-sendlog (quote ok) (quote smtp) smtp-server recipients id))
(let (selective-display (coding-system-for-read ...) (coding-system-for-write ...)) (when recipients (wl-smtp-extension-bind ...) (wl-draft-set-sent-message ... ...) (wl-draft-write-sendlog ... ... smtp-server recipients id)))
(as-binary-process (when recipients (wl-smtp-extension-bind ...) (wl-draft-set-sent-message ... ...) (wl-draft-write-sendlog ... ... smtp-server recipients id)))
(let (process-connection-type) (as-binary-process (when recipients ... ... ...)))
(save-excursion (setq recipients (wl-draft-deduce-address-list ... ... delimline)) (unless recipients (error "No recipients")) (goto-char (1+ delimline)) (if (eval mail-mailer-swallows-blank-line) (newline)) (run-hooks (quote wl-mail-send-pre-hook)) (if mail-interactive (save-excursion ... ...)) (wl-draft-delete-field "bcc" delimline) (wl-draft-delete-field "resent-bcc" delimline) (let (process-connection-type) (as-binary-process ...)))
(unwind-protect (save-excursion (setq recipients ...) (unless recipients ...) (goto-char ...) (if ... ...) (run-hooks ...) (if mail-interactive ...) (wl-draft-delete-field "bcc" delimline) (wl-draft-delete-field "resent-bcc" delimline) (let ... ...)) (if (bufferp errbuf) (kill-buffer errbuf)))
(if (not (elmo-plugged-p smtp-server smtp-service)) (wl-draft-set-sent-message (quote mail) (quote unplugged) (cons smtp-server smtp-service)) (unwind-protect (save-excursion ... ... ... ... ... ... ... ... ...) (if ... ...)))
(let* ((errbuf ...) (case-fold-search t) (default-case-fold-search t) (sender ...) (delimline ...) (smtp-server ...) (smtp-service ...) (smtp-local-domain ...) (id ...) recipients) (if (not ...) (wl-draft-set-sent-message ... ... ...) (unwind-protect ... ...)))
wl-draft-send-mail-with-smtp()
funcall(wl-draft-send-mail-with-smtp)
(progn (setq mime-bcc (wl-draft-mime-bcc-field)) (funcall wl-draft-send-mail-function) (when (not ...) (wl-draft-do-mime-bcc mime-bcc)))
(if (or (not ...) (memq ... wl-sent-message-queued)) (progn (setq mime-bcc ...) (funcall wl-draft-send-mail-function) (when ... ...)) (push (quote mail) wl-sent-message-queued) (wl-draft-set-sent-message (quote mail) (quote unplugged)))
(if (and (wl-message-mail-p) (not ...)) (if (or ... ...) (progn ... ... ...) (push ... wl-sent-message-queued) (wl-draft-set-sent-message ... ...)))
(progn (if (and ... ...) (if ... ... ... ...)) (if (and ... ... ...) (if ... ... ... ...)))
(unwind-protect (progn (if ... ...) (if ... ...)) (let* (... ... ...) (if ... ...) (if wl-draft-use-cache ...) (when ... ...) (when wl-draft-verbose-send ...)))
(let (delimline mime-bcc) (if (and wl-draft-verbose-send mes-string) (message "%s" mes-string)) (setq delimline (wl-draft-get-header-delimiter t)) (unless wl-draft-fcc-list (setq wl-draft-fcc-list ...)) (setq wl-sent-message-modified nil) (unwind-protect (progn ... ...) (let* ... ... ... ... ...)))
wl-draft-dispatch-message()
wl-draft-normal-send-func(#<buffer %Drafts/1149> t)
funcall(wl-draft-normal-send-func #<buffer %Drafts/1149> t)
(save-excursion (set-buffer sending-buffer) (if (and ... ...) (error "No recipient is specified")) (expand-abbrev) (let (...) (run-hooks ...)) (if wl-draft-verbose-send (message "%s" ...)) (when (and parent-flag parent-number ...) (condition-case nil ... ...)) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil ... ...) (setq mail-send-actions ...)) (if wl-draft-verbose-send (message "%sdone" ...)))
(unwind-protect (save-excursion (set-buffer sending-buffer) (if ... ...) (expand-abbrev) (let ... ...) (if wl-draft-verbose-send ...) (when ... ...) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions ... ...) (if wl-draft-verbose-send ...)) (and (buffer-live-p sending-buffer) (kill-buffer sending-buffer)))
(let ((send-mail-function ...) (editing-buffer ...) (sending-buffer ...) (parent-flag wl-draft-parent-flag) (parent-number wl-draft-parent-number) (parent-folder wl-draft-parent-folder) (wl-draft-verbose-msg nil) err) (unwind-protect (save-excursion ... ... ... ... ... ... ... ... ...) (and ... ...)))
(progn (let (... ... ... ... ... ... ... err) (unwind-protect ... ...)))
(if (or (not wl-interactive-send) (wl-draft-send-confirm)) (progn (let ... ...)))
(when (or (not wl-interactive-send) (wl-draft-send-confirm)) (let (... ... ... ... ... ... ... err) (unwind-protect ... ...)))
wl-draft-send(t)
wl-draft-send-and-exit()
call-interactively(wl-draft-send-and-exit nil nil)