Sat Mar 10 03:14:36 UTC 2007  gordon@heydon.com.au
  * Add tokens to return the users email for nodes, and userreference fields
diff -rN -u old-newsite.csf.com.au/sites/all/modules/token/token_cck.inc new-newsite.csf.com.au/sites/all/modules/token/token_cck.inc
--- old-newsite.csf.com.au/sites/all/modules/token/token_cck.inc	2007-03-10 04:53:14.000000000 +0000
+++ new-newsite.csf.com.au/sites/all/modules/token/token_cck.inc	2007-03-10 04:53:15.000000000 +0000
@@ -133,6 +133,7 @@
       $tokens['user reference']['uid']   = t("Referenced user ID");
       $tokens['user reference']['name']  = t("Referenced user name");
       $tokens['user reference']['link']  = t("Formatted html link to referenced user");
+      $tokens['user reference']['mail']  = t("Referenced user email");
 
       return $tokens;
     }
@@ -141,10 +142,12 @@
   function userreference_token_values($type, $object = NULL) {
     if ($type == 'field') {
       $item = $object[0];
+      $account = user_load(array('uid' => $item['uid']));
 
       $tokens['uid']   = $item['uid'];
       $tokens['name']  = strip_tags($item['view']);
       $tokens['link']  = $item['view'];
+      $tokens['mail']  = $account->mail;
 
       return $tokens;
     }
@@ -292,4 +295,4 @@
       return $tokens;
     }
   }
-}
\ No newline at end of file
+}
diff -rN -u old-newsite.csf.com.au/sites/all/modules/token/token_node.inc new-newsite.csf.com.au/sites/all/modules/token/token_node.inc
--- old-newsite.csf.com.au/sites/all/modules/token/token_node.inc	2007-03-10 04:53:14.000000000 +0000
+++ new-newsite.csf.com.au/sites/all/modules/token/token_node.inc	2007-03-10 04:53:15.000000000 +0000
@@ -8,6 +8,7 @@
   switch ($type) {
     case 'node':
       $node = $object;
+      $account = user_load(array('uid' => $node->uid));
 
       $values['nid']            = $node->nid;
       $values['type']           = $node->type;
@@ -16,6 +17,7 @@
 
       $values['author-uid']     = $node->uid;
       $values['author-name']    = $node->name;
+      $values['author-mail']    = $account->mail;
 
       $values['yyyy']           = date('Y', $node->created);
       $values['yy']             = date('y', $node->created);
@@ -91,6 +93,7 @@
 
     $tokens['node']['author-uid']     = t("Node author's user id");
     $tokens['node']['author-name']    = t("Node author's user name");
+    $tokens['node']['author-mail']    = t("Node author's user email");
 
     $tokens['node']['term']           = t("Name of top taxonomy term");
     $tokens['node']['term-id']        = t("ID of top taxonomy term");
@@ -155,4 +158,4 @@
     $list['book']['bookpath'] = t("The titles of all parents in the node's book hierarchy.");
     return $list;
   }
-}
\ No newline at end of file
+}