emacs-diffs
[Top][All Lists]
Advanced

[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)
 


reply via email to

[Prev in Thread] Current Thread [Next in Thread]