Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 41921:de4a90cd0a5f
(smtpmail-send-queued-mail): Insert the enqueued messages literally.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 10 Dec 2001 19:48:32 +0000 |
| parents | e467d0e8f243 |
| children | 8ef1ae58dc29 |
comparison
equal
deleted
inserted
replaced
| 41920:bb72c55fd4de | 41921:de4a90cd0a5f |
|---|---|
| 374 (with-current-buffer buffer-index | 374 (with-current-buffer buffer-index |
| 375 (beginning-of-buffer) | 375 (beginning-of-buffer) |
| 376 (while (not (eobp)) | 376 (while (not (eobp)) |
| 377 (setq file-msg (buffer-substring (point) (line-end-position))) | 377 (setq file-msg (buffer-substring (point) (line-end-position))) |
| 378 (load file-msg) | 378 (load file-msg) |
| 379 (setq tembuf (find-file-noselect file-msg)) | 379 ;; Insert the message literally: it is already encoded as per |
| 380 ;; the MIME headers, and code conversions might guess the | |
| 381 ;; encoding wrongly. | |
| 382 (setq tembuf (find-file-noselect file-msg nil t)) | |
| 380 (if (not (null smtpmail-recipient-address-list)) | 383 (if (not (null smtpmail-recipient-address-list)) |
| 381 (if (not (smtpmail-via-smtp smtpmail-recipient-address-list | 384 (if (not (smtpmail-via-smtp smtpmail-recipient-address-list |
| 382 tembuf)) | 385 tembuf)) |
| 383 (error "Sending failed; SMTP protocol error")) | 386 (error "Sending failed; SMTP protocol error")) |
| 384 (error "Sending failed; no recipients")) | 387 (error "Sending failed; no recipients")) |