branch: elpa/hyperdrive
commit dd0a28b1f70f0ab88947094dd351180ab56c3832
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/write-buffer) Prompt to mark as safe when writing
---
hyperdrive.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 42e1b7a4c6..4d636ed341 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -509,12 +509,12 @@ use, see `hyperdrive-write'."
(with-current-buffer buffer
(unless h/mode
(h//clean-buffer)
- (if (map-elt (hyperdrive-etc hyperdrive) 'safep)
- (let ((buffer-file-name (he/name entry)))
- (set-auto-mode))
- (h/message
- "Mark hyperdrive `%s' as safe to auto-enable major
mode."
- (h//format-hyperdrive hyperdrive)))
+ (when (eq 'unknown (h/safe-p hyperdrive))
+ (call-interactively #'h/mark-as-safe))
+ ;; 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)))
(h/mode))
(he//fill entry (plz-response-headers response))
;; PUT responses only include ETag and Last-Modified
