From b94f28eef7ad39b05228394cf0450f9da2c2373f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 20 Jul 1995 17:54:10 +0000 Subject: [PATCH] (mail-fetch-field): Use buffer-substring-no-properties. --- lisp/mail/mail-utils.el | 5 +++-- 1 file 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. -- 2.39.2