* gnus.el (gnus-keep-backlog): Change default to 20.

* gnus-agent.el (gnus-agent-check-overview-buffer): Start from
start.
(gnus-agent-check-overview-buffer): Remove negative article
numbers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f70a140..3f60f6c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-12-28  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus.el (gnus-keep-backlog): Change default to 20.
+
        * gnus-agent.el (gnus-agent-check-overview-buffer): Start from
        start. 
        (gnus-agent-check-overview-buffer): Remove negative article

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 1297c57..0131406 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -37,8 +37,7 @@
   (require 'cl))
 
 (eval-and-compile
-  (autoload 'gnus-server-update-server "gnus-srvr")
-  (autoload 'number-at-point "thingatpt"))
+  (autoload 'gnus-server-update-server "gnus-srvr"))
 
 (defcustom gnus-agent-directory (nnheader-concat gnus-directory "agent/")
   "Where the Gnus agent will store its files."
@@ -1076,38 +1075,37 @@ and that there are no duplicates."
     (save-excursion
       (when buffer
        (set-buffer buffer))
-      (save-excursion
-        (save-restriction
-         (widen)
-         (goto-char (point-min))
-
-         (while (< (point) (point-max))
-           (let ((p (point))
-                 (cur (condition-case nil
-                          (read (current-buffer))
-                        (error nil))))
-             (cond
-              ((or (not (integerp cur))
-                   (not (eq (char-after) ?\t)))
-               (gnus-message 1
-                             "Overview buffer contains garbage '%s'."
-                             (buffer-substring
-                              p (gnus-point-at-eol))))
-              ((= cur prev-num)
-               (gnus-message 1
-                             "Duplicate overview line for %d" cur)
-               (delete-region (point) (progn (forward-line 1) (point))))
-              ((< cur 0)
-               (gnus-message 1 "Junk article number %d" cur)
-               (delete-region (point) (progn (forward-line 1) (point))))
-              ((< cur prev-num)
-               (sort-numeric-fields 1 (point-min) (point-max))
-               (goto-char (point-min))
-               (setq prev-num -1)
-               (gnus-message 1 "Overview buffer not sorted!"))
-              (t
-               (setq prev-num cur)))
-             (forward-line 1))))))))
+      (save-restriction
+       (widen)
+       (goto-char (point-min))
+
+       (while (< (point) (point-max))
+         (let ((p (point))
+               (cur (condition-case nil
+                        (read (current-buffer))
+                      (error nil))))
+           (cond
+            ((or (not (integerp cur))
+                 (not (eq (char-after) ?\t)))
+             (gnus-message 1
+                           "Overview buffer contains garbage '%s'."
+                           (buffer-substring
+                            p (gnus-point-at-eol))))
+            ((= cur prev-num)
+             (gnus-message 1
+                           "Duplicate overview line for %d" cur)
+             (delete-region (point) (progn (forward-line 1) (point))))
+            ((< cur 0)
+             (gnus-message 1 "Junk article number %d" cur)
+             (delete-region (point) (progn (forward-line 1) (point))))
+            ((< cur prev-num)
+             (sort-numeric-fields 1 (point-min) (point-max))
+             (goto-char (point-min))
+             (setq prev-num -1)
+             (gnus-message 1 "Overview buffer not sorted!"))
+            (t
+             (setq prev-num cur)))
+           (forward-line 1)))))))
 
 (defun gnus-agent-flush-cache ()
   (save-excursion

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f462e35..7537473 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -142,7 +142,7 @@
      "^X-Request-PGP:" "^X-Fingerprint:" "^X-WRIEnvto:" "^X-WRIEnvfrom:"
      "^X-Virus-Scanned:" "^X-Delivery-Agent:" "^Posted-Date:" "^X-Gateway:"
      "^X-Local-Origin:" "^X-Local-Destination:" "^X-UserInfo1:"
-     "^X-Received-Date:")
+     "^X-Received-Date:" "^X-Hashcash:")
   "*All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 53d319f..2e62eed 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1401,7 +1401,7 @@ cache to the full extent of the law."
   :group 'gnus-meta
   :type 'boolean)
 
-(defcustom gnus-keep-backlog nil
+(defcustom gnus-keep-backlog 20
   "*If non-nil, Gnus will keep read articles for later re-retrieval.
 If it is a number N, then Gnus will only keep the last N articles
 read.  If it is neither nil nor a number, Gnus will keep all read