From 85f75902ca8c8692ab038dd03459eb65a52243c1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 11 Nov 1997 02:51:06 +0000 Subject: [PATCH] (mail-extr-voodoo): Comment out &-substitution. --- lisp/mail/mail-extr.el | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index b7975928253..6989e8aefa3 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -1615,18 +1615,21 @@ If ADDRESS contains more than one RFC-822 address, only the first is (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) -- 2.39.2