From b6bac758093ad4b479bd15b16ecb5c335cadbda3 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 31 Dec 2002 08:26:22 +0000 Subject: [PATCH] (tm-eword::words-to-ruled-words): New implementation for UTF-2000 implementations. --- eword-encode.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) 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) -- 1.7.10.4