# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1178648107 0
# Node ID f79d4df148cb06dbb9c27b2be6d4b5c7a238355c
# Parent  32334cd7302e0bed962cd8d3e9363391ca156e12
(sendmail-pre-abbrev-expand-hook):
Don't include non-self-insert commands in the exception for `-'.

diff -r 32334cd7302e -r f79d4df148cb lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Tue May 08 01:35:26 2007 +0000
+++ b/lisp/mail/mailabbrev.el	Tue May 08 18:15:07 2007 +0000
@@ -494,6 +494,8 @@
 	     ;; the usual syntax table.
 
 	     (or (and (integerp last-command-char)
+		      ;; Some commands such as M-> may want to expand first.
+		      (equal this-command 'self-insert)
 		      (or (eq (char-syntax last-command-char) ?_)
 			  ;; Don't expand on @.
 			  (memq last-command-char '(?@ ?. ?% ?! ?_ ?-))))