From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sat, 8 Jun 2002 23:11:08 +0000 (+0000)
Subject: 	* flow-fill.el (fill-flowed): Ignore errors.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=a8229c0b1bf4c7abff9e26edd6042c5a61b92aa1

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1075ae522..3bd01346b 100644
--- 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 e7ca680d9..7a5a5447c 100644
--- 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)