diff options
| author | Richard M. Stallman | 1996-12-19 02:48:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-19 02:48:49 +0000 |
| commit | 03007ccc8b8245230944797795da4416a28da608 (patch) | |
| tree | 557289fe27ec8fc362c14ca988a6f00eb6f2111a | |
| parent | 12154b449fc01a19f9d3310ca68a09e4ea2b963a (diff) | |
| download | emacs-03007ccc8b8245230944797795da4416a28da608.tar.gz emacs-03007ccc8b8245230944797795da4416a28da608.zip | |
(mail-extract-address-components): Clear text props
after inserting ADDRESS.
| -rw-r--r-- | lisp/mail/mail-extr.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 85700097f1c..931685c4de1 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -770,6 +770,8 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 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. |