From 6a6c15420516a88708f3e1f0faf6118983e0f888 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Sat, 1 Mar 1997 02:12:48 +0000 Subject: [PATCH] (replace-space-with-underline): New inline function; copied from tl-str.el. --- mime-edit.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 1e06b02..ff450db 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.49 $ +;; Version: $Revision: 0.50 $ ;; 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 - "$Id: mime-edit.el,v 0.49 1997-02-28 02:20:47 tmorioka Exp $") + "$Id: mime-edit.el,v 0.50 1997-03-01 02:12:48 tmorioka Exp $") (defconst mime-edit-version (get-version-string mime-edit-RCS-ID)) @@ -522,6 +522,7 @@ Tspecials means any character that matches with it in header must be quoted.") (defconst mime-edit-mime-map (make-sparse-keymap) "Keymap for MIME commands.") + ;;; @ keymap and menu ;;; @@ -1721,6 +1722,15 @@ Content-Transfer-Encoding: 7bit )) ))) +(defsubst replace-space-with-underline (str) + (mapconcat (function + (lambda (arg) + (char-to-string + (if (eq arg ?\ ) + ?_ + arg)))) str "") + ) + (defun mime-edit-translate-body () "Encode the tagged MIME body in current buffer in MIME compliant message." (interactive) -- 1.7.10.4