Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-image.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 43dd3413c7c7
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
5 5
6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Dan Rich <drich@morpheus.corp.sgi.com> 7 ;; Dan Rich <drich@morpheus.corp.sgi.com>
8 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 8 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
9 ;; Created: 1995/12/15 9 ;; Created: 1995/12/15
10 ;; Version: $Id: tm-image.el,v 1.7 1997/06/06 00:57:43 steve Exp $ 10 ;; Version: $Id: tm-image.el,v 1.8 1997/07/13 22:41:52 steve Exp $
11 11
12 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news 12 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
13 13
14 ;; This file is part of XEmacs. 14 ;; This file is part of XEmacs.
15 15
153 (mime-decode-region beg end encoding) 153 (mime-decode-region beg end encoding)
154 (let* ((minor (assoc-value ctype mime-viewer/image-converter-alist)) 154 (let* ((minor (assoc-value ctype mime-viewer/image-converter-alist))
155 (gl (image-normalize minor (buffer-string))) 155 (gl (image-normalize minor (buffer-string)))
156 e) 156 e)
157 (delete-region (point-min)(point-max)) 157 (delete-region (point-min)(point-max))
158 (cond ((image-invalid-glyph-p gl) 158 (cond ;; ((image-invalid-glyph-p gl)
159 (setq gl nil) 159 ;; (setq gl nil)
160 (message "Invalid glyph!") 160 ;; (message "Invalid glyph!")
161 ) 161 ;; )
162 ((eq (aref gl 0) 'xbm) 162 ((eq (aref gl 0) 'xbm)
163 (let ((xbm-file 163 (let ((xbm-file
164 (make-temp-name (expand-file-name "tm" mime/tmp-dir)))) 164 (make-temp-name (expand-file-name "tm" mime/tmp-dir))))
165 (insert (aref gl 2)) 165 (insert (aref gl 2))
166 (write-region (point-min)(point-max) xbm-file) 166 (write-region (point-min)(point-max) xbm-file)