mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

Rework how Gnus is supposed to be able to display all the images in HTML.

Browse source 
shr.el (shr-tag-img): Put a displayer in the text property.
gnus-util.el (gnus-find-text-property-region): New utility function.
gnus-html.el (gnus-html-display-image): Make the alt optional.
gnus-html.el (gnus-html-show-images): Remove.
gnus-art.el (gnus-article-show-images): New, more general function.
gnus-html.el, shr.el: Use image-url instead of gnus-image-url to unify the image url text properties.
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-15 23:45:55 +00:00 • committed by Katsumi Yamaoka
parent 90eef04725
commit 8b6f657390
7 changed files with 56 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/gnus/gnus-util.el
View file

@ -277,6 +277,21 @@ Uses `gnus-extract-address-components'."
(setq start (when end
(next-single-property-change start prop))))))
(defun gnus-find-text-property-region (start end prop)
"Return a list of text property regions that has property PROP."
(let (regions value)
(unless (get-text-property start prop)
(setq start (next-single-property-change start prop)))
(while start
(setq value (get-text-property start prop)
end (text-property-not-all start (point-max) prop value))
(if (not end)
(setq start nil)
(when value
(push (list start end value) regions))
(setq start (next-single-property-change start prop))))
(nreverse regions)))
(defun gnus-newsgroup-directory-form (newsgroup)
"Make hierarchical directory name from NEWSGROUP name."
(let* ((newsgroup (gnus-newsgroup-savable-name newsgroup))