Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 16727:45d9891b03b2
(mail-extract-address-components): Clear text props
after inserting ADDRESS.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Dec 1996 02:48:49 +0000 |
| parents | 9cfa629723bf |
| children | 92913b38a478 |
comparison
equal
deleted
inserted
replaced
| 16726:475649bca297 | 16727:45d9891b03b2 |
|---|---|
| 768 (insert address)) | 768 (insert address)) |
| 769 ((bufferp address) | 769 ((bufferp address) |
| 770 (insert-buffer-substring address)) | 770 (insert-buffer-substring address)) |
| 771 (t | 771 (t |
| 772 (error "Invalid address: %s" address))) | 772 (error "Invalid address: %s" address))) |
| 773 | |
| 774 (set-text-properties (point-min) (point-max) nil) | |
| 773 | 775 |
| 774 ;; stolen from rfc822.el | 776 ;; stolen from rfc822.el |
| 775 ;; Unfold multiple lines. | 777 ;; Unfold multiple lines. |
| 776 (goto-char (point-min)) | 778 (goto-char (point-min)) |
| 777 (while (re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ \t]" nil t) | 779 (while (re-search-forward "\\([^\\]\\(\\\\\\\\\\)*\\)\n[ \t]" nil t) |