emy-1.13.8, US-ASCII entity

[Yoshiki Hayashi]

Yoshihiko Yamada <yyamada ＠ cac.co.jp> writes:

> EMY/1.13.8 で
> ISO-2022-JP の文書の途中で添付文書を
> mime-edit-insert-file　すると
> 
> 添付文書の後に
> 
> 　--Multipart_Wed_Oct_11_10:55:42_2000-1
> 　Content-Type: text/plain; charset=US-ASCII
> 
> なる　entity が　余分に付いてしまいます。
> (いわばブランクラインに上記　entity が付く)

状況を完全に把握しているかどうか自信が無いのですが、
例えば、
C-c C-x t plain RET C-o C-o C-c C-x C-i foo.txt 7bit RET
等とすると text/plain の part が3つできる、ということでしょ
うか?  それならば、次の patch で直ると思います。

ところで、次の entity までの間にある blank line は消した方が
良いでしょうか。それとも、現状のままで残るようにした方が良い
でしょうか。

-------------- next part --------------
Index: mime-edit.el
===================================================================
RCS file: /cvs/root/semi/mime-edit.el,v
retrieving revision 1.35.2.17.4.17
diff -u -r1.35.2.17.4.17 mime-edit.el
--- mime-edit.el	2000/10/10 04:57:32	1.35.2.17.4.17
+++ mime-edit.el	2000/10/12 04:35:22
@@ -1131,7 +1131,8 @@
        (let ((ret (insert-file-contents file)))
 	 (forward-char (cadr ret))
      (if (and (not (eobp))
-	      (not (looking-at mime-edit-single-part-tag-regexp)))
+	      (not (looking-at
+		    (concat "\n*" mime-edit-single-part-tag-regexp))))
 	 (insert (mime-make-text-tag) "\n")))))))
 
 (defun mime-edit-insert-file (file &optional verbose)
@@ -1359,8 +1360,8 @@
 	    (invisible-region (point-min) (point-max))
 	    (goto-char (point-max)))
 	(goto-char (point-max))))
-    (unless (or (looking-at mime-edit-tag-regexp)
-		(= (point)(point-max)))
+    (unless (or (looking-at (concat "\n*" mime-edit-tag-regexp))
+		(= (point) (point-max)))
       (insert "\n")
       (mime-edit-insert-tag "text" "plain"))
     ;; Define encoding even if it is 7bit.
@@ -1388,8 +1389,8 @@
 	    (invisible-region (point-min) (point-max))
 	    (goto-char (point-max)))
 	(goto-char (point-max))))
-    (unless (or (looking-at mime-edit-tag-regexp)
-		(= (point)(point-max)))
+    (unless (or (looking-at (concat "\n*" mime-edit-tag-regexp))
+		(= (point) (point-max)))
       (insert "\n")
       (mime-edit-insert-tag "text" "plain"))
     ;; Define encoding even if it is 7bit.

-------------- next part --------------

-- 
Yoshiki Hayashi