From 9547adbb6b5213bfc9372669e5e679438e738396 Mon Sep 17 00:00:00 2001
From: Michael M Slusarz <slusarz@curecanti.org>
Date: Tue, 8 Dec 2009 16:01:45 -0700
Subject: [PATCH] Add cancel button to MIMP compose screen

---
 imp/compose-mimp.php                   | 6 ++++++
 imp/templates/compose/compose-mimp.inc | 1 +
 2 files changed, 7 insertions(+)

diff --git a/imp/compose-mimp.php b/imp/compose-mimp.php
index f1f9ed423..b1fb59cc3 100644
--- a/imp/compose-mimp.php
+++ b/imp/compose-mimp.php
@@ -288,6 +288,12 @@ case _("Send"):
         break;
     }
     break;
+
+case _("Cancel"):
+    $imp_compose->deleteAllAttachments();
+    $imp_compose->destroy();
+    require IMP_BASE . '/mailbox-mimp.php';
+    exit;
 }
 
 /* Get the message cache ID. */
diff --git a/imp/templates/compose/compose-mimp.inc b/imp/templates/compose/compose-mimp.inc
index ae3a63d7f..a4c83142f 100644
--- a/imp/templates/compose/compose-mimp.inc
+++ b/imp/templates/compose/compose-mimp.inc
@@ -48,6 +48,7 @@ if ($conf['user']['allow_folders'] && !$readonly_drafts) {
 }
 
 $f->add(new Horde_Mobile_submit(_("Expand Names"), 'a'));
+$f->add(new Horde_Mobile_submit(_("Cancel"), 'a'));
 
 $mimp_render->add($menu);
 $mimp_render->display();
-- 
2.11.0