(auth-source-netrc-parse): Accept a number as the port spec, too.

[gnus] / lisp / gnus-gravatar.el

diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el
index 5be838b..7208889 100644 (file)
--- a/lisp/gnus-gravatar.el
+++ b/lisp/gnus-gravatar.el
@@ -1,6 +1,6 @@
 ;;; gnus-gravatar.el --- Gnus Gravatar support
 
-;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2011 Free Software Foundation, Inc.
 
 ;; Author: Julien Danjou <julien@danjou.info>
 ;; Keywords: news
@@ -113,7 +113,7 @@ Set image category to CATEGORY."
                  (let ((point (point)))
                    (unless (featurep 'xemacs)
                      (setq gravatar (append gravatar gnus-gravatar-properties)))
-                   (gnus-put-image gravatar nil category)
+                   (gnus-put-image gravatar (buffer-substring (point) (1+ point)) category)
                    (put-text-property point (point) 'gnus-gravatar address)
                    (gnus-add-wash-type category)
                    (gnus-add-image category gravatar)))))))