# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1281066253 0
# Node ID 98a5d29bd346cf126e778ae1bfaf97bd3c314f10
# Parent  944013d7f38b3d087859aac4c88477932b593af8# Parent  1f8f03cfcd2b785062e8dee72058932906e03d1a
(rfc2047-encode): Use utf-8 charset as a last resort.

diff -r 944013d7f38b -r 98a5d29bd346 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Aug 06 02:44:56 2010 +0200
+++ b/lisp/gnus/ChangeLog	Fri Aug 06 03:44:13 2010 +0000
@@ -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 -r 944013d7f38b -r 98a5d29bd346 lisp/gnus/rfc2047.el
--- a/lisp/gnus/rfc2047.el	Fri Aug 06 02:44:56 2010 +0200
+++ b/lisp/gnus/rfc2047.el	Fri Aug 06 03:44:13 2010 +0000
@@ -655,6 +655,9 @@
 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)))