gnus-html-put-image, gnus-html-rescale-image: Pass `file' argument.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4acb6a8a621c5fb2ef3d200cb62841122f07d05b..e2d34f4c739cefe941e63b62cb2220387cab0c85 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-html.el (gnus-article-html): Make work buffer multibyte for
        decoded contents.
+       (gnus-html-put-image, gnus-html-rescale-image): Pass `file' argument.
 
 2010-09-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 80eaae680520948497dd009dfc053da9f803f034..3948598d56176f8a7ed652c6db9cc1bd1850562a 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -255,7 +255,7 @@ fit these criteria."
                           (= (car (image-size image t)) 30)
                           (= (cdr (image-size image t)) 30))))
            (progn
-             (gnus-put-image (gnus-html-rescale-image image)
+             (gnus-put-image (gnus-html-rescale-image image file)
                              (gnus-string-or string "*"))
              t)
          (insert string)
@@ -265,7 +265,7 @@ fit these criteria."
                            (gnus-string-or string "*")))
          nil)))))
 
-(defun gnus-html-rescale-image (image)
+(defun gnus-html-rescale-image (image file)
   (if (or (not (fboundp 'imagemagick-types))
          (not (get-buffer-window (current-buffer))))
       image