(shr-fold-text): Inhibit state from being altered.

lisp/ChangeLog

@@ -3,6 +3,7 @@
 	* net/shr.el (shr-fold-text): New function.
 	(shr-show-alt-text, shr-urlify, shr-tag-img): Use it to fold long
 	alt/title texts.
+	(shr-fold-text): Inhibit state from being altered.
 
 	* files.el (directory-files-recursively): Really check whether
 	files are symlinks.

lisp/net/shr.el

@@ -415,6 +415,8 @@ size, and full-buffer size."
 (defun shr-fold-text (text)
   (with-temp-buffer
     (let ((shr-indentation 0)
+	  (shr-state nil)
+	  (shr-start nil)
 	  (shr-internal-width (window-width)))
       (shr-insert text)
       (buffer-string))))