[Emacs-diffs] /srv/bzr/emacs/trunk r104217: gnus-html.el (gnus-html-put-image): Register a displayer.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104217
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-13 05:35:56 +0000
message:
  gnus-html.el (gnus-html-put-image): Register a displayer.
  shr.el (shr-image-displayer): Don't remove text props from alt text.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-13 04:12:37 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-13 05:35:56 +0000
@@ -1,3 +1,9 @@
+2011-05-13  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-html.el (gnus-html-put-image): Register a displayer.
+
+       * shr.el (shr-image-displayer): Don't remove text props from alt text.
+
 2011-05-13  Teodor Zlatanov  <address@hidden>
 
        * registry.el (prune-factor): New initialization parameter defaulting

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2011-05-10 03:14:44 +0000
+++ b/lisp/gnus/gnus-html.el    2011-05-13 05:35:56 +0000
@@ -482,8 +482,14 @@
                     (gnus-put-text-property start (point)
                                            'gnus-alt-text alt-text)
                     (when url
-                      (gnus-put-text-property start (point)
-                                             'image-url url))
+                     (gnus-add-text-properties
+                      start (point)
+                      `(image-url
+                        ,url
+                        image-displayer
+                        (lambda (url start end)
+                          (gnus-html-display-image ,url ,start ,(point)
+                                                   ,alt-text)))))
                     (gnus-add-image 'external image)
                     t)
                 ;; Bad image, try to show something else

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2011-05-10 13:57:12 +0000
+++ b/lisp/gnus/shr.el  2011-05-13 05:35:56 +0000
@@ -582,7 +582,7 @@
                 (when image
                   (goto-char start)
                   (funcall shr-put-image-function
-                           image (buffer-substring-no-properties start end))
+                           image (buffer-substring start end))
                   (delete-region (point) end))))
         (url-retrieve url 'shr-image-fetched
                       (list (current-buffer) start end)