Mercurial > emacs
comparison lisp/mail/mail-utils.el @ 12613:1243b1f01079
(mail-fetch-field): Use buffer-substring-no-properties.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 20 Jul 1995 17:54:10 +0000 |
| parents | 7643239d5bf2 |
| children | d94531fd96a4 |
comparison
equal
deleted
inserted
replaced
| 12612:9d8cf42ed0ba | 12613:1243b1f01079 |
|---|---|
| 172 (forward-char -1) | 172 (forward-char -1) |
| 173 (while (member (preceding-char) '(? ?\t)) | 173 (while (member (preceding-char) '(? ?\t)) |
| 174 (forward-char -1)) | 174 (forward-char -1)) |
| 175 (setq value (concat value | 175 (setq value (concat value |
| 176 (if (string= value "") "" ", ") | 176 (if (string= value "") "" ", ") |
| 177 (buffer-substring opoint (point)))))) | 177 (buffer-substring-no-properties |
| 178 opoint (point)))))) | |
| 178 (and (not (string= value "")) value)) | 179 (and (not (string= value "")) value)) |
| 179 (if (re-search-forward name nil t) | 180 (if (re-search-forward name nil t) |
| 180 (progn | 181 (progn |
| 181 (if last (while (re-search-forward name nil t))) | 182 (if last (while (re-search-forward name nil t))) |
| 182 (let ((opoint (point))) | 183 (let ((opoint (point))) |
| 184 (looking-at "[ \t]"))) | 185 (looking-at "[ \t]"))) |
| 185 ;; Back up over newline, then trailing spaces or tabs | 186 ;; Back up over newline, then trailing spaces or tabs |
| 186 (forward-char -1) | 187 (forward-char -1) |
| 187 (while (member (preceding-char) '(? ?\t)) | 188 (while (member (preceding-char) '(? ?\t)) |
| 188 (forward-char -1)) | 189 (forward-char -1)) |
| 189 (buffer-substring opoint (point))))))))) | 190 (buffer-substring-no-properties opoint (point))))))))) |
| 190 | 191 |
| 191 ;; Parse a list of tokens separated by commas. | 192 ;; Parse a list of tokens separated by commas. |
| 192 ;; It runs from point to the end of the visible part of the buffer. | 193 ;; It runs from point to the end of the visible part of the buffer. |
| 193 ;; Whitespace before or after tokens is ignored, | 194 ;; Whitespace before or after tokens is ignored, |
| 194 ;; but whitespace within tokens is kept. | 195 ;; but whitespace within tokens is kept. |