From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4611 Path: main.gmane.org!not-for-mail From: Rick Flower Newsgroups: gmane.emacs.gnus.general Subject: nnkiboze-close-group doing wierd things?? Date: Tue, 9 Jan 1996 14:20:36 -0800 Message-ID: <199601092220.OAA08546@flotsam.sp.trw.com> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035145335 30259 80.91.224.250 (20 Oct 2002 20:22:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:22:15 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.7.3/8.6.9) with SMTP id PAA21336 for ; Tue, 9 Jan 1996 15:27:14 -0800 Original-Received: from emu.sp.trw.com (emu.sp.TRW.COM [129.4.20.46]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Tue, 9 Jan 1996 23:21:09 +0100 Original-Received: from flotsam.sp.trw.com (flotsam.sp.TRW.COM [129.4.22.136]) by emu.sp.trw.com (8.6.12/8.6.12) with ESMTP id OAA17721 for ; Tue, 9 Jan 1996 14:19:35 -0800 Original-Received: by flotsam.sp.trw.com (8.6.12) id OAA08546; Tue, 9 Jan 1996 14:20:36 -0800 Original-To: ding@ifi.uio.no Xref: main.gmane.org gmane.emacs.gnus.general:4611 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4611 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("„ 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 "ÀÁÂ\"ˆÀÁÃ\"ˆÄÀÆÂ\"‡" [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")