     (fn [{:keys [state service] :as event}]
       (when (and state service)
         (let [statusmessage (formatter event)]
-          (send-line opts statusmessage))))))
+          (send-message opts statusmessage))))))
 
-(def xymon-max-line 4096)
+(def message-max-length 4096)
 
 (def- combo-header "combo\n")
 (def- combo-header-len (count combo-header))

(defn events->combo
  "
  Returns a lazy sequence of combo messages. Each message is at most
  xymon-max-line long.
  "
  ([formatter events]
   (events->combo formatter events combo-header combo-header-len))

           next-length (count next)
           length (+ len next-length 2)
           events (rest events)]
       (if (< length message-max-length)
         (recur formatter events (str message next "\n\n") length)
         (cons message (lazy-seq (events->combo formatter events))))))))

