diff options
| author | Julien Danjou | 2010-12-23 22:24:24 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-12-23 22:24:24 +0000 |
| commit | ade9369c1751ae0994914db5c446d0d0ba5261e8 (patch) | |
| tree | 1e23ec1dda654afbfd1d7d1afac3bf6b856299b1 | |
| parent | 17870c01f609101bc059ff0c38043d3734a35e72 (diff) | |
| download | emacs-ade9369c1751ae0994914db5c446d0d0ba5261e8.tar.gz emacs-ade9369c1751ae0994914db5c446d0d0ba5261e8.zip | |
gnus-gravatar.el (gnus-gravatar-transform-address): Set `mail-extr-ignore-realname-equals-mailbox-name' to nil when extracting the addresses, otherwise we might misplaced the gravatar.
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/gnus-gravatar.el | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index cb70485616c..11e8cada0a1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2010-12-23 Julien Danjou <julien@danjou.info> | ||
| 2 | |||
| 3 | * gnus-gravatar.el (gnus-gravatar-transform-address): Set | ||
| 4 | `mail-extr-ignore-realname-equals-mailbox-name' to nil when extracting | ||
| 5 | the addresses, otherwise we might misplaced the gravatar. | ||
| 6 | |||
| 1 | 2010-12-21 Daiki Ueno <ueno@unixuser.org> | 7 | 2010-12-21 Daiki Ueno <ueno@unixuser.org> |
| 2 | 8 | ||
| 3 | * mml1991.el (pgg-sign-region, pgg-encrypt-region): | 9 | * mml1991.el (pgg-sign-region, pgg-encrypt-region): |
diff --git a/lisp/gnus/gnus-gravatar.el b/lisp/gnus/gnus-gravatar.el index 2b1143b3b7b..e46460e7260 100644 --- a/lisp/gnus/gnus-gravatar.el +++ b/lisp/gnus/gnus-gravatar.el | |||
| @@ -54,6 +54,7 @@ If nil, default to `gravatar-size'." | |||
| 54 | (defun gnus-gravatar-transform-address (header category &optional force) | 54 | (defun gnus-gravatar-transform-address (header category &optional force) |
| 55 | (gnus-with-article-headers | 55 | (gnus-with-article-headers |
| 56 | (let* ((mail-extr-disable-voodoo t) | 56 | (let* ((mail-extr-disable-voodoo t) |
| 57 | (mail-extr-ignore-realname-equals-mailbox-name nil) | ||
| 57 | (addresses (mail-extract-address-components | 58 | (addresses (mail-extract-address-components |
| 58 | (or (mail-fetch-field header) "") t)) | 59 | (or (mail-fetch-field header) "") t)) |
| 59 | (gravatar-size (or gnus-gravatar-size gravatar-size)) | 60 | (gravatar-size (or gnus-gravatar-size gravatar-size)) |