andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

shr.el (shr-rescale-image): Allow viewing large images.

Browse source
This commit is contained in:
Lars Ingebrigtsen 2012-02-13 03:33:11 +00:00 • committed by Katsumi Yamaoka
parent 4eff9c1abb
commit 9554f4ac2f
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2012-02-13 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-rescale-image): Allow viewing large images.
2012-02-12 Lars Ingebrigtsen <larsi@gnus.org>
* nnml.el (nnml-request-compact-group): Delete the marks file after

3
lisp/gnus/shr.el
View file

@ -557,7 +557,8 @@ the URL of the image to the kill buffer instead."
(insert alt)))
(defun shr-rescale-image (data)
(let ((image (create-image data nil t :ascent 100)))
(let* ((max-image-size 0)
(image (create-image data nil t :ascent 100)))
(if (or (not (fboundp 'imagemagick-types))
(not (get-buffer-window (current-buffer))))
image