Re: [smtpmail.el] Encoding problem in smtpmail-send-queued-mail

[Jesper Harder]

Simon Josefsson <jas@extundo.com> writes:

> I did not see the original mail (not on my news server nor on
> groups.google.com), but I wonder which MUA was used to generate the
> mail in the first place?  Was it MIME aware?

I enclosed a patch as a MIME attachment, so it probably didn't survive
an overzealous binary filter on some news servers.  Here's the original
mail:

==========

In GNU Emacs 21.1.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-10-22 on defun.localdomain
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

When I use these settings:

     (setq message-send-mail-function 'smtpmail-send-it)
     (setq smtpmail-queue-mail t)

for sending mail with Gnus, every 8bit character in the mail is
preceded by a \201 when the mail is sent.  When I set
`smtpmail-queue-mail' to nil, the error doesn't occur.

Making `smtpmail-send-queued-mail' open the file with the queued mail
literally fixes the problem for me:


*** smtpmail.el~        Tue Aug  7 16:43:48 2001
--- smtpmail.el Wed Oct 31 02:28:39 2001
***************
*** 310,316 ****
                                                   (end-of-line)
                                                   (point))))
        (load file-msg)
!       (setq tembuf (find-file-noselect file-msg))
        (if (not (null smtpmail-recipient-address-list))
            (if (not (smtpmail-via-smtp smtpmail-recipient-address-list
                                        tembuf))
--- 310,316 ----
                                                   (end-of-line)
                                                   (point))))
        (load file-msg)
!       (setq tembuf (find-file-noselect file-msg nil t))
        (if (not (null smtpmail-recipient-address-list))
            (if (not (smtpmail-via-smtp smtpmail-recipient-address-list
                                        tembuf))