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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 462110d..7b70e99 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-html.el b/lisp/gnus-html.el
index 80eaae6..3948598 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/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