diff options
Diffstat (limited to 'lisp')
| -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." | |||
| 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 |
| @@ -186,7 +187,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." | |||
| 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. |