# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1186573885 0
# Node ID f3d6585c693152c9239c413985c4b444c9de441e
# Parent  480b6a56b1bf486448d0c6f77def04c712ef3a06
(sendmail-pre-abbrev-expand-hook): Check for
self-insert-command, not self-insert.

diff -r 480b6a56b1bf -r f3d6585c6931 lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Wed Aug 08 08:03:53 2007 +0000
+++ b/lisp/mail/mailabbrev.el	Wed Aug 08 11:51:25 2007 +0000
@@ -495,7 +495,7 @@
 
 	     (or (and (integerp last-command-char)
 		      ;; Some commands such as M-> may want to expand first.
-		      (equal this-command 'self-insert)
+		      (equal this-command 'self-insert-command)
 		      (or (eq (char-syntax last-command-char) ?_)
 			  ;; Don't expand on @.
 			  (memq last-command-char '(?@ ?. ?% ?! ?_ ?-))))