2001-06-30 YAGI Tatsuya <yagi@is.titech.ac.jp>

[gnus] / lisp / flow-fill.el

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index 5d738fe..6150d51 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -95,11 +95,8 @@
          (unless sig
            (let ((fill-prefix (when quote (concat quote " "))))
              (fill-region (fill-flowed-point-at-bol)
-                          (fill-flowed-point-at-eol)
-                          'left 'nosqueeze)
-
-             (when (looking-at "^$")
-               (kill-line)))))))))
+                          (1+ (fill-flowed-point-at-eol))
+                          'left 'nosqueeze))))))))
 
 (provide 'flow-fill)