         nil)))
 
 (defun diffscuss-comment-part-regexp (parse-leader from-string to-string)
-  "Utility function to help make header / body regexps"
+  "Utility function to help make header / body regexps."
   (concat "^"
           (regexp-quote (replace-regexp-in-string from-string to-string parse-leader))
           "\\([ ]\\|\n\\|$\\)"))
 
 (defun diffscuss-comment-body-regexp (parse-leader)
-  "Return a regexp matching the begging of a body line leading with parse-leader"
+  "Return a regexp matching the begging of a body line leading with parse-leader."
   (diffscuss-comment-part-regexp parse-leader "*" "-"))
 
 (defun diffscuss-comment-header-regexp (parse-leader)
-  "Return a regexp matching the begging of a body line leading with parse-leader"
+  "Return a regexp matching the begging of a body line leading with parse-leader."
   (diffscuss-comment-part-regexp parse-leader "-" "*"))
 
 (defun diffscuss-find-body-start ()

     "check"
     "-e")
    (with-current-buffer outbuf
      (beginning-of-buffer)
      (let ((compilation-error-regexp-alist
             '(("\\(/.*\\):\\([0-9]+\\):\\([0-9]+\\)" 1 2 3))))
        (compilation-mode)))

                         orig-file
                         (split-string recips " "))))
        (if (= 0 exe-res)
            (progn (setq new-file (diffscuss-trim-string (buffer-string)))
                   (message "%s successful" verb))
          (message "Could not %s, got error: %s" verb (buffer-string)))))
    (if (not (string= buffer-file-name new-file))
        (progn (set-visited-file-name new-file)
               (message "Visiting new review file.")))))

(defun diffscuss-mb-post (recips)
  (interactive "sEnter post recipients separated by space: ")
