Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

shr.el (shr-image-displayer): Work for images lined side by side.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-12-09 06:40:56 +00:00
parent 28d5de7243
commit e2d0ba98bf
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2010-12-09 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-image-displayer): Work for images lined side by side.
2010-12-08 Robert Pluim <rpluim@gmail.com>
* gnus-demon.el (gnus-demon-init): Call run-with-timer with an integer

7
lisp/gnus/shr.el
View file

@ -524,7 +524,7 @@ Return a string with image data."
"Return a function to display an image.
CONTENT-FUNCTION is a function to retrieve an image for a cid url that
is an argument. The function to be returned takes three arguments URL,
START, and END."
START, and END. Note that START and END should be merkers."
`(lambda (url start end)
(when url
(if (string-match "\\`cid:" url)
@ -534,9 +534,8 @@ START, and END."
(when image
(goto-char start)
(shr-put-image image
(prog1
(buffer-substring-no-properties start end)
(delete-region start end))))))
(buffer-substring-no-properties start end))
(delete-region (point) end))))
(url-retrieve url 'shr-image-fetched
(list (current-buffer) start end)
t)))))