diff options
| -rw-r--r-- | lisp/mail/mail-utils.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 6feea415765..42bcbd38bd3 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el | |||
| @@ -183,8 +183,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." | |||
| 183 | (looking-at "[ \t]"))) | 183 | (looking-at "[ \t]"))) |
| 184 | ;; Back up over newline, then trailing spaces or tabs | 184 | ;; Back up over newline, then trailing spaces or tabs |
| 185 | (forward-char -1) | 185 | (forward-char -1) |
| 186 | (while (member (preceding-char) '(? ?\t)) | 186 | (skip-chars-backward " \t" opoint) |
| 187 | (forward-char -1)) | ||
| 188 | (setq value (concat value | 187 | (setq value (concat value |
| 189 | (if (string= value "") "" ", ") | 188 | (if (string= value "") "" ", ") |
| 190 | (buffer-substring-no-properties | 189 | (buffer-substring-no-properties |
| @@ -198,8 +197,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." | |||
| 198 | (looking-at "[ \t]"))) | 197 | (looking-at "[ \t]"))) |
| 199 | ;; Back up over newline, then trailing spaces or tabs | 198 | ;; Back up over newline, then trailing spaces or tabs |
| 200 | (forward-char -1) | 199 | (forward-char -1) |
| 201 | (while (member (preceding-char) '(? ?\t)) | 200 | (skip-chars-backward " \t" opoint) |
| 202 | (forward-char -1)) | ||
| 203 | (buffer-substring-no-properties opoint (point))))))))) | 201 | (buffer-substring-no-properties opoint (point))))))))) |
| 204 | 202 | ||
| 205 | ;; Parse a list of tokens separated by commas. | 203 | ;; Parse a list of tokens separated by commas. |