# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798413234 0
# Node ID ae5b033ad31fc54112af14bf7c19ce3a0adc7751
# Parent  9d8bb1074fd82b27c6cb337bf9d69d0e7ec3a25b
(sendmail-pre-abbrev-expand-hook): When setting the
dummy value for abbrev-start-location, use (point-max) rather than
(point), so we won't delete a "-" that happens to be at point.

diff -r 9d8bb1074fd8 -r ae5b033ad31f lisp/mail/mailabbrev.el
--- a/lisp/mail/mailabbrev.el	Thu Apr 20 21:15:39 1995 +0000
+++ b/lisp/mail/mailabbrev.el	Thu Apr 20 21:27:14 1995 +0000
@@ -458,7 +458,7 @@
 		   (expand-abbrev)
 		   ;; Now set it back to what it was before.
 		   (set-syntax-table mail-mode-header-syntax-table)))
-	     (setq abbrev-start-location (point) ; This is the trick.
+	     (setq abbrev-start-location (point-max) ; This is the trick.
 		   abbrev-start-location-buffer (current-buffer)))
 
 	 ;; We're not in a mail header where mail aliases should