X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fflow-fill.el;h=c72ad40154e4bef4abcfdb2b0d535c7ec7374e96;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=dfe09c287d0687c2affe6b060dac615a48f2476e;hpb=698ed2619a929421f8746a12f278be996a9472f8;p=elisp%2Fgnus.git-

diff --git a/lisp/flow-fill.el b/lisp/flow-fill.el
index dfe09c2..c72ad40 100644
--- a/lisp/flow-fill.el
+++ b/lisp/flow-fill.el
@@ -134,11 +134,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)