From: morioka <morioka>
Date: Wed, 11 Mar 1998 12:32:21 +0000 (+0000)
Subject: tm 7.103.
X-Git-Tag: tm-7_103~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ac0560a22f11fb6569a5944122ec3361605267d;p=elisp%2Fapel.git

tm 7.103.
---

diff --git a/richtext.el b/richtext.el
index 0ef10f4..677711a 100644
--- a/richtext.el
+++ b/richtext.el
@@ -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 3.3 1996/11/28 19:26:19 morioka Exp $
+;; Version: $Id: richtext.el,v 3.5 1997/01/30 16:55:00 morioka Exp $
 ;; Keywords: wp, faces, MIME, multimedia
 
 ;; This file is not part of GNU Emacs yet.
@@ -164,11 +164,8 @@ Return value is \(begin end name positive-p), or nil if none was found."
 				  '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..."))