semi : mime-save-situation-examples problem

[Tsuyoshi CHO]

To:emacs-mime
Cc:Meadow-user

ども、長といいます。

# semi関係はここでよいのでしょうか?
semiの利用で不具合と思われる現象を確認したのでご相談です。
もしかしたら、すでに修正されていたり、環境に問題があるかもしれませんが御了承ください。

環境
 (Meadow-version)
 "Meadow-3.00-dev (菊)"

 (emacs-version)
 "GNU Emacs 22.0.90.1 (i386-mingw-nt5.1.2600)
  of 2006-11-24 on CUBE
 URL: http://svn.meadowy.org/Meadow/trunk
 Last Changed Rev: 4181
 Last Changed Date: 2006-11-19 13:58:59 +0900 (Sun, 19 Nov 2006)"

 Wanderlust/2.14.0 (Africa) SEMI/1.14.6 (丸岡) FLIM/1.14.8 (四条)

経緯と問題
 Meadow+Wanderlustが正常に利用できている状況で各種dotfileをSubversionの管理に
 置きました。

 すると以下のメッセージが出力され、y/nどちらでも終了できなくなりました。
==== Message ====
Buffer  *temp* modified; kill anyway? (y or n)
apply: Error running Subversion to check status of `.mime-example'
==== *Subversion Output* ====
svn: '~/.mime-example'
?\227?\129?\175?\228?\189?\156?\230?\165?\173?\227?\130?\179?\227?\131?\148?\227?\131?\188?\227?\129?\167?\227?\129?\175?\227?\129?\130?\227?\130?\138?\227?\129?\190?\227?\129?\155?\227?\130?\147

 当初、(~/.mime-example)がSubversionの管理下でないためかと思い、svn add/commitしましたが改善しませんでした。

 ここで、以下のようにすることで問題なく終了することが分りました
(remove-hook 'kill-emacs-hook 'mime-save-situation-examples)

 環境の問題からmeadow -qでの動作確認ができておりませんが、ソースから

mime-view.el
(defun mime-save-situation-examples ()
  (if (or mime-preview-situation-example-list
	  mime-acting-situation-example-list)
      (let ((file mime-situation-examples-file)
	    print-length print-level)
	(with-temp-buffer
	  (insert ";;; " (file-name-nondirectory file) "\n")
	  (insert "\n;; This file is generated automatically by "
		  mime-view-version "\n\n")
	  (insert ";;; Code:\n\n")
	  (if mime-preview-situation-example-list
	      (pp `(setq mime-preview-situation-example-list
			 ',mime-preview-situation-example-list)
		  (current-buffer)))
	  (if mime-acting-situation-example-list
	      (pp `(setq mime-acting-situation-example-list
			 ',mime-acting-situation-example-list)
		  (current-buffer)))
	  (insert "\n;;; "
		  (file-name-nondirectory file)
		  " ends here.\n")
	  (static-cond
	   ((boundp 'buffer-file-coding-system)
	    (setq buffer-file-coding-system
		  mime-situation-examples-file-coding-system))
	   ((boundp 'file-coding-system)
	    (setq file-coding-system
		  mime-situation-examples-file-coding-system)))
	  ;; (setq buffer-file-coding-system
	  ;;       mime-situation-examples-file-coding-system)
	  (setq buffer-file-name file)
	  (save-buffer)))))

 sessionのファイル (~/.session)などは終了時に保存できているようなので、
 semiの"temp-bufを名前を付けて保存する"というのがよろしくないのではないかと思います。

# cygwin下でないと発生しないかもしれません...

よろしければご確認おねがいします。

以上です。