Function `eword-encode-message-header' was renamed to

`eword-encode-header'.

diff --git a/eword-encode.el b/eword-encode.el
index bd2350a..d3b796d 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>
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>

-;; Version: $Revision: 0.6 $
+;; Version: $Revision: 0.7 $

 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).

@@ -35,7 +35,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
 ;;;
 
 (defconst eword-encode-RCS-ID

-  "$Id: eword-encode.el,v 0.6 1997-02-22 17:11:31 morioka Exp $")
+  "$Id: eword-encode.el,v 0.7 1997-02-24 02:36:07 tmorioka Exp $")

 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 

@@ -63,7 +63,7 @@ If method is nil, this field will not be encoded.")
 
 (defvar eword-generate-X-Nsubject nil
   "*If it is not nil, X-Nsubject field is generated
 
 (defvar eword-generate-X-Nsubject nil
   "*If it is not nil, X-Nsubject field is generated

-when Subject field is encoded by `eword-encode-message-header'.")
+when Subject field is encoded by `eword-encode-header'.")

 
 (defvar eword-charset-encoding-alist
   '((us-ascii          . nil)
 
 (defvar eword-charset-encoding-alist
   '((us-ascii          . nil)

@@ -531,7 +531,10 @@ when Subject field is encoded by `eword-encode-message-header'.")
     (if (and str (string-match eword-encoded-word-regexp str))
        str)))
 
     (if (and str (string-match eword-encoded-word-regexp str))
        str)))
 

-(defun eword-encode-message-header (&optional code-conversion)
+(defun eword-encode-header (&optional code-conversion)
+  "Encode header fields to network representation, such as MIME encoded-word.
+
+It refer variable `eword-field-encoding-method-alist'."

   (interactive "*")
   (save-excursion
     (save-restriction
   (interactive "*")
   (save-excursion
     (save-restriction

diff --git a/mime-edit.el b/mime-edit.el
index 04721c4..1434bbf 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;     Renamed: 1997/2/21 from tm-edit.el
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/08/21 renamed from mime.el
 ;;     Renamed: 1997/2/21 from tm-edit.el

-;; Version: $Revision: 0.41 $
+;; Version: $Revision: 0.42 $

 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
 ;; Keywords: MIME, multimedia, multilingual, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).

@@ -121,7 +121,7 @@
 ;;;
 
 (defconst mime-edit-RCS-ID
 ;;;
 
 (defconst mime-edit-RCS-ID

-  "$Id: mime-edit.el,v 0.41 1997-02-24 02:17:11 tmorioka Exp $")
+  "$Id: mime-edit.el,v 0.42 1997-02-24 02:40:38 tmorioka Exp $")

 
 (defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
 
 
 (defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
 

@@ -1415,7 +1415,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 
 (defun mime-edit-translate-header ()
   "Encode the message header into network representation."
 
 (defun mime-edit-translate-header ()
   "Encode the message header into network representation."

-  (eword-encode-message-header 'code-conversion)
+  (eword-encode-header 'code-conversion)

   (run-hooks 'mime-edit-translate-header-hook)
   )
 
   (run-hooks 'mime-edit-translate-header-hook)
   )
 

@@ -1769,7 +1769,7 @@ Content-Transfer-Encoding: 7bit
          (insert "Content-Type: " contype "\n")
          (if encoding
              (insert "Content-Transfer-Encoding: " encoding "\n"))
          (insert "Content-Type: " contype "\n")
          (if encoding
              (insert "Content-Transfer-Encoding: " encoding "\n"))

-         (eword-encode-message-header)
+         (eword-encode-header)

          )
        t)))
 
          )
        t)))