From c62346641d50ffade1d72b33e589fb2b670f4346 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 25 May 1996 15:13:14 +0000 Subject: [PATCH] (mime-editor/insert-tag): Don't insert unnecessary line break. --- mime-edit.el | 23 ++++------------------- 1 file changed, 4 insertions(+), 19 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 3be3dd0..82ccb49 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -9,7 +9,7 @@ ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1994/08/21 renamed from mime.el by UMEDA Masanobu; ;;; 1996/05/24 renamed from tm-edit.el -;;; Version: $Revision: 0.4 $ +;;; Version: $Revision: 0.5 $ ;;; Keywords: mail, news, MIME, multimedia, multilingual ;;; ;;; This file is part of SEMI (September, Emacs MIME Interface) @@ -123,7 +123,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: mime-edit.el,v 0.4 1996-05-25 14:42:47 morioka Exp $") + "$Id: mime-edit.el,v 0.5 1996-05-25 15:13:14 morioka Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -975,7 +975,7 @@ If nothing is inserted, return nil." (let ((oldtag nil) (newtag nil) (current (point)) - exist-prev-tag exist-next-tag) + ) (setq pritype (or pritype (mime-prompt-for-type))) @@ -991,13 +991,7 @@ If nothing is inserted, return nil." (setq oldtag (save-excursion (if (mime-editor/goto-tag) - (progn - (if (eq current (match-beginning 0)) - (setq exist-next-tag t) - (setq exist-prev-tag t) - ) - (buffer-substring (match-beginning 0) (match-end 0)) - ) + (buffer-substring (match-beginning 0) (match-end 0)) ;; Assume content type is 'text/plan'. (mime-make-tag "text" "plain") ))) @@ -1006,15 +1000,6 @@ If nothing is inserted, return nil." (not (mime-test-content-type (mime-editor/get-contype oldtag) "text"))) (setq oldtag nil)) - (cond (exist-prev-tag (insert "\n")) - (exist-next-tag (save-excursion - (insert "\n") - ))) - (if (not (bolp)) - (if exist-prev-tag - (forward-line 1) - (insert "\n") - )) ;; Make a new tag. (if (or (not oldtag) ;Not text (or mime-ignore-same-text-tag -- 1.7.10.4