mime-edit.el

[SATO Jun]

J佐藤です。

mh-eで添付ファイルを送ろうとしたらエラーになったの
で、適当に修正してみました。

# 最近のEmacsのmh-eはnmhじゃないとちゃんと動作しない
# みたいなんですが、nmhの日本語パッチなんてのはどこ
# かにあるんでしょうか?

--- mime-edit.el.orig	Fri Nov 24 21:32:57 2000
+++ mime-edit.el	Fri Apr 23 09:54:44 2004
@@ -2099,8 +2099,10 @@
 	  (mime-delete-field "Content-Type")
 	  (mime-delete-field "Content-Transfer-Encoding"))
 	;; Then, insert Content-Type and Content-Transfer-Encoding fields.
-	(mail-position-on-field "Content-Type")
-	(insert contype)
+	(if (string= "" (mh-get-header-field "Content-Type"))
+	    (progn
+	      (mail-position-on-field "Content-Type")
+	      (insert contype)))
 	(if encoding
 	    (progn
 	      (mail-position-on-field "Content-Transfer-Encoding")
@@ -2558,7 +2560,7 @@
 (defun mime-edit-pgp-enclose-buffer ()
   (let ((beg (save-excursion
 	       (goto-char (point-min))
-	       (if (search-forward (concat "\n" mail-header-separator "\n"))
+	       (if (search-forward (concat "\n" mail-header-separator "\n") nil t)
 		   (match-end 0)
 		 )))
 	)

-- 
jun
ろけん・ろー！