Mercurial > emacs
comparison lisp/mail/sendmail.el @ 28750:4ed5e6dadc6e
(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=" |