From 4c94d8ab77dea518e07526bd19eb7c1c9245adc9 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 5 Oct 2010 21:18:48 +0200 Subject: [PATCH] Shorten ALT texts and allow them to be line-broken. --- lisp/ChangeLog | 3 +++ lisp/shr.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68d2ddf4e..16422aeb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-05 Lars Magne Ingebrigtsen + * 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. diff --git a/lisp/shr.el b/lisp/shr.el index 9318740af..e3ca2fb7e 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -222,7 +222,10 @@ redirects somewhere else." (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 -- 2.25.1