From 5970c9de908fbb8009de86a2371578de231b3cee Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sat, 6 May 2023 14:46:34 +0200
Subject: Revert "updates to with-mastodon-buffer macro"

This reverts commit 59e5e3ece54bcac36d9debad392bff25a31438b5.
---
 lisp/mastodon-profile.el | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

(limited to 'lisp/mastodon-profile.el')

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 5bee7e9..fe7d7d2 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -494,19 +494,22 @@ This endpoint only holds a few preferences. For others, see
   (let* ((url (mastodon-http--api "preferences"))
          (response (mastodon-http--get-json url))
          (buf (get-buffer-create "*mastodon-preferences*")))
-    (with-mastodon-buffer
-     buf #'special-mode :other-window
-     (mastodon-tl--set-buffer-spec (buffer-name buf)
-                                   "preferences"
-                                   nil)
-     (while response
-       (let ((el (pop response)))
-         (insert
-          (format "%-30s %s"
-                  (prin1-to-string (car el))
-                  (prin1-to-string (cdr el)))
-          "\n\n")))
-     (goto-char (point-min)))))
+    (with-current-buffer buf
+      (switch-to-buffer-other-window buf)
+      (erase-buffer)
+      (special-mode)
+      (mastodon-tl--set-buffer-spec (buffer-name buf)
+                                    "preferences"
+                                    nil)
+      (let ((inhibit-read-only t))
+        (while response
+          (let ((el (pop response)))
+            (insert
+             (format "%-30s %s"
+                     (prin1-to-string (car el))
+                     (prin1-to-string (cdr el)))
+             "\n\n"))))
+      (goto-char (point-min)))))
 
 ;; PROFILE VIEW DETAILS
 
@@ -604,7 +607,7 @@ HEADERS means also fetch link headers for pagination."
          (pinned (mastodon-profile--get-statuses-pinned account))
          (joined (mastodon-profile--account-field account 'created_at)))
     (with-mastodon-buffer
-     buffer #'mastodon-mode nil
+     buffer
      (mastodon-profile-mode)
      (setq mastodon-profile--account account)
      (mastodon-tl--set-buffer-spec buffer
-- 
cgit v1.2.3