diff options
| author | Richard M. Stallman | 1995-05-01 18:25:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-01 18:25:55 +0000 |
| commit | 2bc9b0c750ce2397db2dbcb668ff0463f4554532 (patch) | |
| tree | 9b847cc1499244e930d7bafc14469cbd33231bfd | |
| parent | 3b1142057780f2bc8fa0570c973f5eeafe6d5acb (diff) | |
| download | emacs-2bc9b0c750ce2397db2dbcb668ff0463f4554532.tar.gz emacs-2bc9b0c750ce2397db2dbcb668ff0463f4554532.zip | |
(expand-mail-aliases): Use buffer-substring-no-properties.
| -rw-r--r-- | lisp/mail/mailalias.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 84f12876eb6..cedc40ab9a9 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -73,7 +73,7 @@ removed from alias expansions." | |||
| 73 | seplen (- (point) epos)) | 73 | seplen (- (point) epos)) |
| 74 | (setq epos (marker-position end1) seplen 0)) | 74 | (setq epos (marker-position end1) seplen 0)) |
| 75 | (let (translation | 75 | (let (translation |
| 76 | (string (buffer-substring pos epos))) | 76 | (string (buffer-substring-no-properties pos epos))) |
| 77 | (if (and (not (assoc string disabled-aliases)) | 77 | (if (and (not (assoc string disabled-aliases)) |
| 78 | (setq translation | 78 | (setq translation |
| 79 | (cdr (assoc string mail-aliases)))) | 79 | (cdr (assoc string mail-aliases)))) |