Support full address specification in contact email fields.

Now input address is extracted automatically, so user can
just paste full address copied from another place. Other clients
have such feature e.g. Kontact.

program/steps/addressbook/save.inc

@@ -61,7 +61,16 @@ foreach ($GLOBALS['CONTACT_COLTYPES'] as $col => $colprop) {
   else if (is_array($_POST[$fname])) {
     $values   = get_input_value($fname, RCUBE_INPUT_POST, true);
     $subtypes = get_input_value('_subtype_' . $col, RCUBE_INPUT_POST);
+
     foreach ($values as $i => $val) {
+      if ($col == 'email') {
+        // extract email from full address specification, e.g. "Name" <addr@domain.tld>
+        $addr = rcube_mime::decode_address_list($val, 1, false);
+        if (!empty($addr) && ($addr = array_pop($addr)) && $addr['mailto']) {
+          $val = $addr['mailto'];
+        }
+      }
+
       $subtype = $subtypes[$i] ? ':'.$subtypes[$i] : '';
       $a_record[$col.$subtype][] = $val;
     }