From xemacs-m  Fri Dec 27 13:23:23 1996
Received: from alphatech.com (erebus.alphatech.com [198.112.236.2])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with SMTP
	  id NAA00958 for <xemacs-beta@xemacs.org>; Fri, 27 Dec 1996 13:23:22 -0600 (CST)
Received: from venus.alphatech.com by alphatech.com (4.1/SMI-4.1)
	id AA10656; Fri, 27 Dec 96 14:19:28 EST
Received: from euler.alphatech.com by venus.alphatech.com (4.1/SMI-4.1)
	id AA15432; Fri, 27 Dec 96 14:26:16 EST
Received: by euler.alphatech.com (5.x/SMI-SVR4)
	id AA16980; Fri, 27 Dec 1996 14:18:35 -0500
Date: Fri, 27 Dec 1996 14:18:35 -0500
Message-Id: <9612271918.AA16980@euler.alphatech.com>
From: greg@alphatech.com (Greg Klanderman)
To: xemacs-beta@xemacs.org (XEmacs beta list)
Subject: patch for 19.15b4 modes/mail-abbrevs.el
Reply-To: greg@alphatech.com



I got this off one of the emacs newsgroups a while back.  It prevents
aliases from getting expanded multiple times, which is rather annoying.

Greg

============================================================
euler% /usr/local/gnu/bin/diff -u mail-abbrevs.el~ mail-abbrevs.el
--- mail-abbrevs.el~    Wed Nov  6 11:57:25 1996
+++ mail-abbrevs.el     Fri Dec 27 14:17:01 1996
@@ -358,7 +358,12 @@
        (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.
+        ;; patched by Greg Klanderman 12/27/1996
+        ;; patch compliments of friedman@gnu.ai.mit.edu (Noah Friedman) 
+        (let ((abbrev-mode nil))
+          (indent-relative))
        (setq fp (buffer-substring p (point)))
        ;; Go to the end of the new line.
        (end-of-line)

