andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when called interactively.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-08 07:35:21 +00:00
parent 389454fb57
commit 090f6ea1ed
2 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,5 +1,9 @@
2010-10-08 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-gravatar.el (gnus-treat-from-gravatar)
(gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when
called interactively.
* gnus-art.el (gnus-mime-view-part-externally)
(gnus-mime-view-part-internally): Make predicate function passed to
gnus-mime-view-part-as-type assume argument is a mime type, not a list

12
lisp/gnus/gnus-gravatar.el
View file

@ -113,7 +113,10 @@ If gravatar is already displayed, remove it."
(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 @@ If gravatars are already displayed, remove them."
(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)