tm 7.89.

[elisp/tm.git] / tm-ew-e.el

diff --git a/tm-ew-e.el b/tm-ew-e.el
index 255b569..9d4b466 100644 (file)
--- a/tm-ew-e.el
+++ b/tm-ew-e.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 7.54 $
+;; Version: $Revision: 7.55 $
 ;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
 
 ;; This file is part of tm (Tools for MIME).
@@ -19,8 +19,8 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Code:
@@ -35,7 +35,7 @@
 ;;;
 
 (defconst tm-ew-e/RCS-ID
-  "$Id: tm-ew-e.el,v 7.54 1996/09/16 08:59:18 morioka Exp $")
+  "$Id: tm-ew-e.el,v 7.55 1996/10/01 13:36:22 morioka Exp $")
 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
 
 
@@ -414,7 +414,7 @@ when Subject field is encoded by `mime/encode-message-header'.
                   (append dest
                           (list
                            (let ((ret (tm-eword::find-charset-rule
-                                       (find-charset-string str))))
+                                       (find-non-ascii-charset-string str))))
                              (tm-eword::make-rword
                               str (car ret)(nth 1 ret) 'phrase)
                              )
@@ -552,7 +552,7 @@ when Subject field is encoded by `mime/encode-message-header'.
          (setq beg (match-beginning 0))
          (setq field-name (buffer-substring beg (1- (match-end 0))))
          (setq end (std11-field-end))
-         (and (find-charset-region beg end)
+         (and (find-non-ascii-charset-region beg end)
               (let ((ret (or (ASSOC (downcase field-name)
                                     mime/field-encoding-method-alist
                                     :test (function