Synch.

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

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 6de3f50..c07e1d8 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -156,11 +156,14 @@
            (forward-line 1)
            (if (looking-at
                 "by <a[^>]+>\\([^<]+\\)</a>[ \t\n]*.*(\\([^)]+\\))")
-               (setq from (concat (nnweb-decode-entities-string (match-string 1))
-                                  " <" (match-string 2) ">"))
+               (setq point (match-end 0) 
+                     from (concat 
+                           (nnweb-decode-entities-string (match-string 1))
+                           " <" (match-string 2) ">"))
              (looking-at "by \\(.+\\) on ")
-             (setq from (nnweb-decode-entities-string (match-string 1))))
-           (goto-char (- (match-end 0) 5))
+             (setq point (match-end 0) 
+                   from (nnweb-decode-entities-string (match-string 1))))
+           (goto-char (- point 5))
            (search-forward " on ")
            (setq date
                  (nnslashdot-date-to-date