From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 20 Jul 1995 17:54:10 +0000 (+0000)
Subject: (mail-fetch-field): Use buffer-substring-no-properties.
X-Git-Tag: emacs-19.34~3246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b94f28eef7ad39b05228394cf0450f9da2c2373f;p=emacs.git

(mail-fetch-field): Use buffer-substring-no-properties.
---

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.