[gnus git] branch master updated: m0-7-257-g9b6ee65 =1= gnus-art.el (gnus-article-browse-html-*): Work for broken Chinese articles

       via  9b6ee65f3a788aacf4c9a9b11c18d23cfe6cc176 (commit)
      from  7347930b4891fc5146bb7db93f402aa95a2041c8 (commit)


- Log -----------------------------------------------------------------
commit 9b6ee65f3a788aacf4c9a9b11c18d23cfe6cc176
Author: Katsumi Yamaoka <[email protected]>
Date:   Wed Nov 27 01:25:30 2013 +0000

    gnus-art.el (gnus-article-browse-html-*): Work for broken Chinese articles

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac8fc5b..e302b40 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-11-27  Katsumi Yamaoka  <[email protected]>
+
+	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  <[email protected]>
 
 	* gnus-icalendar.el (gnus-icalendar-additional-identities): New.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index bc164ca..fd9323f 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2795,6 +2795,9 @@ Return file name."
 	(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))
@@ -2805,7 +2808,8 @@ Return file name."
 		   (or (mm-handle-filename handle)
 		       (concat
 			(make-temp-name "cid")
-                        (car (rassoc (car (mm-handle-type handle)) mailcap-mime-extensions))))
+			(car (rassoc (car (mm-handle-type handle))
+				     mailcap-mime-extensions))))
 		   directory))
 	    (mm-save-part-to-file handle file)
 	    (throw 'found file))))))))
@@ -2909,7 +2913,7 @@ message header will be added to the bodies of the \"text/html\" parts."
 		     (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)))
@@ -2917,7 +2921,8 @@ message header will be added to the bodies of the \"text/html\" parts."
 			 (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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    9 +++++++++
 lisp/gnus-art.el |   19 ++++++++++++-------
 2 files changed, 21 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project