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

On Sat, Aug 9, 2014 at 5:04 PM, Mats Lidell <matsl(a)xemacs.org&gt; wrote: This means that nnlistserv.el, line 34, says: (require 'nnweb) and nnweb.el, line 35, says: (require 'message) and message.el, line 1478, says: (defcustom message-use-idna (and (condition-case nil (require 'idna) (file-error)) (mm-coding-system-p '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. GNU Libidn, and in particular the elisp package \"idna.el\" and the external program \"idn\", must be installed for this functionality 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))) and the value of idna-program is nil, which causes evaluation of: (executable-find nil) which leads to the problem that triggers the backtrace. So ... I'm guessing, but maybe a non-toplevel (require 'idna) doesn't get evaluated at compile time, but only at load time? Does it work if you do this instead? (defcustom message-use-idna (and (eval-when (compile load eval) (condition-case nil (require 'idna) (file-error))) (mm-coding-system-p '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. GNU Libidn, and in particular the elisp package \"idna.el\" and the external program \"idn\", must be installed for this functionality 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))) Regards, -- Jerry James http://www.jamezone.org/ _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta