 
 (defn history-list
   "Pull a list of items from a user's history."
-  [& {:keys [maxResults pageToken labelId startHistoryId]
-      :or {maxResults 10}}]
+  [startHistoryId & {:keys [maxResults pageToken labelId ]
+                     :or {maxResults 10}}]
   (let [params {:maxResults maxResults
                 :pageToken pageToken
                 :startHistoryId startHistoryId

                                      walk/keywordize-keys)]
                        (if (:error body)
                            (throw (Exception. (if (:message body) (:message body)
                                                                   "Error or blank response from Beats Platform.")))
                            body))
                :raw @response
                :url {:url (get-in @response [:opts :url])})

  [msg]
  (let [session (Session/getDefaultInstance (java.util.Properties.))]
    (doto (MimeMessage. session)
          (.setFrom (address "me@gmail.com"))
          (.addRecipient Message$RecipientType/TO (address (:to msg)))
          ;(.addRecipient Message$RecipientType/CC (address (:cc msg)))
          ;(.addRecipient Message$RecipientType/BCC (address (:bcc msg)))
