# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 879216666 0
# Node ID 5458685d9a67c839e02d2b2d9b86d81255701491
# Parent  25b1541c82192016bed3fa9272411dea0481f732
(mail-extr-voodoo): Comment out &-substitution.

diff -r 25b1541c8219 -r 5458685d9a67 lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Mon Nov 10 23:28:59 1997 +0000
+++ b/lisp/mail/mail-extr.el	Tue Nov 11 02:51:06 1997 +0000
@@ -1615,18 +1615,21 @@
 		(insert initial ". ")))))
 	 
 	 ;; Handle & substitution
-	 ((and (or (bobp)
-		   (eq ?\  (preceding-char)))
-	       (looking-at "&\\( \\|\\'\\)"))
-	  (mail-extr-delete-char 1)
-	  (capitalize-region
-	   (point)
-	   (progn
-	     (insert-buffer-substring canonicalization-buffer
-				      mbox-beg mbox-end)
-	     (point)))
-	  (setq disable-initial-guessing-flag t)
-	  (setq word-found-flag t))
+	 ;; This is turned off because an & from the passwd file
+	 ;; should not really get into a mail address without
+	 ;; being substituted, and people use it for other things.
+;;;	 ((and (or (bobp)
+;;;		   (eq ?\  (preceding-char)))
+;;;	       (looking-at "&\\( \\|\\'\\)"))
+;;;	  (mail-extr-delete-char 1)
+;;;	  (capitalize-region
+;;;	   (point)
+;;;	   (progn
+;;;	     (insert-buffer-substring canonicalization-buffer
+;;;				      mbox-beg mbox-end)
+;;;	     (point)))
+;;;	  (setq disable-initial-guessing-flag t)
+;;;	  (setq word-found-flag t))
 	 
 	 ;; Handle *Stupid* VMS date stamps
 	 ((looking-at mail-extr-stupid-vms-date-stamp-pattern)