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

2 files changed, 3 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5caf37672c7..7ec7feb2b84 100644
--- a/lisp/ChangeLog
+++ b/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.
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 2fff3603546..15dd8dfefa9 100644
--- a/lisp/net/shr.el
+++ b/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))))