 
 (defn- preheader-spacer []
   (s/join (repeat 120 "&nbsp;&zwnj;")))
+
+;; ----- Retrieve post data -----
+
+(defn get-post-data [payload]
+  (let [notification (:notification payload)
+        user-map {:user-id (:user-id payload)}
+        c {:storage-server-url config/storage-server-url
+           :auth-server-url config/auth-server-url
+           :passphrase config/passphrase
+           :service-name "Email"}]
+    (storage/post-data-for c user-map (:slug (:org payload)) (:board-id notification) (:entry-id notification))))
 
 ;; ----- HTML Fragments -----
 

            (spacer 12 "")
            (paragraph paragraph-text "" "text-left attribution")]]]])))

(defn- follow-up-notification-content [entry]
  (let [logo-url (:org-logo-url entry)
        logo-width (:org-logo-width entry)
        logo-height (:org-logo-height entry)
        logo? (not (s/blank? logo-url))
        org-name (:org-name entry)
        note (:note entry)
        note? (not (s/blank? note))
        follow-up-author (:author (:follow-up entry))
        author-name (or (:name follow-up-author) (str (:first-name follow-up-author) " " (:last-name follow-up-author)))
        message (follow-up-subject entry)
        entry-url (:url entry)]
    [:td {:class "small-12 large-12 columns main-wrapper vertical-padding" :valign "middle" :align "center"}
      (when (:avatar-url follow-up-author)
        [:table {:class "row"}


(defn follow-up-subject [data]
  (let [msg (keywordize-keys data)
        follow-up-author (-> data :notification :follow-up :author)
        author-name (user/name-for follow-up-author)]
    (format follow-up-subject-text author-name)))

(defn- follow-up-post-block
