 (if (null jpw-lj-mode-map)
     (progn
       (setq jpw-lj-mode-map (make-sparse-keymap))
-      (define-key jpw-lj-mode-map "\M-\"" 'jpw-unfill-paragraph)
-
-      (define-key jpw-lj-mode-map "\C-c\C-s" 'jpw-lj-display-tag-analysis)
+      (define-key jpw-lj-mode-map "\M-\"" 'jpw-lj-unfill-paragraph)
+      (define-key jpw-lj-mode-map "\C-c\"" 'jpw-lj-unfill-buffer)
 
       (define-key jpw-lj-mode-map "\M-gi" 'jpw-html-italic)
       (define-key jpw-lj-mode-map "\M-ge" 'jpw-html-emphasized)


      (define-key jpw-lj-mode-map "\M-p=" 'jpw-lj-cut)

      )                                 ;end progn
  )                                     ;end if



(defface jpw-lj-bold-face 
  '((t (:inherit bold)))
  "How to color <strong>...</strong> and <b>...</b> tags."
  :group 'jpw-lj)

(defface jpw-lj-italic-face
  '((t (:inherit italic)))
  "How to color <em>...</em> and <i>...</i> tags."
  :group 'jpw-lj)

(defface jpw-lj-underline-face
  '((t (:inherit underline)))
  "How to color <u>...</u> tags."
  :group 'jpw-lj)

(defface jpw-lj-tag-face 
