diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-25 18:21:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-25 18:21:17 +0000 |
| commit | cac858678fef30c177c85b3728f4dd4d00520933 (patch) | |
| tree | f9de38c773e318951c758e667a89af553549c2de /lisp/mail/mailalias.el | |
| parent | ff9b08f66a406cda516b268b536cdeeed23b3745 (diff) | |
| download | emacs-cac858678fef30c177c85b3728f4dd4d00520933.tar.gz | |
(build-mail-aliases): Use buffer-substring-no-properties not buffer-substring.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 77630023099..cc1988d28a9 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -120,7 +120,8 @@ By default, this is the file specified by `mail-personal-alias-file'." (cond ((get-file-buffer file) (insert (save-excursion (set-buffer (get-file-buffer file)) - (buffer-substring (point-min) (point-max))))) + (buffer-substring-no-properties + (point-min) (point-max))))) ((file-exists-p file) (insert-file-contents file)) ((file-exists-p (setq file (concat "~/" file))) (insert-file-contents file)) @@ -139,8 +140,8 @@ By default, this is the file specified by `mail-personal-alias-file'." ;; handle `source' directives -- Eddy/1994/May/25 (cond ((re-search-forward "^source[ \t]+" nil t) (re-search-forward "\\S-+") - (setq file - (buffer-substring (match-beginning 0) (match-end 0))) + (setq file (buffer-substring-no-properties + (match-beginning 0) (match-end 0))) (beginning-of-line) (insert "# ") ; to ensure we don't re-process this file (beginning-of-line)) @@ -153,7 +154,7 @@ By default, this is the file specified by `mail-personal-alias-file'." (end-of-line) (define-mail-alias name - (buffer-substring start (point)) + (buffer-substring-no-properties start (point)) t))) mail-aliases) (if buffer (kill-buffer buffer)) |