Mercurial > hg > xemacs-beta

diff lisp/modes/mail-abbrevs.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents b82b59fe008d
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/modes/mail-abbrevs.el	Mon Aug 13 08:47:36 2007 +0200
+++ b/lisp/modes/mail-abbrevs.el	Mon Aug 13 08:47:52 2007 +0200
@@ -358,7 +358,10 @@
 	(insert "\n")
 	(delete-horizontal-space)
  	(setq p (point))
-	(indent-relative)
+	;; Prevent abbrev expansion from happening again, since
+	;; sendmail-pre-abbrev-expand-hook will already have done it.
+	(let ((abbrev-mode nil))
+	  (indent-relative))
 	(setq fp (buffer-substring p (point)))
 	;; Go to the end of the new line.
 	(end-of-line)