aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/gnus')
-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