2001-11-21 Katsumi Yamaoka <yamaoka@jpl.org>

	* message.el (message-tamago-not-in-use-p): New function.
	(message-strip-forbidden-properties): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2349413..b77488a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-tamago-not-in-use-p): New function.
+       (message-strip-forbidden-properties): Use it.
+

 2001-11-26  Didier Verna  <didier@xemacs.org>
 
        * gnus-start.el (gnus-check-first-time-used): only check for
 2001-11-26  Didier Verna  <didier@xemacs.org>
 
        * gnus-start.el (gnus-check-first-time-used): only check for

diff --git a/lisp/message.el b/lisp/message.el
index 256ad5b..b6256a9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1623,9 +1623,9 @@ Point is left at the beginning of the narrowed-to region."
 Emacs has a number of special text properties which can break message
 composing in various ways.  If this option is set, message will strip
 these properties from the message composition buffer.  However, some
 Emacs has a number of special text properties which can break message
 composing in various ways.  If this option is set, message will strip
 these properties from the message composition buffer.  However, some

-packages like Tamago requires these properties to be present in order
-to work.  If you use one of these packages, turn this option off, and
-hope the message composition doesn't break too bad."
+packages requires these properties to be present in order to work.
+If you use one of these packages, turn this option off, and hope the
+message composition doesn't break too bad."

   :group 'message-various
   :type 'boolean)
 
   :group 'message-various
   :type 'boolean)
 


@@ -1644,11 +1644,26 @@ hope the message composition doesn't break too bad."
   "Property list of with properties.forbidden in message buffers.
 The values of the properties are ignored, only the property names are used.")
 
   "Property list of with properties.forbidden in message buffers.
 The values of the properties are ignored, only the property names are used.")
 

+(defun message-tamago-not-in-use-p (pos)
+  "Return t when tamago version 4 is not in use at the cursor position.
+Tamago version 4 is a popular input method for writing Japanese text.
+It uses the properties `intangible', `invisible', `modification-hooks'
+and `read-only' when translating ascii or kana text to kanji text.
+These properties are essential to work, so we should never strip them."
+  (not (and (boundp 'egg-modefull-mode)
+           (symbol-value 'egg-modefull-mode)
+           (or (memq (get-text-property pos 'intangible)
+                     '(its-part-1 its-part-2))
+               (get-text-property pos 'egg-end)
+               (get-text-property pos 'egg-lang)
+               (get-text-property pos 'egg-start)))))
+

 (defun message-strip-forbidden-properties (begin end &optional old-length)
   "Strip forbidden properties between BEGIN and END, ignoring the third arg.
 This function is intended to be called from `after-change-functions'.
 See also `message-forbidden-properties'."
 (defun message-strip-forbidden-properties (begin end &optional old-length)
   "Strip forbidden properties between BEGIN and END, ignoring the third arg.
 This function is intended to be called from `after-change-functions'.
 See also `message-forbidden-properties'."

-  (when message-strip-special-text-properties
+  (when (and message-strip-special-text-properties
+            (message-tamago-not-in-use-p begin))

     (remove-text-properties begin end message-forbidden-properties)))
 
 ;;;###autoload
     (remove-text-properties begin end message-forbidden-properties)))
 
 ;;;###autoload