Mercurial > emacs
changeset 20242:5458685d9a67
(mail-extr-voodoo): Comment out &-substitution.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 11 Nov 1997 02:51:06 +0000 |
| parents | 25b1541c8219 |
| children | 7658be8b972d |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 15 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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)