gnus-gravatar-insert: Fix search in case mail-address contains the same string as...

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7b3efcc..e74c6be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-28  Julien Danjou  <julien@danjou.info>
 
+       * 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 187b816..14e2240 100644 (file)
--- 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 "\"")