From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18662
Path: main.gmane.org!not-for-mail
From: morgan@hahaha.org
Newsgroups: gmane.emacs.gnus.general
Subject: Can't send mail, 0.44 or 0.45
Date: Sat, 14 Nov 1998 17:55:14 -0800 (PST)
Sender: owner-ding@hpc.uh.edu
Message-ID: <m0zerPG-000FogC@morgan>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035157148 7362 80.91.224.250 (20 Oct 2002 23:39:08 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:39:08 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA01446
	for <jason@mailhost.sclp.com>; Sat, 14 Nov 1998 20:55:46 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id TAB10390;
	Sat, 14 Nov 1998 19:55:36 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 14 Nov 1998 19:55:33 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id TAA23341 for <ding@hpc.uh.edu>; Sat, 14 Nov 1998 19:55:24 -0600 (CST)
Original-Received: from morgan (root@morgan.vip.best.com [206.86.76.159])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id UAA01435
	for <ding@gnus.org>; Sat, 14 Nov 1998 20:55:16 -0500 (EST)
Original-Received: by hahaha.org
	via sendmail from stdin
	id <m0zerPG-000FogC@morgan> (Debian Smail3.2.0.101)
	for ding@gnus.org; Sat, 14 Nov 1998 17:55:14 -0800 (PST) 
Original-To: ding@gnus.org
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18662
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18662

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)