-(add-hook 'mh-letter-mode-hook
- (function
- (lambda ()
- (mime/editor-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------")
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "^-*$" nil t)
- (progn
- (replace-match mail-header-separator)
- (set-buffer-modified-p (buffer-modified-p))
- ))
- )
- )) t)
-
+(defun mime-setup-mh-draft-setting ()
+ (mime/editor-mode)
+ (make-local-variable 'mail-header-separator)
+ (setq mail-header-separator "--------")
+ (save-excursion
+ (goto-char (point-min))
+ (setq buffer-read-only nil)
+ (if (re-search-forward "^-*$" nil t)
+ (progn
+ (replace-match mail-header-separator)
+ (set-buffer-modified-p (buffer-modified-p))
+ ))
+ ))
+
+(add-hook 'mh-letter-mode-hook 'mime-setup-mh-draft-setting t)