From c324e02d1d5858f51a7bc51f9af744de35108c1e Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 18 Mar 1997 15:28:25 +0000 Subject: [PATCH] (mime-edit-translate-single-part-tag): Add DOC-string. --- mime-edit.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 3e2a78c..d2379fc 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.74 $ +;; Version: $Revision: 0.75 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.74 1997-03-18 15:10:39 morioka Exp $") + "$Id: mime-edit.el,v 0.75 1997-03-18 15:28:25 morioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -1822,22 +1822,24 @@ Content-Transfer-Encoding: 7bit )))) (defun mime-edit-translate-single-part-tag (&optional prefix) + "Translate single-part-tag to MIME header." (if (re-search-forward mime-edit-single-part-tag-regexp nil t) (let* ((beg (match-beginning 0)) (end (match-end 0)) (tag (buffer-substring beg end)) ) (delete-region beg end) - (setq contype (mime-edit-get-contype tag)) - (setq encoding (mime-edit-get-encoding tag)) - (insert (concat prefix "--" boundary "\n")) - (save-restriction - (narrow-to-region (point)(point)) - (insert "Content-Type: " contype "\n") - (if encoding - (insert "Content-Transfer-Encoding: " encoding "\n")) - (eword-encode-header) - ) + (let ((contype (mime-edit-get-contype tag)) + (encoding (mime-edit-get-encoding tag)) + ) + (insert (concat prefix "--" boundary "\n")) + (save-restriction + (narrow-to-region (point)(point)) + (insert "Content-Type: " contype "\n") + (if encoding + (insert "Content-Transfer-Encoding: " encoding "\n")) + (eword-encode-header) + )) t))) (defun mime-edit-translate-region (beg end &optional boundary multipart) -- 1.7.10.4