[Emacs-diffs] trunk r115248: lisp/gnus/gnus-art.el (gnus-article-browse-html-*): Work for broken Chinese articles

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115248
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-11-27 01:54:35 +0000
message:
  lisp/gnus/gnus-art.el (gnus-article-browse-html-*): Work for broken Chinese 
articles
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-11-22 20:18:16 +0000
+++ b/lisp/gnus/ChangeLog       2013-11-27 01:54:35 +0000
@@ -1,3 +1,12 @@
+2013-11-27  Katsumi Yamaoka  <address@hidden>
+
+       Work for broken Chinese articles.
+
+       * gnus-art.el (gnus-article-browse-html-save-cid-content):
+       Exclude broken handles that gnus-summary-enter-digest-group may create.
+       (gnus-article-browse-html-parts):
+       Allow overriding charset by mm-charset-override-alist.
+
 2013-11-21  Jan Tatarik  <address@hidden>
 
        * gnus-icalendar.el (gnus-icalendar-additional-identities): New.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2013-09-11 03:31:56 +0000
+++ b/lisp/gnus/gnus-art.el     2013-11-27 01:54:35 +0000
@@ -2794,6 +2794,9 @@
        (dolist (handle handles)
          (cond
           ((not (listp handle)))
+          ;; Exclude broken handles that `gnus-summary-enter-digest-group'
+          ;; may create.
+          ((not (or (bufferp (car handle)) (stringp (car handle)))))
           ((equal (mm-handle-media-supertype handle) "multipart")
            (when (setq file (gnus-article-browse-html-save-cid-content
                              cid handle directory))
@@ -2801,11 +2804,12 @@
           ((equal (concat "<" cid ">") (mm-handle-id handle))
            (setq file
                  (expand-file-name
-                   (or (mm-handle-filename handle)
-                       (concat
-                        (make-temp-name "cid")
-                        (car (rassoc (car (mm-handle-type handle)) 
mailcap-mime-extensions))))
-                   directory))
+                  (or (mm-handle-filename handle)
+                      (concat
+                       (make-temp-name "cid")
+                       (car (rassoc (car (mm-handle-type handle))
+                                    mailcap-mime-extensions))))
+                  directory))
            (mm-save-part-to-file handle file)
            (throw 'found file))))))))
 
@@ -2908,7 +2912,7 @@
                     (cond ((= (length hcharset) 1)
                            (setq hcharset (car hcharset)
                                  coding (mm-charset-to-coding-system
-                                         hcharset)))
+                                         hcharset nil t)))
                           ((> (length hcharset) 1)
                            (setq hcharset 'utf-8
                                  coding hcharset)))
@@ -2916,7 +2920,8 @@
                         (if charset
                             (progn
                               (setq body
-                                    (mm-charset-to-coding-system charset))
+                                    (mm-charset-to-coding-system charset
+                                                                 nil t))
                               (if (eq coding body)
                                   (setq eheader (mm-encode-coding-string
                                                  (buffer-string) coding)