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

diff -r 694f889fbd90 -r c75f4a59cea8 lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Wed Aug 08 08:14:03 2007 +0000
+++ b/lisp/mail/mailabbrev.el	Wed Aug 08 11:52:06 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 '(?@ ?. ?% ?! ?_ ?-))))