From 8fb0b68ef6b42c9dca32f4d3407698754d983061 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 22 Feb 1997 16:59:39 +0000 Subject: [PATCH] (eword-field-encoding-method-alist): Renamed from `mime/field-encoding-method-alist'. --- eword-encode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index 890cc21..83d22a4 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 -;; 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) -- 1.7.10.4