Re: gnus should accept UTF8 even if UTF-8 is standard

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Reiner Steib wrote:
> On Thu, Oct 16 2008, Katsumi Yamaoka wrote:
>> Note that adding (utf8 . utf-8) to `mm-charset-synonym-alist'
>> causes the same problem (I verified it with Emacs 22.3).

> I'm surprised that `mm-charset-synonym-alist' has any effect on
> outgoing messages.  I though it would only be used when displaying an
> article.  Could you please investigate this?

That is due to `mml-generate-mime-1' that uses the charset specified
as is (for encoding, it uses the valid coding system derived from
that charset according to `mm-charset-synonym-alist', though).
It's a bug, I have two solutions, and I like the second one:

1. Bind `mm-charset-synonym-alist' (and `mm-charset-eval-alist')
   to nil when encoding.  And signal an error if the charset is
   invalid.

2. Replace the charset that is an alias with the valid one that
   Emacs knows.  Although it violates the idea that "the charset
   aliases would be used only when displaying an article", it
   will be convenience for users.

WDYT?  The patches for 1. and 2. are below:

Patch1:
--8<---------------cut here---------------start------------->8---
--- mml.el~	2008-10-03 05:47:11 +0000
+++ mml.el	2008-10-20 23:58:29 +0000
@@ -476,8 +476,11 @@
 				 "application/octet-stream")
 			   "text/plain")))
 	       (charset (cdr (assq 'charset cont)))
-	       (coding (mm-charset-to-coding-system charset))
+	       (coding (let (mm-charset-eval-alist mm-charset-synonym-alist)
+			 (mm-charset-to-coding-system charset)))
 	       encoding flowed coded)
+	  (unless coding
+	    (error "Unknown charset: %s" charset))
 	  (cond ((eq coding 'ascii)
 		 (setq charset nil
 		       coding nil))
--8<---------------cut here---------------end--------------->8---

Patch2:
--8<---------------cut here---------------start------------->8---
--- mml.el~	2008-10-03 05:47:11 +0000
+++ mml.el	2008-10-20 23:58:29 +0000
@@ -482,7 +482,12 @@
 		 (setq charset nil
 		       coding nil))
 		(charset
-		 (setq charset (intern (downcase charset)))))
+		 ;; `charset' might be an alias that `mm-charset-synonym-alist'
+		 ;; provides and might not be in common use, so we prefer
+		 ;; the one that Emacs knows for `coding'.
+		 (setq charset (if coding
+				   (mm-coding-system-to-mime-charset coding)
+				 (intern (downcase charset))))))
 	  (if (and (not raw)
 		   (member (car (split-string type "/")) '("text" "message")))
 	      (progn
--8<---------------cut here---------------end--------------->8---

Regards,