From e97af95d1dded84572e97668450b4359fd020775 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 6 Aug 2010 03:41:28 +0000 Subject: [PATCH] (rfc2047-encode): Use utf-8 charset as a last resort. --- lisp/ChangeLog | 5 +++++ lisp/rfc2047.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b7e654b32..23acefb04 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-06 Katsumi Yamaoka + + * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if + determining charset of text fails. + 2010-08-01 Katsumi Yamaoka * nnmail.el (nnmail-get-new-mail-1): Revert. diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index 840b02a26..27d34ee52 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -655,6 +655,9 @@ should not change this value.") Point moves to the end of the region." (let ((mime-charset (or (mm-find-mime-charset-region b e) (list 'us-ascii))) cs encoding tail crest eword) + ;; Use utf-8 as a last resort if determining charset of text fails. + (if (memq nil mime-charset) + (setq mime-charset (list 'utf-8))) (cond ((> (length mime-charset) 1) (error "Can't rfc2047-encode `%s'" (buffer-substring-no-properties b e))) -- 2.34.1