From 1ff03fb29deb9940cbd14b09a089815d0c1ca2e1 Mon Sep 17 00:00:00 2001
From: Aleksander Machniak <alec@alec.pl>
Date: Wed, 10 Oct 2012 19:24:52 +0200
Subject: Fix lower-casing email address on replies (#1488598)

Conflicts:

	CHANGELOG
---
 program/include/rcube_shared.inc | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'program/include')

diff --git a/program/include/rcube_shared.inc b/program/include/rcube_shared.inc
index 6767c93e7..c7461edf1 100644
--- a/program/include/rcube_shared.inc
+++ b/program/include/rcube_shared.inc
@@ -581,6 +581,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
  */
-- 
cgit v1.2.3