# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288868425 0
# Node ID 969fb8574065d39e501614f0f14b135d9c9103ff
# Parent  72d2a83a2641226cc9f41acb24216fe85f627c7b
shr.el (shr-tag-img): Use string-width and truncate-string-to-width to measure the length and truncate alt text.

diff -r 72d2a83a2641 -r 969fb8574065 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 03 19:21:51 2010 -0400
+++ b/lisp/gnus/ChangeLog	Thu Nov 04 11:00:25 2010 +0000
@@ -1,3 +1,8 @@
+2010-11-04  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shr.el (shr-tag-img): Use string-width and truncate-string-to-width
+	to measure the length and truncate alt text.
+
 2010-11-03  Glenn Morris  <rgm@gnu.org>
 
 	* nndiary.el (nndiary-generate-nov-databases-1)
diff -r 72d2a83a2641 -r 969fb8574065 lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Wed Nov 03 19:21:51 2010 -0400
+++ b/lisp/gnus/shr.el	Thu Nov 04 11:00:25 2010 +0000
@@ -551,8 +551,8 @@
 		   (string-match shr-blocked-images url)))
 	  (setq shr-start (point))
 	  (let ((shr-state 'space))
-	    (if (> (length alt) 8)
-		(shr-insert (substring alt 0 8))
+	    (if (> (string-width alt) 8)
+		(shr-insert (truncate-string-to-width alt 8))
 	      (shr-insert alt))))
 	 ((url-is-cached (shr-encode-url url))
 	  (shr-put-image (shr-get-image-data url) alt))