From d52129a725270f24ef5c9113de123e7cc8df115f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 13 Feb 2012 03:33:11 +0000 Subject: [PATCH] shr.el (shr-rescale-image): Allow viewing large images. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/shr.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5208f74ff76..64d0d450bc9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2012-02-13 Lars Ingebrigtsen + + * shr.el (shr-rescale-image): Allow viewing large images. + 2012-02-12 Lars Ingebrigtsen * nnml.el (nnml-request-compact-group): Delete the marks file after diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index a8bbc77a4b1..a2baa85aeea 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -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 -- 2.11.4.GIT