265 |
(let* ((buff (current-buffer)) |
(let* ((buff (current-buffer)) |
266 |
(mime-charset (with-temp-buffer |
(mime-charset (with-temp-buffer |
267 |
(insert-buffer-substring buff b e) |
(insert-buffer-substring buff b e) |
268 |
(mm-find-mime-charset-region b e))) |
(mm-find-mime-charset-region 1 (point-max)))) |
269 |
(cs (if (> (length mime-charset) 1) |
(cs (if (> (length mime-charset) 1) |
270 |
(mm-charset-to-coding-system mime-charset) |
(error "Can't encode word: %s" (buffer-substring b e)) |
271 |
(error "Can't encode word: %s" (buffer-substring b e)))) |
(setq mime-charset (car mime-charset)) |
272 |
|
(mm-charset-to-coding-system mime-charset))) |
273 |
(encoding (or (cdr (assq mime-charset |
(encoding (or (cdr (assq mime-charset |
274 |
rfc2047-charset-encoding-alist)) |
rfc2047-charset-encoding-alist)) |
275 |
'B)) |
'B)) |