(message-strip-forbidden-properties): Only display on

self-insert-command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2abb6d3..bda07f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-04-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-strip-forbidden-properties): Only display on
+       self-insert-command. 
+
        * hashcash.el (hashcash-insert-payment-async): Remove dead code;
        reindent. 
        (hashcash-insert-payment-async-2): Make sure the buffer is alive. 

diff --git a/lisp/message.el b/lisp/message.el
index f0e2514..5c9a491 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2517,7 +2517,8 @@ These properties are essential to work, so we should never strip them."
   "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 (eq message-mail-alias-type 'ecomplete)
+  (when (and (eq message-mail-alias-type 'ecomplete)
+            (eq this-command 'self-insert-command))
     (message-display-abbrev))
   (when (and message-strip-special-text-properties
             (message-tamago-not-in-use-p begin))