erc buffer truncation

(defun erc-truncate-at-point-bol ()
  "Deletes erc buffer content above the current line of the point."
  (interactive)
  (erc-truncate-buffer-to-size (- (point-max) (point-at-bol))))