     (if (or admin-events follow-events message-events)
       (html-mail-body-item [:ul
                             (if-not (empty? admin-events)
-                              admin-events)                            
+                              admin-events)
                             (if-not (empty? follow-events)
                               follow-events)
                             (if-not (empty? message-events)

                       (assoc-in [key :first_name] (:first_name item))
                       (assoc-in [key :last_name] (:last_name item))
                       (assoc-in  [key typecount]  (inc (get-in current [key typecount] 0))))))
        
        reduced-events (vals (reduce helper {} (reverse follow-events)))]
    (if-not (empty? follow-events)
      (map (fn [item] (follow-message item lng)) reduced-events))))


                                                       (t :social/Emailpages lng))))]
    (html-mail-body-li
     (str  (:first_name item) " " (:last_name item) " "
          (t :social/Emailhaspublish lng)
          badge-body
          (if (and badge-body page-body)
            (str " " (t :social/Emailand lng)))
          page-body

          ".")))

  )

(defn follow-events
