# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 829244068 0
# Node ID 7bba84af4b946d31f5425e279a2f78f31a007477
# Parent  c833cd83414cca2acb196255dd7552f08658f730
(mail-fetch-field): Use skip-chars-backward
to back over whitespace; don't back up past opoint.

diff -r c833cd83414c -r 7bba84af4b94 lisp/mail/mail-utils.el
--- a/lisp/mail/mail-utils.el	Thu Apr 11 15:26:55 1996 +0000
+++ b/lisp/mail/mail-utils.el	Thu Apr 11 17:34:28 1996 +0000
@@ -183,8 +183,7 @@
 			      (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 @@
 			      (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.