From: tomo <tomo>
Date: Tue, 19 Dec 2000 08:53:50 +0000 (+0000)
Subject: (mime-edit-translate-header): Use `mime-encode-header-in-buffer'
X-Git-Tag: semi-1_14_0~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=71e1c3b49c15996d49e5233876edbb378c1f5ea3;p=elisp%2Fsemi.git

(mime-edit-translate-header): Use `mime-encode-header-in-buffer'
instead of `eword-encode-header'.
(mime-edit-encrypt-pgp-mime): Likewise.
(mime-edit-translate-single-part-tag): Likewise.
---

diff --git a/mime-edit.el b/mime-edit.el
index d6899a3..70b7078 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1648,9 +1648,8 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 
 (defun mime-edit-translate-header ()
   "Encode the message header into network representation."
-  (eword-encode-header 'code-conversion)
-  (run-hooks 'mime-edit-translate-header-hook)
-  )
+  (mime-encode-header-in-buffer 'code-conversion)
+  (run-hooks 'mime-edit-translate-header-hook))
 
 (defun mime-edit-translate-buffer ()
   "Encode the tagged MIME message in current buffer in MIME compliant message."
@@ -1874,7 +1873,7 @@ Content-Transfer-Encoding: 7bit
               (insert (format "Content-Transfer-Encoding: %s\n" encoding))
             )
           (insert "\n")
-	  (eword-encode-header)
+	  (mime-encode-header-in-buffer)
 	  (or (let ((pgg-default-user-id 
 		     (or mime-edit-pgp-user-id
 			 (if from 
@@ -2122,8 +2121,7 @@ Content-Description: S/MIME Encrypted Message][base64]]\n")
 	    (insert "Content-Type: " contype "\n")
 	    (if encoding
 		(insert "Content-Transfer-Encoding: " encoding "\n"))
-	    (eword-encode-header)
-	    )
+	    (mime-encode-header-in-buffer))
 	  (cons (and contype
 		     (downcase contype))
 		(and encoding