comparison lisp/gnus/mm-decode.el @ 91204:53108e6cea98

Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-294

91203:db40129142b2

			  (done (format "Displaying %s...done" command))
			  ;; In particular, the timer object (which is
			  ;; a vector in Emacs but is a list in XEmacs)
			  ;; requires that it is lexically scoped.
			  (timer (run-at-time 2.0 nil 'ignore)))
		       (if (boundp 'itimer-list)
			   (lambda (process state)
			     (when (eq 'exit (process-status process))
			       (if (memq timer itimer-list)
				   (set-itimer-function timer fn)
				 (funcall fn))

					'data-p)
			(mm-create-image-xemacs type))))
	    (mm-handle-set-cache handle spec))))))

(defun mm-create-image-xemacs (type)
  (cond
   ((equal type "xbm")
    ;; xbm images require special handling, since
    ;; the only way to create glyphs from these
    ;; (without a ton of work) is to write them
    ;; out to a file, and then create a file
    ;; specifier.
    (let ((file (mm-make-temp-file
		 (expand-file-name "emm" mm-tmp-directory)
		 nil ".xbm")))
      (unwind-protect
	  (progn
	    (write-region (point-min) (point-max) file)
	    (make-glyph (list (cons 'x file))))
	(ignore-errors
	  (delete-file file)))))
   (t
    (make-glyph
     (vector
      (or (mm-image-type-from-buffer)
	  (intern type))
      :data (buffer-string))))))

(defun mm-image-fit-p (handle)
  "Say whether the image in HANDLE will fit the current window."
  (let ((image (mm-get-image handle)))
    (or (not image)
	(if (fboundp 'glyph-width)
	    ;; XEmacs' glyphs can actually tell us about their width, so
	    ;; lets be nice and smart about them.
	    (or mm-inline-large-images
		(and (<= (glyph-width image) (window-pixel-width))
		     (<= (glyph-height image) (window-pixel-height))))

91204:53108e6cea98

			  (done (format "Displaying %s...done" command))
			  ;; In particular, the timer object (which is
			  ;; a vector in Emacs but is a list in XEmacs)
			  ;; requires that it is lexically scoped.
			  (timer (run-at-time 2.0 nil 'ignore)))
		       (if (featurep 'xemacs)
			   (lambda (process state)
			     (when (eq 'exit (process-status process))
			       (if (memq timer itimer-list)
				   (set-itimer-function timer fn)
				 (funcall fn))

					'data-p)
			(mm-create-image-xemacs type))))
	    (mm-handle-set-cache handle spec))))))

(defun mm-create-image-xemacs (type)
  (when (featurep 'xemacs)
    (cond
     ((equal type "xbm")
      ;; xbm images require special handling, since
      ;; the only way to create glyphs from these
      ;; (without a ton of work) is to write them
      ;; out to a file, and then create a file
      ;; specifier.
      (let ((file (mm-make-temp-file
		   (expand-file-name "emm" mm-tmp-directory)
		   nil ".xbm")))
	(unwind-protect
	    (progn
	      (write-region (point-min) (point-max) file)
	      (make-glyph (list (cons 'x file))))
	  (ignore-errors
	    (delete-file file)))))
     (t
      (make-glyph
       (vector
	(or (mm-image-type-from-buffer)
	    (intern type))
	:data (buffer-string)))))))

(defun mm-image-fit-p (handle)
  "Say whether the image in HANDLE will fit the current window."
  (let ((image (mm-get-image handle)))
    (or (not image)
	(if (featurep 'xemacs)
	    ;; XEmacs' glyphs can actually tell us about their width, so
	    ;; lets be nice and smart about them.
	    (or mm-inline-large-images
		(and (<= (glyph-width image) (window-pixel-width))
		     (<= (glyph-height image) (window-pixel-height))))