Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 20242:5458685d9a67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extr-voodoo): Comment out &-substitution.
author Karl Heuer <kwzh@gnu.org>
date Tue, 11 Nov 1997 02:51:06 +0000
parents 8a0265f609ff
children 3b0ad3d46bde
comparison
equal deleted inserted replaced
20241:25b1541c8219 20242:5458685d9a67
1613 (delete-region cbeg cend) 1613 (delete-region cbeg cend)
1614 (if initial 1614 (if initial
1615 (insert initial ". "))))) 1615 (insert initial ". ")))))
1616 1616
1617 ;; Handle & substitution 1617 ;; Handle & substitution
1618 ((and (or (bobp) 1618 ;; This is turned off because an & from the passwd file
1619 (eq ?\ (preceding-char))) 1619 ;; should not really get into a mail address without
1620 (looking-at "&\\( \\|\\'\\)")) 1620 ;; being substituted, and people use it for other things.
1621 (mail-extr-delete-char 1) 1621 ;;; ((and (or (bobp)
1622 (capitalize-region 1622 ;;; (eq ?\ (preceding-char)))
1623 (point) 1623 ;;; (looking-at "&\\( \\|\\'\\)"))
1624 (progn 1624 ;;; (mail-extr-delete-char 1)
1625 (insert-buffer-substring canonicalization-buffer 1625 ;;; (capitalize-region
1626 mbox-beg mbox-end) 1626 ;;; (point)
1627 (point))) 1627 ;;; (progn
1628 (setq disable-initial-guessing-flag t) 1628 ;;; (insert-buffer-substring canonicalization-buffer
1629 (setq word-found-flag t)) 1629 ;;; mbox-beg mbox-end)
1630 ;;; (point)))
1631 ;;; (setq disable-initial-guessing-flag t)
1632 ;;; (setq word-found-flag t))
1630 1633
1631 ;; Handle *Stupid* VMS date stamps 1634 ;; Handle *Stupid* VMS date stamps
1632 ((looking-at mail-extr-stupid-vms-date-stamp-pattern) 1635 ((looking-at mail-extr-stupid-vms-date-stamp-pattern)
1633 (replace-match "" t)) 1636 (replace-match "" t))
1634 1637