--- egg-remix.0206.el	Sat May 31 22:54:12 2003
+++ egg-remix.0207.el	Sun Jun 15 14:22:31 2003
@@ -1,5 +1,5 @@
 ;;; egg-remix.el --- Roman-Kana conversion input interface for Tamago4
-;; Copyright (C) 2000 Hiroki Hayashi
+;; Copyright (C) 2000-2003 Hiroki Hayashi
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -56,6 +56,11 @@
 ;;       "remix"                     Egg ReMix モード  
 
 ;; Change Log:
+;;   Jun 15 2003: version 0.207
+;;                ・t-gnus などの Message mode で正しく入力できない問題の
+;;                  回避コードを追加
+;;                ・Mew の添付領域で日本語入力モードになっていると、Mew の
+;;                  コマンドを入力できない問題の回避コードを追加
 ;;   May 31 2003: version 0.206
 ;;                ・複数の Emacs からユーザ辞書に変更を加えてもいちいち確認
 ;;                  されないように修正
@@ -94,9 +99,9 @@
 
 (require 'egg)
 
-(defconst remix-version "0.206"
+(defconst remix-version "0.207"
   "Egg ReMix のバージョン")
-(defconst remix-version-date "May 31 2003"
+(defconst remix-version-date "Jun 15 2003"
   "Egg ReMix の最終更新日")
 
 (activate-input-method default-input-method)
@@ -1125,6 +1130,29 @@
 (add-hook 'input-method-after-insert-chunk-hook 'remix-delete-cursor)
 (add-hook 'egg-enter/leave-fence-hook 'remix-enter/leave-fence)
 (add-hook 'kill-emacs-hook 'remix-save-dict)
+
+;;; 各種パッケージ用ワークアラウンド
+(defadvice message-tamago-not-in-use-p
+  (around message-remix-not-in-use-p (pos) activate)
+  "Gnusのメッセージ作成バッファで日本語が入力できるようにする"
+  (setq ad-return-value (not (or (memq (get-text-property pos 'intangible)
+				       '(remix-part-1 remix-part-2))
+				 (get-text-property pos 'remix-overlay)
+				 (get-text-property pos 'remix-context)
+				 (get-text-property pos 'remix-keyseq-before)
+				 (get-text-property pos 'remix-keyseq-after)
+				 (get-text-property pos 'remix-status)
+				 (get-text-property pos 'egg-end)
+				 (get-text-property pos 'egg-lang)
+				 (get-text-property pos 'egg-start)))))
+
+(defadvice remix-self-insert-char
+  (around remix-self-insert-char-mew-attach activate)
+  "Mewの添付領域で透過的にコマンドを実行できるようにする"
+  (if (and (fboundp 'mew-in-attach-p)
+	   (mew-in-attach-p))
+      (funcall (lookup-key mew-draft-attach-map (this-command-keys)))
+    ad-do-it))
 
 (provide 'egg-remix)