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

9554f4ac · Lars Ingebrigtsen · Katsumi Yamaoka · 4eff9c1a · 9554f4ac · 9554f4ac
Commit 9554f4ac authored Feb 13, 2012 by Lars Ingebrigtsen Committed by Katsumi Yamaoka Feb 13, 2012
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/gnus/ChangeLog lisp/gnus/ChangeLog +4 -0

lisp/gnus/shr.el lisp/gnus/shr.el +2 -1

No files found.
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
+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

--- 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