gnus-gravatar.el (gnus-gravatar-insert): Allow LWSP in the middle of names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1187d22..4d27ec0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-12-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-gravatar.el (gnus-gravatar-insert): Allow LWSP in the middle of
+       names.
+
        * shr.el (shr-find-fill-point): Don't break line between kinsoku-bol
        characters.
 

diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el
index 046df12..27f65c0 100644 (file)
--- a/lisp/gnus-gravatar.el
+++ b/lisp/gnus-gravatar.el
@@ -87,9 +87,12 @@ Set image category to CATEGORY."
         (let ((real-name (car address))
               (mail-address (cadr address)))
           (when (if real-name
-                   (re-search-forward (concat (regexp-quote real-name) "\\|"
-                                              (regexp-quote mail-address))
-                                      nil t)
+                   (re-search-forward
+                    (concat (gnus-replace-in-string
+                             (regexp-quote real-name) "[\t ]+" "[\t\n ]+")
+                            "\\|"
+                            (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