Narrow to point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfb8711..7655973 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-13 11:41:32  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnweb.el (nnweb-insert): Narrow to point.
+
 1999-12-13 10:59:42  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * nnweb.el (nnweb-insert): Follow refresh url.

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index a864154..b6e79b9 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -210,7 +210,7 @@
        (when (looking-at "<a[^>]+>\\([^<]+\\)")
          (setq from (nnweb-decode-entities-string (match-string 1))))
        (search-forward " on ")
-       (setq date (nnslashdot-date-to-dat
+       (setq date (nnslashdot-date-to-date
                    (buffer-substring (point) (1- (search-forward "<")))))
        (forward-line 2)
        (setq lines (count-lines (point)

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 36047f5..5a56941 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -751,6 +751,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
   (let ((name buffer-file-name))
     (if follow-refresh
        (save-restriction
+         (narrow-to-region (point) (point))
          (url-insert-file-contents url)
          (goto-char (point-min))
          (while (re-search-forward