diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-20 17:54:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-20 17:54:10 +0000 |
| commit | 5085e29aee6f4fae76578781f5a40155a63e5169 (patch) | |
| tree | ce5607554c4217548c98162ee1f718efa0f4a306 /lisp/mail/mail-utils.el | |
| parent | 614874e3c29f830d0a0fc6cf6977a28467744d6b (diff) | |
| download | emacs-5085e29aee6f4fae76578781f5a40155a63e5169.tar.gz | |
(mail-fetch-field): Use buffer-substring-no-properties.
Diffstat (limited to 'lisp/mail/mail-utils.el')
| -rw-r--r-- | lisp/mail/mail-utils.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 3798ab78dce..6cf718060c7 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -174,7 +174,8 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." (forward-char -1)) (setq value (concat value (if (string= value "") "" ", ") - (buffer-substring opoint (point)))))) + (buffer-substring-no-properties + opoint (point)))))) (and (not (string= value "")) value)) (if (re-search-forward name nil t) (progn @@ -186,7 +187,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." (forward-char -1) (while (member (preceding-char) '(? ?\t)) (forward-char -1)) - (buffer-substring opoint (point))))))))) + (buffer-substring-no-properties opoint (point))))))))) ;; Parse a list of tokens separated by commas. ;; It runs from point to the end of the visible part of the buffer. |