]> git.eshelyaron.com Git - emacs.git/commitdiff
(mail-fetch-field): Use skip-chars-backward
authorRichard M. Stallman <rms@gnu.org>
Thu, 11 Apr 1996 17:34:28 +0000 (17:34 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 11 Apr 1996 17:34:28 +0000 (17:34 +0000)
to back over whitespace; don't back up past opoint.

lisp/mail/mail-utils.el

index 6feea415765dc9005dc4b7403c688f3b8651f190..42bcbd38bd3025c99108b157950cd472b54b9a92 100644 (file)
@@ -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)))))))))
 \f
 ;; Parse a list of tokens separated by commas.