aboutsummaryrefslogtreecommitdiff
path: root/sx-compose.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-compose.el')
-rw-r--r--sx-compose.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/sx-compose.el b/sx-compose.el
index e09240f..dcb1bb0 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -165,6 +165,11 @@ respectively added locally to `sx-compose-before-send-hook' and
(insert sx-compose--question-headers)
(goto-char (point-min))
(goto-char (line-end-position))))
+ (when (consp parent)
+ (when (or (string= (buffer-string) "")
+ (y-or-n-p "Draft buffer exists. Reset it? "))
+ (erase-buffer)
+ (insert (cdr (assoc 'body_markdown parent)))))
;; Return the buffer
(current-buffer))))