mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-07-20 17:54:10 +00:00
parent e2d79b7519
commit b94f28eef7
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/mail-utils.el
View file

@ -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.