squash-log-newlines.el

(defun squash-log-newlines ()
  "Squash wrapped log lines back to their original single line format."
  (interactive)
  (end-of-line)
  (let ((search-str "[2010-01")
        (start-marker (make-marker))
        (end-marker (make-marker)))
    (set-marker start-marker (point))
    (search-forward search-str)
    (set-marker end-marker (- (point) (1+ (length search-str))))
    (replace-string "\n" " " nil start-marker end-marker))
  (next-line)
  (beginning-of-line))