 
 (defsubst jpw-lj-unfill-buffer ()
   (interactive)
-  (jpw-unfill-buffer t)
+  (jpw-unfill-buffer jpw-lj-unfill-removes-blank-line)
   ;; Return 'nil to make this fn usable with the various `*-write-*-hooks'.
   nil
   )


(defsubst jpw-lj-unfill-paragraph ()
  (interactive)
  (jpw-unfill-paragraph t)
  (if (looking-at "\\s ")
      (re-search-forward "\\S " nil 't)
    )


(defcustom jpw-lj-unfill-on-save nil
  "Unfill the buffer [using `jpw-unfill-buffer'] before saving it."
  :type 'boolean
  :group 'jpw-lj)

(defcustom jpw-lj-unfill-removes-blank-line nil
  "When unfilling a paragraph or the buffer [using `jpw-lj-unfill-paragraph'
or `jpw-lj-unfill-buffer'] remove interparagraph blank lines.  Sort of.

The first blank line following a paragraph will be removed.  Any additional
blank lines are ignored."
  :type 'boolean
  :group 'jpw-lj)

