Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 923:9f3cc03dae67
entered into RCS
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 04 Aug 1992 04:15:43 +0000 |
| parents | 20674ae6bf52 |
| children | 24f248525608 |
comparison
equal
deleted
inserted
replaced
| 922:52cd80cb5be1 | 923:9f3cc03dae67 |
|---|---|
| 428 saved-%-pos saved-!-pos saved-@-pos | 428 saved-%-pos saved-!-pos saved-@-pos |
| 429 domain-pos \.-pos insert-point) | 429 domain-pos \.-pos insert-point) |
| 430 | 430 |
| 431 (save-excursion | 431 (save-excursion |
| 432 (set-buffer extraction-buffer) | 432 (set-buffer extraction-buffer) |
| 433 (buffer-flush-undo extraction-buffer) | 433 (buffer-disable-undo extraction-buffer) |
| 434 (set-syntax-table address-syntax-table) | 434 (set-syntax-table address-syntax-table) |
| 435 (widen) | 435 (widen) |
| 436 (erase-buffer) | 436 (erase-buffer) |
| 437 (setq case-fold-search nil) | 437 (setq case-fold-search nil) |
| 438 | 438 |
| 695 | 695 |
| 696 ;; TODO: remove comments in the middle of an address | 696 ;; TODO: remove comments in the middle of an address |
| 697 | 697 |
| 698 (set-buffer canonicalization-buffer) | 698 (set-buffer canonicalization-buffer) |
| 699 | 699 |
| 700 (buffer-flush-undo canonicalization-buffer) | 700 (buffer-disable-undo canonicalization-buffer) |
| 701 (set-syntax-table address-syntax-table) | 701 (set-syntax-table address-syntax-table) |
| 702 (setq case-fold-search nil) | 702 (setq case-fold-search nil) |
| 703 | 703 |
| 704 (widen) | 704 (widen) |
| 705 (erase-buffer) | 705 (erase-buffer) |
| 1079 suffix-flag last-name-comma-flag | 1079 suffix-flag last-name-comma-flag |
| 1080 comment-beg comment-end initial beg end | 1080 comment-beg comment-end initial beg end |
| 1081 ) | 1081 ) |
| 1082 (save-excursion | 1082 (save-excursion |
| 1083 (set-buffer variant-buffer) | 1083 (set-buffer variant-buffer) |
| 1084 (buffer-flush-undo variant-buffer) | 1084 (buffer-disable-undo variant-buffer) |
| 1085 (set-syntax-table address-text-syntax-table) | 1085 (set-syntax-table address-text-syntax-table) |
| 1086 (widen) | 1086 (widen) |
| 1087 (erase-buffer) | 1087 (erase-buffer) |
| 1088 (setq case-fold-search nil) | 1088 (setq case-fold-search nil) |
| 1089 | 1089 |