aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKatsumi Yamaoka2010-11-07 01:10:01 +0000
committerKatsumi Yamaoka2010-11-07 01:10:01 +0000
commitc9bc6636f96c46a407c9347e56e052d2959ddf71 (patch)
tree73950786af3682703e3ce124917d58c5e9fd22ec
parent26f097bff6dc221b89300a251d36b3cb9fe7ef5b (diff)
downloademacs-c9bc6636f96c46a407c9347e56e052d2959ddf71.tar.gz
emacs-c9bc6636f96c46a407c9347e56e052d2959ddf71.zip
gnus-gravatar.el (gnus-gravatar-transform-address): No need to skip asterisks in From header.
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/gnus-gravatar.el5
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5b2c0bb1e64..b61a516fffd 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
12010-11-07 Katsumi Yamaoka <yamaoka@jpl.org>
2
3 * gnus-gravatar.el (gnus-gravatar-transform-address): No need to skip
4 asterisks in From header.
5
12010-11-06 Lars Magne Ingebrigtsen <larsi@gnus.org> 62010-11-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 7
3 * gnus-ems.el (gnus-put-image): Use a blank text as the insertion 8 * gnus-ems.el (gnus-put-image): Use a blank text as the insertion
diff --git a/lisp/gnus/gnus-gravatar.el b/lisp/gnus/gnus-gravatar.el
index 2444c9e7818..a6ecd43ef7e 100644
--- a/lisp/gnus/gnus-gravatar.el
+++ b/lisp/gnus/gnus-gravatar.el
@@ -63,14 +63,11 @@
63 (gravatar-size gnus-gravatar-size) 63 (gravatar-size gnus-gravatar-size)
64 name) 64 name)
65 (dolist (address addresses) 65 (dolist (address addresses)
66 (when (and (setq name (cdr address))
67 (string-match "\\`\\*+ " name)) ;; (X-)Faces exist.
68 (setcdr address (setq name (substring name (match-end 0)))))
69 (when (or force 66 (when (or force
70 (not (and gnus-gravatar-too-ugly 67 (not (and gnus-gravatar-too-ugly
71 (or (string-match gnus-gravatar-too-ugly 68 (or (string-match gnus-gravatar-too-ugly
72 (car address)) 69 (car address))
73 (and name 70 (and (setq name (cdr address))
74 (string-match gnus-gravatar-too-ugly 71 (string-match gnus-gravatar-too-ugly
75 name)))))) 72 name))))))
76 (ignore-errors 73 (ignore-errors