Sync up with gnus-6_10.

[elisp/gnus.git-] / lisp / gnus-soup.el

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 3d97829..1fdd83f 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -380,12 +380,12 @@ though the two last may be nil if they are missing."
          (push (vector (gnus-soup-field)
                        (gnus-soup-field)
                        (gnus-soup-field)
-                       (and (eq (preceding-char) ?\t)
+                       (and (eq (char-before) ?\t)
                             (gnus-soup-field))
-                       (and (eq (preceding-char) ?\t)
+                       (and (eq (char-before) ?\t)
                             (string-to-int (gnus-soup-field))))
                areas)
-         (when (eq (preceding-char) ?\t)
+         (when (eq (char-before) ?\t)
            (beginning-of-line 2)))
        (kill-buffer (current-buffer))))
     areas))
@@ -403,7 +403,7 @@ file.  The vector contain three strings, [prefix name encoding]."
        (push (vector (gnus-soup-field) (gnus-soup-field)
                      (gnus-soup-field))
              replies)
-       (when (eq (preceding-char) ?\t)
+       (when (eq (char-before) ?\t)
          (beginning-of-line 2)))
       (kill-buffer (current-buffer)))
     replies))