Fix lower-casing email address on replies (#1488598)

1 files changed, 23 insertions, 0 deletions

diff --git a/program/include/rcube_shared.inc b/program/include/rcube_shared.inc
index 8f5f0739a..3d3255555 100644
--- a/program/include/rcube_shared.inc
+++ b/program/include/rcube_shared.inc
@@ -470,6 +470,29 @@ function array_keys_recursive($array)
 
 
 /**
+ * Format e-mail address
+ *
+ * @param string $email E-mail address
+ *
+ * @return string Formatted e-mail address
+ */
+function format_email($email)
+{
+    $email = trim($email);
+    $parts = explode('@', $email);
+    $count = count($parts);
+
+    if ($count > 1) {
+        $parts[$count-1] = mb_strtolower($parts[$count-1]);
+
+        $email = implode('@', $parts);
+    }
+
+    return $email;
+}
+
+
+/**
  * mbstring replacement functions
  */