diff options
| author | Katsumi Yamaoka | 2010-11-07 01:10:01 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-11-07 01:10:01 +0000 |
| commit | c9bc6636f96c46a407c9347e56e052d2959ddf71 (patch) | |
| tree | 73950786af3682703e3ce124917d58c5e9fd22ec /lisp | |
| parent | 26f097bff6dc221b89300a251d36b3cb9fe7ef5b (diff) | |
| download | emacs-c9bc6636f96c46a407c9347e56e052d2959ddf71.tar.gz emacs-c9bc6636f96c46a407c9347e56e052d2959ddf71.zip | |
gnus-gravatar.el (gnus-gravatar-transform-address): No need to skip asterisks in From header.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-gravatar.el | 5 |
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 @@ | |||
| 1 | 2010-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 | |||
| 1 | 2010-11-06 Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | 2010-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 |