diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-11 17:34:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-11 17:34:28 +0000 |
| commit | 9cee7944ccb7104bc85c5e36ea596eed711da8ba (patch) | |
| tree | febb8799c01679de651930c6c57b8bc9f547c57b | |
| parent | 36e08d6d3e0cf73bebd327d8c05ebe36b2049e6e (diff) | |
| download | emacs-9cee7944ccb7104bc85c5e36ea596eed711da8ba.tar.gz | |
(mail-fetch-field): Use skip-chars-backward
to back over whitespace; don't back up past opoint.
| -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." (looking-at "[ \t]"))) ;; Back up over newline, then trailing spaces or tabs (forward-char -1) - (while (member (preceding-char) '(? ?\t)) - (forward-char -1)) + (skip-chars-backward " \t" opoint) (setq value (concat value (if (string= value "") "" ", ") (buffer-substring-no-properties @@ -198,8 +197,7 @@ If third arg ALL is non-nil, concatenate all such fields with commas between." (looking-at "[ \t]"))) ;; Back up over newline, then trailing spaces or tabs (forward-char -1) - (while (member (preceding-char) '(? ?\t)) - (forward-char -1)) + (skip-chars-backward " \t" opoint) (buffer-substring-no-properties opoint (point))))))))) ;; Parse a list of tokens separated by commas. |