X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=richtext.el;h=e136950883d4629cc122ed3f3251af0389389890;hb=refs%2Ftags%2Fchise-core-0_23;hp=62da05940170218e8b786d97447652029499bc34;hpb=ddf439122060240263f2f23057dab53f623deb9b;p=elisp%2Fapel.git

diff --git a/richtext.el b/richtext.el
index 62da059..e136950 100644
--- a/richtext.el
+++ b/richtext.el
@@ -1,30 +1,30 @@
-;;;
 ;;; richtext.el -- read and save files in text/richtext format
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1995/7/15
-;;; Version:
-;;;	$Id: richtext.el,v 3.0 1995/11/22 11:36:06 morioka Exp $
-;;; Keywords: wp, faces, MIME, multimedia
-;;;
-;;; This file is part of GNU Emacs.
-;;;
-;;; GNU Emacs is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; GNU Emacs is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Emacs; see the file COPYING.  If not, write to
-;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;; 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.6 1997/06/28 17:58:34 morioka Exp $
+;; Keywords: wp, faces, MIME, multimedia
+
+;; This file is not part of GNU Emacs yet.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Code:
 
 (require 'enriched)
 
@@ -76,6 +76,7 @@ of this structure.")
 ;;; @ encoder
 ;;;
 
+;;;###autoload
 (defun richtext-encode (from to)
   (if enriched-verbose (message "Richtext: encoding document..."))
   (save-restriction
@@ -136,6 +137,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
 	       ))
 	))))
 
+;;;###autoload
 (defun richtext-decode (from to)
   (if enriched-verbose (message "Richtext: decoding document..."))
   (save-excursion
@@ -143,7 +145,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
       (narrow-to-region from to)
       (goto-char from)
       (let ((file-width (enriched-get-file-width))
-	    (use-hard-newlines t) pc nc)
+	    (use-hard-newlines t))
 	(enriched-remove-header)
 	
 	(goto-char from)
@@ -164,11 +166,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..."))
@@ -180,4 +179,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
 ;;; @ end
 ;;;
 
-(provide 'richtext)
+(require 'product)
+(product-provide (provide 'richtext) (require 'apel-ver))
+
+;;; richtext.el ends here