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 | b94f28eef7ad39b05228394cf0450f9da2c2373f (patch) | |
| tree | 69550ab7a2c6c6c40f7836387627e1f238972310 /lisp/mail/mail-utils.el | |
| parent | e2d79b751984a5d87b28d2186641d443c5a7e3c1 (diff) | |
| download | emacs-b94f28eef7ad39b05228394cf0450f9da2c2373f.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. |