[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101846: gnus-gravatar.el (gnus-treat
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101846: gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when called interactively. |
Date: |
Fri, 08 Oct 2010 07:35:21 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101846
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-10-08 07:35:21 +0000
message:
gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind
gnus-gravatar-too-ugly to nil when called interactively.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-gravatar.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-08 02:12:56 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-08 07:35:21 +0000
@@ -1,5 +1,9 @@
2010-10-08 Katsumi Yamaoka <address@hidden>
+ * 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
=== modified file 'lisp/gnus/gnus-gravatar.el'
--- a/lisp/gnus/gnus-gravatar.el 2010-10-07 12:31:39 +0000
+++ b/lisp/gnus/gnus-gravatar.el 2010-10-08 07:35:21 +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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101846: gnus-gravatar.el (gnus-treat-from-gravatar, gnus-treat-mail-gravatar): Bind gnus-gravatar-too-ugly to nil when called interactively.,
Katsumi Yamaoka <=