Mercurial > emacs

comparison lisp/mail/sendmail.el @ 88514:18cd065b6b87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-send-it): Use :mime-charset, not mime-charset.
author Dave Love <fx@gnu.org>
date Tue, 14 May 2002 15:38:09 +0000
parents cdc1a6112b86
children df76808e99c0
comparison
equal deleted inserted replaced
88513:bafe04d82c5d 88514:18cd065b6b87
932 (not (re-search-forward "^MIME-version:" delimline t)) 932 (not (re-search-forward "^MIME-version:" delimline t))
933 (progn (skip-chars-forward "\0-\177") 933 (progn (skip-chars-forward "\0-\177")
934 (/= (point) (point-max))) 934 (/= (point) (point-max)))
935 (setq selected-coding (select-message-coding-system)) 935 (setq selected-coding (select-message-coding-system))
936 (setq charset 936 (setq charset
937 (coding-system-get selected-coding 'mime-charset)) 937 (coding-system-get selected-coding :mime-charset))
938 (goto-char delimline) 938 (goto-char delimline)
939 (insert "MIME-version: 1.0\n" 939 (insert "MIME-version: 1.0\n"
940 "Content-type: text/plain; charset=" 940 "Content-type: text/plain; charset="
941 (symbol-name charset) "\n" 941 (symbol-name charset) "\n"
942 "Content-Transfer-Encoding: 8bit\n"))) 942 "Content-Transfer-Encoding: 8bit\n")))