procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(smtpmail-send-it): Bind

Browse source 
smtpmail-code-conv-from properly.
(smtpmail-send-data-1): If DATA is a multibyte string, encode it
by smtpmail-code-conv-from.
This commit is contained in:
Kenichi Handa 1999-05-25 11:12:17 +00:00
parent bae7e4e648
commit 83af570eae
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/smtpmail.el
View file

@ -122,7 +122,11 @@ This is relative to `smtpmail-queue-dir'.")
(tembuf (generate-new-buffer " smtpmail temp"))
(case-fold-search nil)
delimline
(mailbuf (current-buffer)))
(mailbuf (current-buffer))
(smtpmail-code-conv-from
(if enable-multibyte-characters
(let ((sendmail-coding-system smtpmail-code-conv-from))
(select-message-coding-system)))))
(unwind-protect
(save-excursion
(set-buffer tembuf)
@ -564,8 +568,10 @@ This is relative to `smtpmail-queue-dir'.")
(defun smtpmail-send-data-1 (process data)
(goto-char (point-max))
(when smtpmail-code-conv-from
(setq data (encode-coding-string data *internal* smtpmail-code-conv-from)))
(if (and (multibyte-string-p data)
smtpmail-code-conv-from)
(setq data (string-as-multibyte
(encode-coding-string data smtpmail-code-conv-from))))
(if smtpmail-debug-info
(insert data "\r\n"))