* flow-fill.el (fill-flowed): Ignore errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1075ae5..3bd0134 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * flow-fill.el (fill-flowed): Ignore errors.
+
 2002-06-06  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-send-mail-with-sendmail): Improve error message.

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index e7ca680..7a5a544 100644 (file)
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -133,11 +133,13 @@ RFC 2646 suggests 66 characters for readability."
            (backward-delete-char -1)
            (end-of-line))
          (unless sig
-           (let ((fill-prefix (when quote (concat quote " ")))
-                 (fill-column (eval fill-flowed-display-column)))
-             (fill-region (fill-flowed-point-at-bol)
-                          (min (1+ (fill-flowed-point-at-eol)) (point-max))
-                          'left 'nosqueeze))))))))
+           (condition-case nil
+               (let ((fill-prefix (when quote (concat quote " ")))
+                     (fill-column (eval fill-flowed-display-column)))
+                 (fill-region (fill-flowed-point-at-bol)
+                              (min (1+ (fill-flowed-point-at-eol)) (point-max))
+                              'left 'nosqueeze))
+             (error nil))))))))
 
 (provide 'flow-fill)