From 3987b3502ec4cb38c93abd29a72051344089343d Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Tue, 28 Sep 2010 11:54:46 +0200 Subject: [PATCH] gnus-gravatar-insert: Fix search in case mail-address contains the same string as real-name Signed-off-by: Julien Danjou --- lisp/ChangeLog | 3 +++ lisp/gnus-gravatar.el | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7b3efccc2..e74c6be51 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-28 Julien Danjou + * gnus-gravatar.el (gnus-gravatar-insert): Fix search in case + mail-address contains the same string as real-name. + * gnus-ems.el (gnus-put-image): Revert Lars, change and insert non-blank in header, otherwise it'll get stripped. diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el index 187b81610..14e224051 100644 --- a/lisp/gnus-gravatar.el +++ b/lisp/gnus-gravatar.el @@ -68,12 +68,13 @@ Set image category to CATEGORY." (gnus-with-article-headers (gnus-article-goto-header header) (mail-header-narrow-to-field) - (goto-char (point-max)) (let ((real-name (cdr address)) (mail-address (car address))) (when (if real-name ; have a realname, go for it! - (search-backward real-name) - (search-backward address)) + (and (search-forward real-name nil t) + (search-backward real-name nil t)) + (and (search-forward mail-address nil t) + (search-backward mail-address nil t))) (goto-char (1- (point))) ;; If we're on the " quoting the name, go backward (when (looking-at "\"") -- 2.34.1