; Merge from origin/emacs-25

[gnu-emacs] / lisp / gnus / gnus-gravatar.el

diff --git a/lisp/gnus/gnus-gravatar.el b/lisp/gnus/gnus-gravatar.el
index deb6e4bc4c9f3a3956526e3786b28da8d81ff282..89be8640c532b1e908754739793f9a5cbd60c5e0 100644 (file)
--- a/lisp/gnus/gnus-gravatar.el
+++ b/lisp/gnus/gnus-gravatar.el
@@ -41,7 +41,7 @@ If nil, default to `gravatar-size'."
 
 (defcustom gnus-gravatar-properties '(:ascent center :relief 1)
   "List of image properties applied to Gravatar images."
-  :type 'sexp
+  :type 'plist
   :version "24.1"
   :group 'gnus-gravatar)
 
@@ -94,8 +94,9 @@ Set image category to CATEGORY."
                  (mail-address (cadr address)))
              (when (if real-name
                        (re-search-forward
-                        (concat (gnus-replace-in-string
-                                 (regexp-quote real-name) "[\t ]+" "[\t\n ]+")
+                        (concat (replace-regexp-in-string
+                                 "[\t ]+" "[\t\n ]+"
+                                 (regexp-quote real-name))
                                 "\\|"
                                 (regexp-quote mail-address))
                         nil t)
@@ -110,8 +111,7 @@ Set image category to CATEGORY."
                ;; another mail with the same someaddress.
                (unless (memq 'gnus-gravatar (text-properties-at (point)))
                  (let ((point (point)))
-                   (unless (featurep 'xemacs)
-                     (setq gravatar (append gravatar gnus-gravatar-properties)))
+                   (setq gravatar (append gravatar gnus-gravatar-properties))
                    (gnus-put-image gravatar (buffer-substring (point) (1+ point)) category)
                    (put-text-property point (point) 'gnus-gravatar address)
                    (gnus-add-wash-type category)