From eafd5b1aa4e67c4de18fc09493540b55dc647220 Mon Sep 17 00:00:00 2001
From: Aleksander Machniak <alec@alec.pl>
Date: Thu, 03 Oct 2013 11:36:31 -0400
Subject: [PATCH] Improved mailto: link arguments handling (#1489363)

---
 program/steps/mail/compose.inc |   77 ++++++++++++++++++++++++++++----------
 1 files changed, 57 insertions(+), 20 deletions(-)

diff --git a/program/steps/mail/compose.inc b/program/steps/mail/compose.inc
index b62f9bf..dc24525 100644
--- a/program/steps/mail/compose.inc
+++ b/program/steps/mail/compose.inc
@@ -54,30 +54,12 @@
   $COMPOSE_ID = uniqid(mt_rand());
   $_SESSION['compose_data_'.$COMPOSE_ID] = array(
     'id'      => $COMPOSE_ID,
-    'param'   => request2param(RCUBE_INPUT_GET),
+    'param'   => rcube_utils::request2param(RCUBE_INPUT_GET, 'task|action', true),
     'mailbox' => $RCMAIL->storage->get_folder(),
   );
   $COMPOSE =& $_SESSION['compose_data_'.$COMPOSE_ID];
 
-  // process values like "mailto:foo@bar.com?subject=new+message&cc=another"
-  if ($COMPOSE['param']['to']) {
-    // #1486037: remove "mailto:" prefix
-    $COMPOSE['param']['to'] = preg_replace('/^mailto:/i', '', $COMPOSE['param']['to']);
-    $mailto = explode('?', $COMPOSE['param']['to']);
-    if (count($mailto) > 1) {
-      $COMPOSE['param']['to'] = $mailto[0];
-      parse_str($mailto[1], $query);
-      foreach ($query as $f => $val)
-        $COMPOSE['param'][$f] = $val;
-    }
-  }
-
-  // select folder where to save the sent message
-  $COMPOSE['param']['sent_mbox'] = $RCMAIL->config->get('sent_mbox');
-
-  // pipe compose parameters thru plugins
-  $plugin = $RCMAIL->plugins->exec_hook('message_compose', $COMPOSE);
-  $COMPOSE['param'] = array_merge($COMPOSE['param'], $plugin['param']);
+  rcmail_process_compose_params($COMPOSE);
 
   // add attachments listed by message_compose hook
   if (is_array($plugin['attachments'])) {
@@ -260,6 +242,14 @@
 }
 else {
   $MESSAGE = new stdClass();
+
+  // apply mailto: URL parameters
+  if (!empty($COMPOSE['param']['in-reply-to'])) {
+    $COMPOSE['reply_msgid'] = '<' . $COMPOSE['param']['in-reply-to'] . '>';
+  }
+  if (!empty($COMPOSE['param']['references'])) {
+    $COMPOSE['references'] = $COMPOSE['param']['references'];
+  }
 }
 
 $MESSAGE->compose = array();
@@ -414,6 +404,53 @@
 
 /****** compose mode functions ********/
 
+// process compose request parameters
+function rcmail_process_compose_params(&$COMPOSE)
+{
+  if ($COMPOSE['param']['to']) {
+    $mailto = explode('?', $COMPOSE['param']['to'], 2);
+
+    // #1486037: remove "mailto:" prefix
+    $COMPOSE['param']['to'] = preg_replace('/^mailto:/i', '', $mailto[0]);
+
+    // Supported case-insensitive tokens in mailto URL
+    $url_tokens = array('to', 'cc', 'bcc', 'reply-to', 'in-reply-to', 'references', 'subject', 'body');
+
+    if (!empty($mailto[1])) {
+      parse_str($mailto[1], $query);
+      foreach ($query as $f => $val) {
+        if (($key = array_search(strtolower($f), $url_tokens)) !== false) {
+          $f = $url_tokens[$key];
+        }
+
+        // merge mailto: addresses with addresses from 'to' parameter
+        if ($f == 'to' && !empty($COMPOSE['param']['to'])) {
+          $to_addresses  = rcube_mime::decode_address_list($COMPOSE['param']['to'], null, true, null, true);
+          $add_addresses = rcube_mime::decode_address_list($val, null, true);
+          foreach ($add_addresses as $addr) {
+            if (!in_array($addr['mailto'], $to_addresses)) {
+              $to_addresses[] = $addr['mailto'];
+              $COMPOSE['param']['to'] = (!empty($to_addresses) ? ', ' : '') . $addr['string'];
+            }
+          }
+        }
+        else {
+          $COMPOSE['param'][$f] = $val;
+        }
+      }
+    }
+  }
+
+  $RCMAIL = rcmail::get_instance();
+
+  // select folder where to save the sent message
+  $COMPOSE['param']['sent_mbox'] = $RCMAIL->config->get('sent_mbox');
+
+  // pipe compose parameters thru plugins
+  $plugin = $RCMAIL->plugins->exec_hook('message_compose', $COMPOSE);
+  $COMPOSE['param'] = array_merge($COMPOSE['param'], $plugin['param']);
+}
+
 function rcmail_compose_headers($attrib)
 {
   global $MESSAGE;

--
Gitblit v1.9.1