   (backward-char 1))
 
 (defun markdown-insert-header-1 ()
-  "Inserts a first level atx-style (hash mark) header.
+  "Insert a first level atx-style (hash mark) header.
 If Transient Mark mode is on and a region is active, it is used
 as the header text."
   (interactive)
   (markdown-insert-header 1))
 
 (defun markdown-insert-header-2 ()
-  "Inserts a second level atx-style (hash mark) header.
+  "Insert a second level atx-style (hash mark) header.
 If Transient Mark mode is on and a region is active, it is used
 as the header text."
   (interactive)
   (markdown-insert-header 2))
 
 (defun markdown-insert-header-3 ()
-  "Inserts a third level atx-style (hash mark) header.
+  "Insert a third level atx-style (hash mark) header.
 If Transient Mark mode is on and a region is active, it is used
 as the header text."
   (interactive)
   (markdown-insert-header 3))
 
 (defun markdown-insert-header-4 ()
-  "Inserts a fourth level atx-style (hash mark) header.
+  "Insert a fourth level atx-style (hash mark) header.
 If Transient Mark mode is on and a region is active, it is used
 as the header text."
   (interactive)
   (markdown-insert-header 4))
 
 (defun markdown-insert-header-5 ()
-  "Inserts a fifth level atx-style (hash mark) header.
+  "Insert a fifth level atx-style (hash mark) header.
 If Transient Mark mode is on and a region is active, it is used
 as the header text."
   (interactive)
   (markdown-insert-header 5))
 
+(defun markdown-insert-header-6 ()
+  "Insert a sixth level atx-style (hash mark) header.
+If Transient Mark mode is on and a region is active, it is used
+as the header text."
+  (interactive)
+  (markdown-insert-header 6))
+
 (defun markdown-insert-header (n)
-  "Inserts an atx-style (hash mark) header.
+  "Insert an atx-style (hash mark) header.
 With no prefix argument, insert a level-1 header.  With prefix N,
 insert a level-N header.  If Transient Mark mode is on and the
 region is active, it is used as the header text."
   (interactive "p")
   (unless n                             ; Test to see if n is defined
     (setq n 1))                         ; Default to level 1 header
-  (let (hdr)
+  (let (hdr hdrl hdrr)
     (dotimes (count n hdr)
       (setq hdr (concat "#" hdr)))      ; Build a hash mark header string
     (setq hdrl (concat hdr " "))

                                 'target-line line)
                ;; Insert line number as text in Emacs < 22
                (insert (number-to-string line)))
              (insert " "))) (delete-backward-char 1)
          (insert ")")
          (newline))
        (view-buffer-other-window refbuf)
        (goto-line 4)))))


;;; Outline ===================================================================


  :group 'markdown
  :type 'string)

(defcustom markdown-command-needs-filename nil
  "Set to non-nil if `markdown-command' does not accept input from stdin.
Instead, it will be passed a filename as the final command-line
option.  As a result, you will only be able to run Markdown from
buffers which are visiting a file."
  :group 'markdown
  :type 'boolean)

(defcustom markdown-hr-string "* * * * *"
  "String to use for horizonal rules."
  :group 'markdown
  :type 'string)

(defcustom markdown-bold-underscore nil
  "Use two underscores for bold instead of two asterisks."
