nnkiboze-close-group doing wierd things??

nnkiboze-close-group doing wierd things??

[Rick Flower]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 4023 bytes --]

Hi all!  

I'm running Gnus 5.0.13 and am running GNUS under VMS.. I notice that when
I complete running nnkiboze-generate-groups using the -batch feature of Emacs,
and then I fire up a real Emacs window and start up GNUS, that my NOV file
that was written by nnkiboze-generate-groups is being truncated to 0 bytes!

I've traced into this using E-debug and found that I get the following back-
trace :

  (if (edebug-after (edebug-before 39) 52 (or ... ...)) (edebug-after (edebug-before 53) 54 (forward-line 1)) (edebug-after (edebug-before 55) 68 (delete-region ... ...)))
  (while (edebug-after (edebug-before 36) 37 (looking-at "[0-9]+")) (edebug-after (edebug-before 38) 69 (if ... ... ...)))
  (let ((cur ...) article) (edebug-after (edebug-before 27) 30 (insert-file-contents ...)) (edebug-after (edebug-before 31) 34 (goto-char ...)) (edebug-after (edebug-before 35) 70 (while ... ...)) (edebug-after (edebug-before 71) 74 (write-file ...)) (edebug-after (edebug-before 75) 78 (kill-buffer ...)))
  (let ((unreads ...) (unselected ...) (version-control ...)) (edebug-after (edebug-before 14) 17 (set-buffer ...)) (edebug-after (edebug-before 18) 21 (buffer-disable-undo ...)) (edebug-after (edebug-before 22) 23 (erase-buffer)) (edebug-after (edebug-before 24) 79 (let ... ... ... ... ... ...)))
  (save-excursion (edebug-after (edebug-before 11) 80 (let ... ... ... ... ...)))
  (if (edebug-after (edebug-before 4) 9 (not ...)) nil (edebug-after (edebug-before 10) 81 (save-excursion ...)) (edebug-after (edebug-before 82) 83 (setq nnkiboze-current-group nil)))
  nnkiboze-close-group("simms" "forsale")
  gnus-close-group("nnkiboze$simms")
  gnus-get-unread-articles(6)
  gnus-setup-news(nil nil)
  byte-code("\b„\x0e
  gnus(nil)
  call-interactively(gnus)
  (let (prefix-arg prefix-argument) (call-interactively command))
  execute-extended-command(gnus nil)
* call-interactively(execute-extended-command)

Now, within the nnkiboze-close-group function, there are a few
lines of code that appear to be removing lines from the NOV file
that are already read.. Well, it is certainly doing just that, but
I've not read anything yet!  Below are the offending lines that 
are not working correctly.. I never seem to get to the "forward-line"
lisp statement.. I always get to the delete-region line instead..
My Elisp skills absolutely suck, and I'm really not comfortable
trying to figure out what the "if" statement is trying to do..

	  (while (looking-at "[0-9]+")
	    (if (or (memq (setq article (read cur)) unreads)
		    (memq article unselected))
		(forward-line 1)
	      (delete-region (progn (beginning-of-line) (point))
			     (progn (forward-line 1) (point)))))

Any ideas?  I think that I've got all of the pertinent information
here, if not, please let me know!

------------------- Environment follows -------------------

(setq gnus-mail-send-method 'sendmail-send-it)
(setq gnus-signature-file "sys$login:.signature")
(setq gnus-user-full-name "Richard E. Flower")
(setq gnus-user-login-name "flower")
(setq gnus-startup-hook '(#[nil "ÀÁÂ\"ˆÀÁÃ\"ˆÄ\x15ÀÆÂ\"‡" [remove-hook gnus-summary-prepare-hook hilit-rehighlight-buffer-quietly hilit-install-line-hooks (gnus-summary-mark-unread-as-read) gnus-mark-article-hook gnus-article-prepare-hook] 3]))
(setq gnus-hidden-properties '(invisible t))
(setq gnus-auto-center-summary nil)
(setq gnus-auto-select-next "quietly")
(setq gnus-novice-user nil)
(setq gnus-file-save-name 'gnus-plain-save-name)
(setq gnus-default-article-saver 'gnus-summary-save-in-file)
(setq gnus-kill-files-directory "dk_flower:[flower.news.defaults]")
(setq gnus-article-save-directory "dk_flower:[flower.news]")
(setq gnus-large-newsgroup 75)
(setq gnus-startup-file "dk_flower:[flower.news.defaults]newsrc")
(setq gnus-nntp-server "129.193.92.1")
(setq gnus-select-method '(nntp "129.193.92.1"))
(setq gnus-nntp-service 119)
(setq gnus-local-organization "TRW Inc., Redondo Beach, Ca. 90278")
(setq gnus-local-domain "sp.trw.com")
(setq gnus-default-nntp-server "129.193.40.41")