 
 (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)
 


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


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