# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290215897 0
# Node ID d94e03b64838fad61e7885742a5abe3d5f1c4e22
# Parent  b823e94ac8147196a8e0cdf0f593b7aac880c026
gnus-gravatar.el (gnus-gravatar-transform-address): Decode name again.
 (gnus-gravatar-insert): Put avatar always in the beginning of the field.

diff -r b823e94ac814 -r d94e03b64838 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Nov 19 18:34:22 2010 +0200
+++ b/lisp/gnus/ChangeLog	Sat Nov 20 01:18:17 2010 +0000
@@ -1,3 +1,8 @@
+2010-11-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-gravatar.el (gnus-gravatar-transform-address): Decode name again.
+	(gnus-gravatar-insert): Put avatar always in the beginning of the field.
+
 2010-11-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-mime-display-single)
diff -r b823e94ac814 -r d94e03b64838 lisp/gnus/gnus-gravatar.el
--- a/lisp/gnus/gnus-gravatar.el	Fri Nov 19 18:34:22 2010 +0200
+++ b/lisp/gnus/gnus-gravatar.el	Sat Nov 20 01:18:17 2010 +0000
@@ -63,11 +63,13 @@
 	  (gravatar-size gnus-gravatar-size)
 	  name)
       (dolist (address addresses)
+	(when (setq name (cdr address))
+	  (setcdr address (setq name (mail-decode-encoded-word-string name))))
 	(when (or force
 		  (not (and gnus-gravatar-too-ugly
 			    (or (string-match gnus-gravatar-too-ugly
 					      (car address))
-				(and (setq name (cdr address))
+				(and name
 				     (string-match gnus-gravatar-too-ugly
 						   name))))))
 	  (ignore-errors
@@ -87,12 +89,12 @@
         (mail-header-narrow-to-field)
         (let ((real-name (cdr address))
               (mail-address (car address)))
-          (when (if real-name             ; have a realname, go for it!
-                    (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)))
+          (when (if real-name
+		    (re-search-forward (concat (regexp-quote real-name) "\\|"
+					       (regexp-quote mail-address))
+				       nil t)
+		  (search-forward mail-address nil t))
+	    (goto-char (1- (match-beginning 0)))
             ;; If we're on the " quoting the name, go backward
             (when (looking-at "[\"<]")
               (goto-char (1- (point))))