2010-10-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * shr.el (shr-tag-img): Shorten ALT texts and allow them to be
+ line-broken.
+
* mm-decode.el (mm-shr): Require shr.
* gnus-art.el (gnus-blocked-images): Move variable here.
(and shr-blocked-images
(string-match shr-blocked-images url)))
(setq shr-start (point))
- (insert alt))
+ (let ((shr-state 'space))
+ (if (> (length alt) 8)
+ (shr-insert (substring alt 0 8))
+ (shr-insert alt))))
((url-is-cached (browse-url-url-encode-chars url "[&)$ ]"))
(shr-put-image (shr-get-image-data url) (point) alt))
(t