(rfc2047-encode): Use utf-8 charset as a last resort.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4c364c3270df4aa859d99505c7b67ed65875fe9a..fb4f6e64d02bed9bf2726669c8a04750a7ec1b25 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if
+       determining charset of text fails.
+
 2010-08-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnmail.el (nnmail-get-new-mail-1): Revert.

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index 840b02a26fdf072b12c00723f86f1c4900eff8c4..27d34ee5290729e513e1608b871a8f6b4f16b350 100644 (file)
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/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)))