+2006-04-22 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * message.el (message-self-insert-commands): New variable.
+ (message-strip-forbidden-properties): Use it.
+
2006-04-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-put-addresses-in-ecomplete): Use a regexp
(const :tag "Use ecomplete" ecomplete)
(const :tag "No expansion" nil)))
+(defcustom message-self-insert-commands '(self-insert-command)
+ "List of `self-insert-command's used to trigger ecomplete.
+When one of those commands is invoked to enter a character in To or Cc
+header, ecomplete will suggest the candidates of recipients (see also
+`message-mail-alias-type'). If you use some tool to enter non-ASCII
+text and it replaces `self-insert-command' with the other command, e.g.
+`egg-self-insert-char', you may want to add it to this list."
+ :group 'message-various
+ :type '(repeat function))
+
(defcustom message-auto-save-directory
(file-name-as-directory (nnheader-concat message-directory "drafts"))
"*Directory where Message auto-saves buffers if Gnus isn't running.
This function is intended to be called from `after-change-functions'.
See also `message-forbidden-properties'."
(when (and (eq message-mail-alias-type 'ecomplete)
- (eq this-command 'self-insert-command))
+ (memq this-command message-self-insert-commands))
(message-display-abbrev))
(when (and message-strip-special-text-properties
(message-tamago-not-in-use-p begin))