Help needed to analyze backtrace (was: Recent net-libs push break package smoketest in different ways)

Can you help me analyze this backtrace from compiling gnus/lisp/nnlistserv.el. I don't understand where and what the problem is. (Well I do understand that by adding idna.el to net-utils some things in gnus that depends on idna gets activated and for some reason this below is the result of that!) Can this be a byte compiler problem? ---------------------------------------------------------------------- /src/xemacs/bin/xemacs -no-autoloads -vanilla -batch -eval '(setq stack-trace-on-error t load-always-display-messages t load-ignore-out-of-date-elc-files t load-show-full-path-in-messages t)' -eval '(setq load-path (list (expand-file-name "mule" lisp-directory) lisp-directory))' -l /src/xemacs/packages/package-compile.el -- gnus mail-lib xemacs-base eterm sh-script net-utils os-utils dired mh-e sieve ps-print w3 pgg mailcrypt ecrypto sasl -- -l dgnushack-xemacs.el -l lpath.el -f batch-byte-compile lisp/nnlistserv.el backtrace(nil t) # bind (error-info) byte-compile-report-error((wrong-type-argument stringp nil)) ("(in expand-file-name)" "[internal]") expand-file-name(nil "/src/xemacs/bin/") (setq file (expand-file-name command (car list))) (and (setq file (expand-file-name command (car list))) (let ((suffixes executable-binary-suffixes) candidate) (while suffixes (setq candidate (concat file (car suffixes))) (if (and (file-executable-p candidate) (not (file-directory-p candidate))) (setq suffixes nil) (setq suffixes (cdr suffixes)) (setq candidate nil))) (setq file candidate))) (if (and (setq file (expand-file-name command (car list))) (let ((suffixes executable-binary-suffixes) candidate) (while suffixes (setq candidate (concat file (car suffixes))) (if (and (file-executable-p candidate) (not (file-directory-p candidate))) (setq suffixes nil) (setq suffixes (cdr suffixes)) (setq candidate nil))) (setq file candidate))) nil (setq file nil) (cdr list)) (setq list (if (and (setq file (expand-file-name command (car list))) (let ((suffixes executable-binary-suffixes) candidate) (while suffixes (setq candidate (concat file (car suffixes))) (if (and (file-executable-p candidate) (not (file-directory-p candidate))) (setq suffixes nil) (setq suffixes (cdr suffixes)) (setq candidate nil))) (setq file candidate))) nil (setq file nil) (cdr list))) (while list (setq list (if (and (setq file (expand-file-name command (car list))) (let ((suffixes executable-binary-suffixes) candidate) (while suffixes (setq candidate (concat file (car suffixes))) (if (and (file-executable-p candidate) (not (file-directory-p candidate))) (setq suffixes nil) (setq suffixes (cdr suffixes)) (setq candidate nil))) (setq file candidate))) nil (setq file nil) (cdr list)))) # bind (file list) (let ((list exec-path) file) (while list (setq list (if (and (setq file (expand-file-name command (car list))) (let ((suffixes executable-binary-suffixes) candidate) (while suffixes (setq candidate (concat file (car suffixes))) (if (and (file-executable-p candidate) (not (file-directory-p candidate))) (setq suffixes nil) (setq suffixes (cdr suffixes)) (setq candidate nil))) (setq file candidate))) nil (setq file nil) (cdr list)))) file) # bind (command) executable-find(nil) (and (condition-case nil (require (quote idna)) (file-error)) (mm-coding-system-p (quote utf-8)) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t) eval((and (condition-case nil (require (quote idna)) (file-error)) (mm-coding-system-p (quote utf-8)) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t)) # bind (value symbol) custom-initialize-reset(message-use-idna (and (condition-case nil (require (quote idna)) (file-error)) (mm-coding-system-p (quote utf-8)) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t)) # bind (initialize requests args doc default symbol) custom-declare-variable(message-use-idna (and (condition-case nil (require (quote idna)) (file-error)) (mm-coding-system-p (quote utf-8)) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t) "Whether to encode non-ASCII in domain names into ASCII according to IDNA.\nGNU Libidn, and in particular the elisp package \"idna.el\" and\nthe external program \"idn\", must be installed for this\nfunctionality to work." :version "22.1" :group message-headers :link (custom-manual "(message)IDNA") :type (choice (const :tag "Ask" ask) (const :tag "Never" nil) (const :tag "Always" t))) (defcustom message-use-idna (and (condition-case nil (require (quote idna)) (file-error)) (mm-coding-system-p (quote utf-8)) (executable-find idna-program) (string= (idna-to-ascii "räksmörgås") "xn--rksmrgs-5wao1o") t) "Whether to encode non-ASCII in domain names into ASCII according to IDNA.\nGNU Libidn, and in particular the elisp package \"idna.el\" and\nthe external program \"idn\", must be installed for this\nfunctionality to work." :version "22.1" :group (quote message-headers) :link (quote (custom-manual "(message)IDNA")) :type (quote (choice (const :tag "Ask" ask) (const :tag "Never" nil) (const :tag "Always" t)))) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) (load-internal "[internal]") load-internal("message" nil require nil undecided) # bind (handler path nosuffix nomessage noerror filename) load("message" nil require nil) # (unwind-protect ...) require(message) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) (load-internal "[internal]") load-internal("nnweb" nil require nil undecided) # bind (handler path nosuffix nomessage noerror filename) load("nnweb" nil require nil) # (unwind-protect ...) require(nnweb) eval((require (quote nnweb))) # bind (form) byte-compile-file-form-eval-boundary((require (quote nnweb))) # bind (byte-compile-current-form byte-compile-output-preface handler form) byte-compile-file-form((require (quote nnweb))) # (unwind-protect ...) #<compiled-function (from "/src/xemacs/share/xemacs-21.5-b34/lisp/bytecomp.elc") nil "...(67)" [byte-compile-unresolved-functions filename byte-compile-outbuffer byte-compile-inbuffer goto-char point-max 1 " \n" nil looking-at ";" byte-compile-file-form read error invalid-state "byte compiling didn't save-excursion appropriately" byte-compile-flush-pending byte-compile-insert-header byte-compile-warn-about-unresolved-functions] 4 0xc12>() # (unwind-protect ...) call-with-condition-handler(byte-compile-report-error #<compiled-function (from "/src/xemacs/share/xemacs-21.5-b34/lisp/bytecomp.elc") nil "...(67)" [byte-compile-unresolved-functions filename byte-compile-outbuffer byte-compile-inbuffer goto-char point-max 1 " \n" nil looking-at ";" byte-compile-file-form read error invalid-state "byte compiling didn't save-excursion appropriately" byte-compile-flush-pending byte-compile-insert-header byte-compile-warn-about-unresolved-functions] 4 0xc12>) # (unwind-protect ...) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-verbose byte-optimize byte-compile-checks-on-load byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-file-domain byte-compile-force-escape-quoted byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-output byte-compile-using-dynamic eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "/src/xemacs/packages/xemacs-packages/gnus/lisp/nnlistserv.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("lisp/nnlistserv.el") byte-code("..." [file byte-compile-file t] 2) # (condition-case ... . ((error (byte-code "ÂÃ!.Ä!.ÂÅ!.ÆÇ!«.Ç È\".ª.Ä ＠ÉN®. ＠!.ÊË A\".ÂÌ!.È." [file err write-sequence ">>Error occurred processing " princ ": " fboundp display-error nil error-message mapc #<compiled-function (from "/src/xemacs/share/xemacs-21.5-b34/lisp/bytecomp.elc") (x) "...(8)" [x write-sequence " " prin1] 2 0xca6> "\n"] 3)))) # bind (file) batch-byte-compile-1("lisp/nnlistserv.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # (unwind-protect ...) call-with-condition-handler(ignore command-line) # bind (#:ntl-buffer) normal-top-level() # (condition-case ... . error) # (catch top-level ...) ---------------------------------------------------------------------- Yours -- %% Mats _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta