--- ../lisp.cvs_ref/gnus-agent.el	Wed Jan 15 21:41:57 2003
+++ gnus-agent.el	Wed Jan 15 22:18:17 2003
@@ -847,16 +847,19 @@
   "Fetch the current article as it is selected.
 This can be added to `gnus-select-article-hook' or
 `gnus-mark-article-hook'."
+  (kjg-gnus-summary-test "entering gnus-agent-fetch-selected-article")
   (let ((gnus-command-method gnus-current-select-method))
     (when (and gnus-plugged (gnus-agent-method-p gnus-command-method))
       (when (gnus-agent-fetch-articles
              gnus-newsgroup-name
 	     (list gnus-current-article))
+        (kjg-gnus-summary-test "gnus-agent-fetch-selected-article (after fetch)")
 	(setq gnus-newsgroup-undownloaded
 	      (delq gnus-current-article gnus-newsgroup-undownloaded))
 	(gnus-summary-update-article-line
 	 gnus-current-article
-	 (gnus-summary-article-header gnus-current-article))))))
+	 (gnus-summary-article-header gnus-current-article))
+        (kjg-gnus-summary-test "gnus-agent-fetch-selected-article (after update)")))))
 
 ;;;
 ;;; Internal functions
@@ -2091,7 +2094,6 @@
                                         day
                                       (let (found
                                             (days gnus-agent-expire-days))
-                                        (debug)
                                         (catch 'found
                                           (while (and (not found)
                                                       days)
*** ../lisp.cvs_ref/gnus-sum.el	Mon Jan 13 23:06:13 2003
--- gnus-sum.el	Wed Jan 15 22:21:49 2003
***************
*** 1526,1531 ****
--- 1526,1532 ----
  ;; Non-orthogonal keys
  
  (gnus-define-keys gnus-summary-mode-map
+   "z" kjg-gnus-summary-test
    " " gnus-summary-next-page
    "\177" gnus-summary-prev-page
    [delete] gnus-summary-prev-page
***************
*** 6776,6781 ****
--- 6777,6804 ----
        (gnus-summary-goto-subject article t)))
    (gnus-summary-limit (append articles gnus-newsgroup-limit))
    (gnus-summary-position-point))
+ 
+ (defun kjg-gnus-summary-test (&optional prefix)
+   (interactive)
+   (let ((bug nil))
+     (save-excursion
+       (goto-char (point-min))
+       (let ((b (get-buffer "*scratch*")))
+         (while (looking-at ".....\\([0-9]+\\)")
+           (let* ((art (string-to-int (match-string 1)))
+                  (data (gnus-data-find art))
+                  (pt (gnus-data-pos data))
+                  (pnt (1+ (point))))
+             (unless (eq pt pnt)
+               (let ((msg (format "Art#: %d pt: %d point: %d" art pt pnt)))
+                 (when (and prefix (not bug))
+                   (princ prefix b)
+                   (princ "\n" b))
+                 (setq bug t)
+                 (princ msg b)
+                 (princ "\n" b)))
+             (forward-line 1)))))
+     (gnus-message 1 (if bug "Problem" "All OK"))))
    
  (defun gnus-summary-goto-subject (article &optional force silent)
    "Go the subject line of ARTICLE.