Mercurial > emacs

comparison lisp/mail/sendmail.el @ 28750:4ed5e6dadc6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-send-it): Set buffer-file-coding-system to the selected coding system for MIME header.
author Kenichi Handa <handa@m17n.org>
date Fri, 28 Apr 2000 04:04:04 +0000
parents 239d5d98c1bd
children d91cfeea29c6
comparison
equal deleted inserted replaced
28749:bdbffbf2a00e 28750:4ed5e6dadc6e
905 (and (eq mail-send-nonascii 'mime) 905 (and (eq mail-send-nonascii 'mime)
906 (not (re-search-forward "^MIME-version:" delimline t)) 906 (not (re-search-forward "^MIME-version:" delimline t))
907 (progn (skip-chars-forward "\0-\177") 907 (progn (skip-chars-forward "\0-\177")
908 (/= (point) (point-max))) 908 (/= (point) (point-max)))
909 (setq coding-system (select-message-coding-system)) 909 (setq coding-system (select-message-coding-system))
910 ;; Set buffer-file-coding-system to the selected
911 ;; one. This prevent the later call of
912 ;; select-message-coding-system asking a user
913 ;; again.
914 (prog1 t
915 (set-buffer-file-coding-system coding-system))
910 (setq charset 916 (setq charset
911 (coding-system-get coding-system 'mime-charset)) 917 (coding-system-get coding-system 'mime-charset))
912 (goto-char delimline) 918 (goto-char delimline)
913 (insert "MIME-version: 1.0\n" 919 (insert "MIME-version: 1.0\n"
914 "Content-type: text/plain; charset=" 920 "Content-type: text/plain; charset="