(gnus-gravatar-insert): Use blank space from the current buffer to avoid breaking...

This makes X-Sent updating work again.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0831d6..3322519 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-gravatar.el (gnus-gravatar-insert): Don't move point around
        in the article buffer.
+       (gnus-gravatar-insert): Use blank space from the current buffer to
+       avoid breaking text properties.  This makes X-Sent updating work again.
 
        * gravatar.el (gravatar-retrieve): Be silent when retrieving.
 

diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el
index 5be838b..ae17d5b 100644 (file)
--- a/lisp/gnus-gravatar.el
+++ b/lisp/gnus-gravatar.el
@@ -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)))))))