Mercurial > emacs
diff lisp/gnus/gnus-gravatar.el @ 110818:605f59122ae2
gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when called interactively.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 08 Oct 2010 07:35:21 +0000 |
parents | 6bcb1cd1309b |
children | d98a67277730 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-gravatar.el Fri Oct 08 01:02:56 2010 -0400 +++ b/lisp/gnus/gnus-gravatar.el Fri Oct 08 07:35:21 2010 +0000 @@ -113,7 +113,10 @@ (gnus-with-article-buffer (if (memq 'from-gravatar gnus-article-wash-types) (gnus-delete-images 'from-gravatar) - (gnus-gravatar-transform-address "from" 'from-gravatar)))) + (let ((gnus-gravatar-too-ugly + (unless buffer-read-only ;; When type `W D g' + gnus-gravatar-too-ugly))) + (gnus-gravatar-transform-address "from" 'from-gravatar))))) ;;;###autoload (defun gnus-treat-mail-gravatar () @@ -123,8 +126,11 @@ (gnus-with-article-buffer (if (memq 'mail-gravatar gnus-article-wash-types) (gnus-delete-images 'mail-gravatar) - (gnus-gravatar-transform-address "cc" 'mail-gravatar) - (gnus-gravatar-transform-address "to" 'mail-gravatar)))) + (let ((gnus-gravatar-too-ugly + (unless buffer-read-only ;; When type `W D h' + gnus-gravatar-too-ugly))) + (gnus-gravatar-transform-address "cc" 'mail-gravatar) + (gnus-gravatar-transform-address "to" 'mail-gravatar))))) (provide 'gnus-gravatar)