[Emacs-diffs] /srv/bzr/emacs/trunk r100989: (rfc2047-encode): Use utf-8 charset as a last resort.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 100989 [merge]
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-08-06 03:44:13 +0000
message:
  (rfc2047-encode): Use utf-8 charset as a last resort.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/rfc2047.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-08-01 23:49:32 +0000
+++ b/lisp/gnus/ChangeLog       2010-08-06 03:43:29 +0000
@@ -1,3 +1,8 @@
+2010-08-06  Katsumi Yamaoka  <address@hidden>
+
+       * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if
+       determining charset of text fails.
+
 2010-08-01  Katsumi Yamaoka  <address@hidden>
 
        * nnmail.el (nnmail-get-new-mail-1): Revert.

=== modified file 'lisp/gnus/rfc2047.el'
--- a/lisp/gnus/rfc2047.el      2010-05-25 02:11:08 +0000
+++ b/lisp/gnus/rfc2047.el      2010-08-06 03:43:29 +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)))