FORTUNE for WIN32

おみくじプログラムです.
	メール等の最後にランダムに文字を追加させために作ったプログラム
	です.

FILES
	fortune.exe	おみくじプログラム
	fortune.samp	おみくじファイルのサンプル
	readme.txt	このファイル

インストール方法
	1. 環境変数FORTUNEにおみくじのファイルを設定する場合
	   1) fortune.exeをPATHの通ったところに置く.
	   2) 環境変数FORTUNEにおみくじファイルを設定する.

	   例. おみくじファイルを“d:\work\fortune”とする場合.
	       SET FORTUNE=d:/work/fortune

	2. 環境変数HOMEを使う場合
	   1) fortune.exeをPATHの通ったところに置く.
	   2) 環境変数HOMEで指定されているディレクトリに“.fortune”と
	      いうおみくじファイルを置く.

使用方法
	fortuneを実行してください.標準出力におみくじファイルからランダ
	ムに一行表示されます.

動作環境
	Windows95(標準出力が扱えるもの(MSDOSプロンプト等))

著作権等
	このプログラムはフリーソフトウェアです.自由に配布等していただ
	いても結構です.なおプログラムの著作権は作者が保有しています.

無保証
	このプログラムは,正しく動作するように作っているつもりですが,こ
	のプログラムによる損害その他に対して作者は何の保証もしません.

	;;;
	;;; my-fortune
	;;;
	(defun my-fortune ()
	  "insert fortune program output"
	  (interactive)
	  (save-excursion
	    (goto-char (point-max))
	    (shell-command-on-region (point) (point-max) "fortune" t)))

	;;;
	;;; my-mail-signature
	;;;
	(defun my-mail-signature ()
	  "insert ~/.signature and fortune at end."
	  (interactive)
	  (save-excursion
	    (goto-char (point-max))
	    (insert-file-contents (expand-file-name "~/.signature"))
	    (goto-char (point-max))
	    (my-fortune)))

	(setq mew-draft-mode-hook
	      '(lambda ()
		 (define-key mew-draft-body-map "\C-c\t" 'my-mail-signature)
		 ))