[nongnu] elpa/mastodon 79a3f3534b 05/16: process-full-sized-image-response - inhibit read only

[ELPA Syncer]

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

    process-full-sized-image-response - inhibit read only
---
 lisp/mastodon-media.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index 0014a44887..62a41dec64 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -195,12 +195,13 @@ STATUS-PLIST is a plist of status events as per 
`url-retrieve'."
       (setf (image-property image :max-width)
             (window-pixel-width))
       (with-current-buffer (get-buffer-create "*masto-image*")
-        (erase-buffer)
-        (insert-image image str)
-        (special-mode) ; prevent image-mode loop bug
-        (image-mode)
-        (goto-char (point-min))
-        (switch-to-buffer-other-window (current-buffer))))))
+        (let ((inhibit-read-only t))
+          (erase-buffer)
+          (insert-image image str)
+          (special-mode) ; prevent image-mode loop bug
+          (image-mode)
+          (goto-char (point-min))
+          (switch-to-buffer-other-window (current-buffer)))))))
 
 (defun mastodon-media--load-image-from-url (url media-type start region-length)
   "Take a URL and MEDIA-TYPE and load the image asynchronously.