From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Thu, 2 Sep 2010 14:10:03 +0000 (+0000)
Subject: gnus-html-rescale-image: Fix up typo in rescaling.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e23878e5a0c25cff6868db89f852ee48d327824;p=emacs.git

gnus-html-rescale-image: Fix up typo in rescaling.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e2d34f4c739..18c5d55afe0 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-html.el (gnus-html-rescale-image): Fix up typo in rescaling.
+
 2010-09-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-html.el (gnus-article-html): Make work buffer multibyte for
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 3948598d561..a503859aa21 100644
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -280,12 +280,12 @@ fit these criteria."
       (when (> height window-height)
 	(setq image (or (create-image file 'imagemagick nil
 				      :height window-height)
-			image))
-	(when (> (car (image-size image t)) window-width)
-	  (setq image (or
-		       (create-image file 'imagemagick nil
-				     :width window-width)
-		       image))))
+			image)))
+      (when (> (car (image-size image t)) window-width)
+	(setq image (or
+		     (create-image file 'imagemagick nil
+				   :width window-width)
+		     image)))
       image)))
 
 (defun gnus-html-prune-cache ()