Commit 090f6ea1 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind...

gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when called interactively.
parent 389454fb
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment