Re: mime-edit.el

>>>>> In [emacs-mime-ja : No.01722]
>>>>>	SATO Jun <[email protected]> wrote:

> J

> mh-e
> 

> # Emacsmh-enmh
> # nmh
> # ?

mh-e 


> --- 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")

 Content-Type 
 `contype' 
 (mime-delete-field "Content-Type") 
 draft 
mail-header-separator 
?  emh-setup.el  "--------" 
mime-edit.el 

;; In case of MH-E, you need the following hook definition:
;;
;; (add-hook 'mh-letter-mode-hook
;;           (function
;;            (lambda ()
;;              (turn-on-mime-edit)
;;              (make-local-variable 'mail-header-separator)
;;              (setq mail-header-separator "--------")
;;              ))))

 mh-mail-header-separator 
 MH (?)

;;  Content-Type 
;; 

> @@ -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)
>  		 )))
>  	)

 (concat "\n" mail-header-separator "\n")

mail-header-separator 

-- 
Katsumi Yamaoka <[email protected]>