;; 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).
;;;
(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))
(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)
(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
;; 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).
;;;
(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))
(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)
)
(insert "Content-Type: " contype "\n")
(if encoding
(insert "Content-Transfer-Encoding: " encoding "\n"))
- (eword-encode-message-header)
+ (eword-encode-header)
)
t)))