[nongnu] elpa/hyperdrive 9ee220d67e 12/14: Fix: (h/handler-default, h/write-buffer) Keep major mode if same

[ELPA Syncer]

branch: elpa/hyperdrive
commit 9ee220d67e535d02002731f061b00fa1e272b7f7
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (h/handler-default, h/write-buffer) Keep major mode if same
    
    Reported-by: Adam Porter <adam@alphapapa.net>
---
 hyperdrive-lib.el | 2 +-
 hyperdrive.el     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 67d6dba23f..4f8c20c201 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1399,7 +1399,7 @@ If then, then call THEN with no arguments.  Default 
handler."
       ;; Check safe-p again after potential call to `h/mark-as-safe'.
       (when (eq t (h/safe-p hyperdrive))
         (let ((buffer-file-name (he/name entry)))
-          (set-auto-mode)))
+          (set-auto-mode t)))
       (when target
         (pcase major-mode
           ('org-mode
diff --git a/hyperdrive.el b/hyperdrive.el
index 4d636ed341..f29b521016 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -514,7 +514,7 @@ use, see `hyperdrive-write'."
                     ;; Check safe-p again after potential call to 
`h/mark-as-safe'.
                     (when (eq t (h/safe-p hyperdrive))
                       (let ((buffer-file-name (he/name entry)))
-                        (set-auto-mode)))
+                        (set-auto-mode t)))
                     (h/mode))
                   (he//fill entry (plz-response-headers response))
                   ;; PUT responses only include ETag and Last-Modified