                   "NEW ACTIVITY"]]]
             [:tr
               [:td
-                (for [p non-must-see]
+                (for [p non-follow-up-posts]
                   [:table
                     {:cellpadding "0"
                      :cellspacing "0"

}
"])

(defn sort-must-see-board-name [a b]
  (let [must-see (compare (:must-see a) (:must-see b))]
    (if (zero? must-see)
      (let [board-name (compare (:board-name a) (:board-name b))]
        (if (zero? board-name)
          (compare (:published-at a) (:published-at b))
          board-name))
      must-see)))

(defn- digest-content [digest]
  (let [boards (map posts-with-board-name (:boards digest))
        posts (mapcat posts-for-board boards)
        digest-url (get-digest-url digest)
        first-name (:first-name digest)

        boards (map posts-with-board-name (:boards digest))
        all-posts (mapcat :posts boards)
        sorted-posts (sort sort-must-see-board-name all-posts)
        must-see (filter :must-see sorted-posts)
        non-must-see (filter (comp not :must-see) sorted-posts)
        user {:user-id (:user-id digest)
              :name (str (:first-name digest) " " (:last-name digest))}]
    [:td {:class "small-12 large-12" :valign "middle" :align "center"}
      [:center
        (spacer 40)
        (when (seq must-see)
          [:table
            {:cellpadding "0"
             :cellspacing "0"
             :border "0"
             :class "digest-content must-see"}
            [:tr
              [:td
                [:label.digest-group-title
                  "MUST SEE"]]]
            [:tr
              [:td
                (for [p must-see]
                  [:table
                    {:cellpadding "0"
                     :cellspacing "0"

                    [:tr
                      [:td {:class "small-12 large-12 columns"}
                        (digest-post-block user p)]]])]]])
        (when (seq follow-up-posts)
          (spacer 32))
        (when (seq non-follow-up-posts)
          [:table
            {:cellpadding "0"
             :cellspacing "0"
