From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Apr 1996 17:34:28 +0000 (+0000)
Subject: (mail-fetch-field): Use skip-chars-backward
X-Git-Tag: emacs-19.34~871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb83f5506c2fb955a8c227c0259af820bc5368be;p=emacs.git

(mail-fetch-field): Use skip-chars-backward
to back over whitespace; don't back up past opoint.
---

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.