Can't send mail, 0.44 or 0.45

Can't send mail, 0.44 or 0.45

[morgan]

I'm running xemacs 20.4 sans MULE, and with both pgnus 0.45 & 0.46 I can't
send any mail. I unpacked xemacs from a binary debian linux
package. (xemacs20-nomule from debian 2.1)

Here's the backtrace from trying to send a message to myself in 0.46::

Signaling: (void-variable enable-multibyte-characters)
  (if enable-multibyte-characters (find-charset-region b e) (save-excursion (save-restriction ... ... ...)))
)
  mm-find-charset-region(1 208)
  (delq (quote ascii) (mm-find-charset-region (point-min) (point-max)))
)
  (let ((charsets ...) charset) (cond (... nil) (... charsets) (t ...)))
)
  (save-excursion (goto-char (point-min)) (let (... charset) (cond ... ... ...)))
)
  mm-encode-body()
  (setq charset (mm-encode-body) encoding (mm-body-encoding))
)
  (if (equal (car ...) "text") (setq charset (mm-encode-body) encoding (mm-body-encoding)) (setq encoding (mm-encode-buffer type)))
)
  (save-current-buffer (set-buffer temp-buffer) (if (setq filename ...) (insert-file-contents-literally filename) (insert ...)) (if (equal ... "text") (setq charset ... encoding ...) (setq encoding ...)) (setq coded (buffer-string)))
)
  (with-current-buffer temp-buffer (if (setq filename ...) (insert-file-contents-literally filename) (insert ...)) (if (equal ... "text") (setq charset ... encoding ...) (setq encoding ...)) (setq coded (buffer-string)))
)
  (unwind-protect (with-current-buffer temp-buffer (if ... ... ...) (if ... ... ...) (setq coded ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
)
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ...) (and ... ...)))
)
  (with-temp-buffer (if (setq filename ...) (insert-file-contents-literally filename) (insert ...)) (if (equal ... "text") (setq charset ... encoding ...) (setq encoding ...)) (setq coded (buffer-string)))
)
  (let (coded encoding charset filename type) (setq type (or ... "text/plain")) (with-temp-buffer (if ... ... ...) (if ... ... ...) (setq coded ...)) (when (or charset ...) (insert "Content-Type: " type)) (when charset (insert ...)) (insert "\n") (unless (eq encoding ...) (insert ...)) (insert "\n") (insert coded))
)
  (cond ((eq ... ...) (let ... ... ... ... ... ... ... ... ...)) ((eq ... ...) (let ... ... ... ... ... ...)) (t (error "%S" cont)))
)
  mml-generate-mime-1((part (type . "text/plain") (contents . "test\n-- \nVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV\n>> M o r g a n   F l e t c h e r         http://www.hahaha.org <<\n>> Tibi gratias agimus quod nihil fumas.     morgan@hahaha.org <<\n")))
  (if (and (consp ...) (= ... 1)) (mml-generate-mime-1 (car cont)) (mml-generate-mime-1 (nconc ... cont)))
)
  (save-current-buffer (set-buffer temp-buffer) (if (and ... ...) (mml-generate-mime-1 ...) (mml-generate-mime-1 ...)) (buffer-string))
)
  (with-current-buffer temp-buffer (if (and ... ...) (mml-generate-mime-1 ...) (mml-generate-mime-1 ...)) (buffer-string))
)
  (unwind-protect (with-current-buffer temp-buffer (if ... ... ...) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
)
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ...) (and ... ...)))
)
  (with-temp-buffer (if (and ... ...) (mml-generate-mime-1 ...) (mml-generate-mime-1 ...)) (buffer-string))
)
  (let ((cont ...)) (with-temp-buffer (if ... ... ...) (buffer-string)))
)
  mml-generate-mime()
  (let ((new ...)) (delete-region (point-min) (point-max)) (insert new) (goto-char (point-min)) (widen) (forward-line -1) (let (... ...) (delete-region beg ...) (insert "Mime-Version: 1.0\n") (insert line)))
)
  message-encode-message-body()
  (let ((tembuf ...) (case-fold-search nil) (news ...) (mailbuf ...)) (save-restriction (message-narrow-to-headers) (let ... ...) (mail-encode-encoded-word-buffer) (run-hooks ...)) (message-encode-message-body) (unwind-protect (save-excursion ... ... ... ... ... ... ... ...) (kill-buffer tembuf)) (set-buffer mailbuf) (push (quote mail) message-sent-message-via))
)
  message-send-mail(nil)
  message-send-via-mail(nil)
  funcall(message-send-via-mail nil)
  (setq success (funcall (caddr elem) arg))
)
  (and (or (not ...) (y-or-n-p ...)) (setq success (funcall ... arg)))
)
  (or (not (funcall ...)) (and (or ... ...) (setq success ...)))
)
  (and (or (not ...) (and ... ...)))
)
  (if (and (or ... ...)) (progn (setq sent t)))
)
  (when (and (or ... ...)) (setq sent t))
)
  (while (and success (setq elem ...)) (when (and ...) (setq sent t)))
)
  (let ((alist message-send-method-alist) (success t) elem sent) (while (and success ...) (when ... ...)) (when (and success sent) (message-do-fcc) (run-hooks ...) (message "Sending...done") (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t))
)
  message-send(nil)
  (and (message-send arg) (buffer-name buf))
)
  (if (and (message-send arg) (buffer-name buf)) (progn (if message-kill-buffer-on-exit ... ... ...) (message-do-actions actions) t))
)
  (when (and (message-send arg) (buffer-name buf)) (if message-kill-buffer-on-exit (kill-buffer buf) (bury-buffer buf) (when ... ...)) (message-do-actions actions) t)
)
  (let ((buf ...) (actions message-exit-actions)) (when (and ... ...) (if message-kill-buffer-on-exit ... ... ...) (message-do-actions actions) t))
)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit)