[nongnu] elpa/mastodon 9249cda2ff 11/16: let bind a setq'd var to keep compiler happy

[ELPA Syncer]

branch: elpa/mastodon
commit 9249cda2fffca34223d6d6c485878c3a1b32766d
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    let bind a setq'd var to keep compiler happy
---
 lisp/mastodon-notifications.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index f7276d6c2c..0e367c9859 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -177,10 +177,11 @@ Status notifications are given when
     (switch-to-buffer (current-buffer))
     (insert str)
     (goto-char (point-min))
-    (while (setq prop (text-property-search-forward 'face 'shr-text t))
-      (add-text-properties (prop-match-beginning prop)
-                           (prop-match-end prop)
-                           '(face (font-lock-comment-face shr-text))))
+    (let (prop)
+      (while (setq prop (text-property-search-forward 'face 'shr-text t))
+        (add-text-properties (prop-match-beginning prop)
+                             (prop-match-end prop)
+                             '(face (font-lock-comment-face shr-text)))))
     (buffer-string)))
 
 (defun mastodon-notifications--format-note (note type)