--- a/lisp/tl/richtext.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/tl/richtext.el	Mon Aug 13 09:13:56 2007 +0200
@@ -1,10 +1,10 @@
 ;;; richtext.el -- read and save files in text/richtext format
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/7/15
-;; Version: $Id: richtext.el,v 1.1.1.2 1996/12/21 20:50:51 steve Exp $
+;; Version: $Id: richtext.el,v 1.2 1997/02/15 22:21:25 steve Exp $
 ;; Keywords: wp, faces, MIME, multimedia
 
 ;; This file is not part of GNU Emacs yet.
@@ -164,11 +164,8 @@
 				  'richtext-next-annotation)
 
 	;; Fill paragraphs
-	(if (or (and file-width		; possible reasons not to fill:
-		     (= file-width (enriched-text-width))) ; correct wd.
-		(null enriched-fill-after-visiting) ; never fill
-		(and (eq 'ask enriched-fill-after-visiting) ; asked & declined
-		     (not (y-or-n-p "Re-fill for current display width? "))))
+	(if (and file-width		; possible reasons not to fill:
+		 (= file-width (enriched-text-width))) ; correct wd.
 	    ;; Minimally, we have to insert indentation and justification.
 	    (enriched-insert-indentation)
 	  (if enriched-verbose (message "Filling paragraphs..."))