(eword-field-encoding-method-alist): Renamed from

`mime/field-encoding-method-alist'.

diff --git a/eword-encode.el b/eword-encode.el
index 890cc21..83d22a4 100644 (file)
--- 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.0 $
+;; Version: $Revision: 0.1 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -35,14 +35,14 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.0 1997-02-22 16:57:58 morioka Exp $")
+  "$Id: eword-encode.el,v 0.1 1997-02-22 16:59:39 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
 ;;; @ variables
 ;;;
 
-(defvar mime/field-encoding-method-alist
+(defvar eword-field-encoding-method-alist
   (if (boundp 'mime/no-encoding-header-fields)
       (nconc
        (mapcar (function
@@ -556,14 +556,14 @@ when Subject field is encoded by `eword-encode-message-header'.")
          (setq end (std11-field-end))
          (and (find-non-ascii-charset-region beg end)
               (let ((ret (or (ASSOC (downcase field-name)
-                                    mime/field-encoding-method-alist
+                                    eword-field-encoding-method-alist
                                     :test (function
                                            (lambda (str1 str2)
                                              (and (stringp str2)
                                                   (string= str1
                                                            (downcase str2))
                                                   ))))
-                             (assq t mime/field-encoding-method-alist)
+                             (assq t eword-field-encoding-method-alist)
                              )))
                 (if ret
                     (let ((method (cdr ret)))
@@ -598,7 +598,7 @@ when Subject field is encoded by `eword-encode-message-header'.")
                                  str
                                  (or (cdr (ASSOC
                                            "x-nsubject"
-                                           mime/field-encoding-method-alist
+                                           eword-field-encoding-method-alist
                                            :test
                                            (function
                                             (lambda (str1 str2)