Mercurial > emacs

comparison lisp/gnus/rfc2047.el @ 33815:61c7f3065929

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rfc2047-encode-message-header): Don't encode if default-enable-multibyte-characters is nil.
author Dave Love <fx@gnu.org>
date Thu, 23 Nov 2000 16:09:21 +0000
parents d401dfab680a
children 79dde983f45b
comparison
equal deleted inserted replaced
33814:2be7e99127e5 33815:61c7f3065929
139 (cond 139 (cond
140 ((eq method 'mime) 140 ((eq method 'mime)
141 (rfc2047-encode-region (point-min) (point-max))) 141 (rfc2047-encode-region (point-min) (point-max)))
142 ((eq method 'default) 142 ((eq method 'default)
143 (if (and (featurep 'mule) 143 (if (and (featurep 'mule)
144 (if (boundp 'default-enable-multibyte-characters)
145 default-enable-multibyte-characters)
144 mail-parse-charset) 146 mail-parse-charset)
145 (mm-encode-coding-region (point-min) (point-max) 147 (mm-encode-coding-region (point-min) (point-max)
146 mail-parse-charset))) 148 mail-parse-charset)))
147 ((mm-coding-system-p method) 149 ((mm-coding-system-p method)
148 (if (featurep 'mule) 150 (if (and (featurep 'mule)
151 (if (boundp 'default-enable-multibyte-characters)
152 default-enable-multibyte-characters))
149 (mm-encode-coding-region (point-min) (point-max) method))) 153 (mm-encode-coding-region (point-min) (point-max) method)))
150 ;; Hm. 154 ;; Hm.
151 (t))) 155 (t)))
152 (goto-char (point-max))))))) 156 (goto-char (point-max)))))))
153 157