diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-03-27 14:53:04 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-03-27 14:53:04 +0100 |
| commit | d54aa9aa3e4276b9519ff9123e9dc0c123d9dd3b (patch) | |
| tree | 6c1e17c1483d41e555160c4acb8505ec7b5d4ecb /lisp/mastodon-notifications.el | |
| parent | 90aeac60805ed49da29781b979b6ab3edab671aa (diff) | |
| parent | 1454c2253d507adf9be1d413172e0b11b853c661 (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp/mastodon-notifications.el')
| -rw-r--r-- | lisp/mastodon-notifications.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index f7276d6..0e367c9 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) |