summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-04-11 17:34:28 +0000
committerRichard M. Stallman <rms@gnu.org>1996-04-11 17:34:28 +0000
commit9cee7944ccb7104bc85c5e36ea596eed711da8ba (patch)
treefebb8799c01679de651930c6c57b8bc9f547c57b /lisp
parent36e08d6d3e0cf73bebd327d8c05ebe36b2049e6e (diff)
downloademacs-9cee7944ccb7104bc85c5e36ea596eed711da8ba.tar.gz
(mail-fetch-field): Use skip-chars-backward
to back over whitespace; don't back up past opoint.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mail/mail-utils.el6
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.