diff options
author | Julien Danjou <julien@danjou.info> | 2010-09-25 12:49:02 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-25 12:49:02 +0000 |
commit | e70153eb2fec2f9af9089feb98739b8f9385250d (patch) | |
tree | 33a1e1f2520201549ec1fb061b411c6d0a8de3d8 /lisp/gnus/gnus-gravatar.el | |
parent | f877c546db4d53d4076715323bd151ab6c3347a5 (diff) | |
download | emacs-e70153eb2fec2f9af9089feb98739b8f9385250d.tar.gz |
Merge changes made in Gnus.tranck
gnus-art.el: Remove useless gnus-treat-translate.
gnus-gravatar.el (gnus-gravatar-transform-address): Use gnus-gravatar-size.
gnus.el: Remove useless gnus-local-domain.
mml-smime.el: Remove useless mml-smime-verbose.
mml2015.el: Remove useless mml2015-verbose.
Diffstat (limited to 'lisp/gnus/gnus-gravatar.el')
-rw-r--r-- | lisp/gnus/gnus-gravatar.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-gravatar.el b/lisp/gnus/gnus-gravatar.el index 6b97a54845b..54679f43ff3 100644 --- a/lisp/gnus/gnus-gravatar.el +++ b/lisp/gnus/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. |