[Mew-dist 04449] PNG support for XEmacs

[Yoshikazu Ooe]

おおえです。

XEmacsでPNG(Portable Network Graphics)を表示するためのパッチです。

-------------- next part --------------
diff -urN mew-1.93b28.org/mew-mime.el mew-1.93b28/mew-mime.el
--- mew-1.93b28.org/mew-mime.el	Mon Apr 20 18:25:07 1998
+++ mew-1.93b28/mew-mime.el	Mon Apr 20 22:44:08 1998
@@ -113,6 +113,9 @@
 (defun mew-mime-image/xpm (begin end &optional params)
   (mew-mime-image begin end 'xpm))
 
+(defun mew-mime-image/png (begin end &optional params)
+  (mew-mime-image begin end 'png))
+
 (defun mew-mime-text/plain (begin end &optional params)
   (if (> end begin)
       (save-excursion
diff -urN mew-1.93b28.org/mew-unix.el mew-1.93b28/mew-unix.el
--- mew-1.93b28.org/mew-unix.el	Mon Apr 20 15:36:12 1998
+++ mew-1.93b28/mew-unix.el	Mon Apr 20 22:44:40 1998
@@ -30,6 +30,9 @@
 (defvar mew-prog-xpm (if (and mew-xemacs-p (featurep 'xpm) window-system)
 			 '(mew-mime-image/xpm () nil)
 		       '("xv" ("-geometry" "+0+0") t)))
+(defvar mew-prog-png (if (and mew-xemacs-p (featurep 'png) window-system)
+			 '(mew-mime-image/png () nil)
+		       '("xv" ("-geometry" "+0+0") t)))
 (defvar mew-prog-bmp '("xv" ("-geometry" "+0+0") t))
 (defvar mew-prog-image '("xv" ("-geometry" "+0+0") t))
 (defvar mew-prog-mpeg '("mpeg_play" () t))
diff -urN mew-1.93b28.org/mew-vars.el mew-1.93b28/mew-vars.el
--- mew-1.93b28.org/mew-vars.el	Mon Apr 20 20:12:48 1998
+++ mew-1.93b28/mew-vars.el	Mon Apr 20 22:46:16 1998
@@ -251,7 +251,7 @@
 (defvar mew-mime-content-type-binary-list
   '("Application/Octet-Stream"
     "Image/Jpeg" "Image/Gif" "Image/x-xwd" "Image/x-xbm" "Image/x-xpm" "Image/x-bmp"
-    "Audio/Basic" "Video/Mpeg"
+    "Image/Png" "Audio/Basic" "Video/Mpeg"
     )
   "Content-Type: list to save as binary file in mew-summary-save on Mule"
   )
@@ -983,6 +983,7 @@
     ("audio/basic" "\\.au$"    mew-b64 mew-prog-audio mew-icon-audio)
     ("image/gif"   "\\.gif$"   mew-b64 mew-prog-gif   mew-icon-image)
     ("image/jpeg"  "\\.jpe?g$" mew-b64 mew-prog-jpeg  mew-icon-image)
+    ("image/png"   "\\.png$"   mew-b64 mew-prog-png   mew-icon-image)
     ("image/x-xwd" "\\.xwd$"   mew-b64 mew-prog-xwd   mew-icon-image)
     ("image/x-xbm" "\\.xbm$"   mew-b64 mew-prog-xbm   mew-icon-image)
     ("image/x-xpm" "\\.xpm$"   mew-b64 mew-prog-xpm   mew-icon-image)
diff -urN mew-1.93b28.org/mew-xemacs.el mew-1.93b28/mew-xemacs.el
--- mew-1.93b28.org/mew-xemacs.el	Mon Apr 20 18:25:13 1998
+++ mew-1.93b28/mew-xemacs.el	Mon Apr 20 22:45:20 1998
@@ -328,6 +328,8 @@
 				     (featurep 'xpm)) 'xbm)
 			       ((and (string-match "xpm" ct)
 				     (featurep 'xpm)) 'xpm)
+			       ((and (string-match "png" ct)
+				     (featurep 'png)) 'png)
 			       (t nil)))
 		 glyph) 
 	    (if format