From: morioka <morioka>
Date: Sat, 21 Jun 1997 09:00:09 +0000 (+0000)
Subject: `tm-eword::encode-encoded-text' -> `eword-encode-text'
X-Git-Tag: semi-0_96~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7d7e94d9699605c957b2f2deaa71ec27827e1b6e;p=elisp%2Fsemi.git

`tm-eword::encode-encoded-text' -> `eword-encode-text'
---

diff --git a/eword-encode.el b/eword-encode.el
index 803f50f..b714a58 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 0.17 $
+;; Version: $Revision: 0.18 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.17 1997-06-18 14:26:30 morioka Exp $")
+  "$Id: eword-encode.el,v 0.18 1997-06-21 09:00:09 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -91,7 +91,12 @@ when Subject field is encoded by `eword-encode-header'.")
 ;;; @ encoded-text encoder
 ;;;
 
-(defun tm-eword::encode-encoded-text (charset encoding string &optional mode)
+(defun eword-encode-text (charset encoding string &optional mode)
+  "Encode STRING as an encoded-word, and return the result.
+CHARSET is a symbol to indicate MIME charset of the encoded-word.
+ENCODING allows \"B\" or \"Q\".
+MODE is allows `text', `comment', `phrase' or nil.  Default value is
+`phrase'."
   (let ((text
 	 (cond ((string= encoding "B")
 		(base64-encode-string string))
@@ -294,7 +299,7 @@ when Subject field is encoded by `eword-encode-header'.")
 		  (<= (+ column len) 76)
 		  )
 	     (setq string
-		   (tm-eword::encode-encoded-text
+		   (eword-encode-text
 		    (tm-eword::rword-charset rword)
 		    (tm-eword::rword-encoding rword)
 		    (cdr ret)
@@ -326,7 +331,7 @@ when Subject field is encoded by `eword-encode-header'.")
 		 (setq rwl (cons (cons (substring string p) (cdr rword))
 				 (cdr rwl)))
 		 (setq string
-		       (tm-eword::encode-encoded-text
+		       (eword-encode-text
 			(tm-eword::rword-charset rword)
 			(tm-eword::rword-encoding rword)
 			str