From: tomo <tomo>
Date: Tue, 31 Dec 2002 08:26:22 +0000 (+0000)
Subject: (tm-eword::words-to-ruled-words): New implementation for UTF-2000
X-Git-Tag: flim-1_14_6~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6bac758093ad4b479bd15b16ecb5c335cadbda3;p=elisp%2Fflim.git

(tm-eword::words-to-ruled-words): New implementation for UTF-2000
implementations.
---

diff --git a/eword-encode.el b/eword-encode.el
index 83ff53a..e95b458 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -177,6 +177,26 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 		       (cons charset mime-header-default-charset-encoding)))))
 	(list charset encoding))))
 
+;; [tomo:2002-11-05] The following code is a quick-fix for emacsen
+;; which is not depended on the Mule model.  We should redesign
+;; `eword-encode-split-string' to avoid to depend on the Mule model.
+(if (featurep 'utf-2000)
+;; for CHISE Architecture
+(defun tm-eword::words-to-ruled-words (wl &optional mode)
+  (let (mcs)
+    (mapcar (function
+	     (lambda (word)
+	       (setq mcs (detect-mime-charset-string (cdr word)))
+	       (make-ew-rword
+		(cdr word)
+		mcs
+		(cdr (or (assq mcs mime-header-charset-encoding-alist)
+			 (cons mcs mime-header-default-charset-encoding)))
+		mode)
+	       ))
+	    wl)))
+
+;; for legacy Mule
 (defun tm-eword::words-to-ruled-words (wl &optional mode)
   (mapcar (function
 	   (lambda (word)
@@ -184,6 +204,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 	       (make-ew-rword (cdr word) (car ret)(nth 1 ret) mode)
 	       )))
 	  wl))
+)
 
 (defun ew-space-process (seq)
   (let (prev a ac b c cc)