X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=eword-encode.el;h=997c6e3f59e507245bb43da509dfab6f0d4892f5;hb=e9b4524fd90a96d74a0ab0b352b61e59c348a768;hp=25b441c5e4774923ba90a656b5655c43f2f864df;hpb=27f465cad931b6e3bbd54d816d3563f549a7ac5c;p=elisp%2Fsemi.git

diff --git a/eword-encode.el b/eword-encode.el
index 25b441c..997c6e3 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.9 $
+;; Version: $Revision: 0.10 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -30,12 +30,17 @@
 (require 'mime-def)
 (require 'cl)
 
+(defsubst find-non-ascii-charset-string (string)
+  "Return a list of charsets in the STRING except ascii."
+  (delq 'ascii (find-charset-string string))
+  )
+
 
 ;;; @ version
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.9 1997-02-24 10:07:33 tmorioka Exp $")
+  "$Id: eword-encode.el,v 0.10 1997-02-27 08:42:17 tmorioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))