[gnus git] branch master updated: n0-17-299-g0c9f9c8 =2= * mm-decode.el (mm-inline-media-tests): Support imagemagick images. ; White space fix.

       via  0c9f9c874a6df3e9e444c628704bb0f1b7bab735 (commit)
       via  b5dbded7bc73434feadd68413b0823f40d85c2f4 (commit)
      from  bd6155afa395f1c8879128367ea0d7eb8c7d110c (commit)


- Log -----------------------------------------------------------------
commit 0c9f9c874a6df3e9e444c628704bb0f1b7bab735
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Sep 17 07:04:51 2011 +0200

    * mm-decode.el (mm-inline-media-tests): Support imagemagick images.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f89d42..2e1fc59 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-17  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* mm-decode.el (mm-inline-media-tests): Support imagemagick images.
+
 2011-09-15  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-read-group-1): Bump the "Retrieving"
diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index c2b5cec..6e56213 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -265,6 +265,20 @@ before the external MIME handler is invoked."
     ("multipart/alternative" ignore identity)
     ("multipart/mixed" ignore identity)
     ("multipart/related" ignore identity)
+    ("image/*"
+     mm-inline-image
+     (lambda (handle)
+       (and (mm-valid-image-format-p 'imagemagick)
+	    (mm-with-unibyte-buffer
+	      (mm-insert-part handle)
+	      (let ((image
+		     (ignore-errors
+		       (if (fboundp 'create-image)
+			   (create-image (buffer-string) 'imagemagick 'data-p)
+			 (mm-create-image-xemacs type)))))
+		(when image
+		  (setcar (cdr handle) (list "image/imagemagick"))
+		  (mm-image-fit-p handle)))))))
     ;; Disable audio and image
     ("audio/.*" ignore ignore)
     ("image/.*" ignore ignore)

commit b5dbded7bc73434feadd68413b0823f40d85c2f4
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Sep 17 06:49:49 2011 +0200

    White space fix.

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 692175d..c2b5cec 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -195,7 +195,7 @@ before the external MIME handler is invoked."
     ("image/tiff"
      mm-inline-image
      (lambda (handle)
-       (mm-valid-and-fit-image-p 'tiff handle)) )
+       (mm-valid-and-fit-image-p 'tiff handle)))
     ("image/xbm"
      mm-inline-image
      (lambda (handle)

-----------------------------------------------------------------------
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    |    4 ++++
 lisp/mm-decode.el |   16 +++++++++++++++-
 2 files changed, 19 insertions(+), 1 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