                 (zerop (forward-line -1))))
     (not (diffscuss-range-line-p))))
 
-(defun diffscuss-comment-or-reply ()
+(defun diffscuss-insert-contextual-comment ()
   "Insert a comment or reply based on context."
   (interactive)
   ;; if at the very top of the file, insert a comment for the entire


(defvar diffscuss-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "\C-c\C-r" 'diffscuss-reply-to-comment)
    (define-key map "\C-c\C-i" 'diffscuss-insert-comment)
    (define-key map "\C-c\C-c" 'diffscuss-comment-or-reply)
    (define-key map "\C-c\C-s" 'diffscuss-goto-local-source)
    (define-key map "\C-c+" 'diffscuss-show-new-source)
    (define-key map "\C-c-" 'diffscuss-show-old-source)
    (define-key map "\C-j" 'diffscuss-newline-and-indent)
    (define-key map (kbd "RET") 'diffscuss-newline-and-indent)
    (define-key map "\C-o" 'diffscuss-open-line)

  "Insert a file-level comment."
  (interactive)
  (beginning-of-buffer)
  ;; either there's already a file level comment, in which case we
  ;; want to jump in at the bottom of the thread, or not.
  (let ((existing-comment (diffscuss-parse-leader)))
    (if existing-comment
        (progn (diffscuss-jump-to-end-of-thread)
               (newline)))
    (insert (diffscuss-make-comment "%*"))
    (if existing-comment
        ;; we're already positioned at the end of the comment, we only
        ;; need to move back 1.
        (forward-line -1)
        (progn (newline)
               (forward-line -2)))
    (end-of-line)))

(defun diffscuss-in-header-p ()
  "True if we're in the header material."
