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

[Simon Josefsson]

Jesper Harder <harder@ifa.au.dk> writes:

> 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:

FWIW I agree that this patch probably isn't the right thing.  The file
was saved using one coding system, so visiting it literally probably
just happens to work for latin-1.

It seems as if `smtpmail-code-conv-from' is not set when sending
messages from the queue.  I think it should.  Can you try this patch
instead of yours?

--- smtpmail.el.~1.36.~ Sat Dec  1 01:36:12 2001
+++ smtpmail.el Sat Dec  8 17:43:42 2001
@@ -370,7 +370,12 @@
   ;;; Get index, get first mail, send it, get second mail, etc...
   (let ((buffer-index (find-file-noselect smtpmail-queue-index))
        (file-msg "")
-       (tembuf nil))
+       (tembuf nil)
+       (smtpmail-code-conv-from
+        (if enable-multibyte-characters
+            (let ((sendmail-coding-system smtpmail-code-conv-from))
+              (with-current-buffer buffer-index
+                (select-message-coding-system)))))))
     (with-current-buffer buffer-index
       (beginning-of-buffer)
       (while (not (eobp))