gnus-gravatar-transform-address: Use gnus-gravatar-size.

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c4d7d5..543f374 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-25  Julien Danjou  <julien@danjou.info>
 
+       * gnus-gravatar.el (gnus-gravatar-transform-address): Use
+       gnus-gravatar-size.
+
        * gnus-art.el: Remove useless gnus-treat-translate.
 
 2010-09-24  Julien Danjou  <julien@danjou.info>

diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el
index 6b97a54..54679f4 100644 (file)
--- a/lisp/gnus-gravatar.el
+++ b/lisp/gnus-gravatar.el
@@ -54,11 +54,12 @@ unpressed button."
                (mail-encode-encoded-word-string
                 (or (mail-fetch-field header) "")))
              (mail-fetch-field header)))))
-      (dolist (address addresses)
-        (gravatar-retrieve
-         (car address)
-         'gnus-gravatar-insert
-         (list header (car address) category))))))
+      (let ((gravatar-size gnus-gravatar-size))
+        (dolist (address addresses)
+          (gravatar-retrieve
+           (car address)
+           'gnus-gravatar-insert
+           (list header (car address) category)))))))
 
 (defun gnus-gravatar-insert (gravatar header address category)
   "Insert GRAVATAR for ADDRESS in HEADER in current article buffer.