From 59c49ce60fcfa1fac4827beb11a04c0ef8585b9a Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 2 Dec 2014 01:20:09 +0000
Subject: Editing implemented

Fix #11
---
 sx-compose.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'sx-compose.el')

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))))
 
-- 
cgit v1.2.3