Mercurial > emacs
changeset 111432:8de1e4554e5e
gnus-gravatar.el (gnus-gravatar-transform-address): No need to skip asterisks in From header.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 07 Nov 2010 01:10:01 +0000 |
| parents | e4200648c86f |
| children | 05dc9dca8729 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-gravatar.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Nov 06 18:06:37 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Nov 07 01:10:01 2010 +0000 @@ -1,3 +1,8 @@ +2010-11-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-gravatar.el (gnus-gravatar-transform-address): No need to skip + asterisks in From header. + 2010-11-06 Lars Magne Ingebrigtsen <larsi@gnus.org> * gnus-ems.el (gnus-put-image): Use a blank text as the insertion
--- a/lisp/gnus/gnus-gravatar.el Sat Nov 06 18:06:37 2010 -0700 +++ b/lisp/gnus/gnus-gravatar.el Sun Nov 07 01:10:01 2010 +0000 @@ -63,14 +63,11 @@ (gravatar-size gnus-gravatar-size) name) (dolist (address addresses) - (when (and (setq name (cdr address)) - (string-match "\\`\\*+ " name)) ;; (X-)Faces exist. - (setcdr address (setq name (substring name (match-end 0))))) (when (or force (not (and gnus-gravatar-too-ugly (or (string-match gnus-gravatar-too-ugly (car address)) - (and name + (and (setq name (cdr address)) (string-match gnus-gravatar-too-ugly name)))))) (ignore-errors