gnus-summary-read-document and red 0.26

gnus-summary-read-document and red 0.26

[Jan Vroonhof]

[-- Attachment #1: Type: text/plain, Size: 6674 bytes --]

Red Gnus v0.26; nntp 5.0; nnvirtual 1.0; nndoc 1.0; nnfolder 1.0
XEmacs 19.14 [Lucid] (sparc-sun-solaris2.4) of Sat Jun 22 1996 on xemacs

I have found 3 more bugs in the use gnus-summary-read-document
unfortunatly

The most annoying is  an old one that is not completely fixed yet when
trying to leave the group created with gnus-summary-read-document:

Here is the back-trace

--- Backtrace ---
Signalling: (wrong-type-argument number-or-marker-p nil)
  gnus-list-of-unread-articles("nnvirtual:preprints.cond-mat-19960904T123547")
  nnvirtual-update-reads()
  nnvirtual-close-group("preprints.cond-mat-19960904T123547" "nnfolder:preprints.cond-mat-19960904T123547")
  gnus-close-group("nnfolder:preprints.cond-mat-19960904T123547")
  #<compiled-function (from "gnus-sum.elc") (&optional temporary) "...(363)" [gnus-set-global-variables gnus-kill-save-kill-buffer gnus-newsgroup-name group gnus-group-quit-config quit-config major-mode mode buf run-hooks gnus-summary-prepare-exit-hook gnus-single-article-buffer gnus-original-article-buffer buffer get-buffer buffer-name kill-buffer nil gnus-article-current gnus-use-cache gnus-cache-possibly-remove-articles gnus-cache-save-buffers gnus-async-prefetch-remove-group gnus-suppress-duplicates gnus-dup-enter-articles gnus-use-trees gnus-tree-close gnus-summary-update-info gnus-close-group gnus-group-buffer gnus-group-jump-to-group gnus-summary-exit-hook gnus-group-next-unread-group 1 temporary gnus-article-buffer gnus-kill-summary-on-exit gnus-deaden-summary gnus-summary-clear-local-variables bury-buffer gnus-summary-mode gnus-select-method gnus-current-select-method pop-to-buffer gnus-configure-windows force gnus-article-mode gnus-buffer-live-p gnus-summary-buffer] 4 "Exit reading current newsgroup, and then return to group selection mode.\ngnus-exit-group-hook is called with no arguments if that value is non-nil." nil>()
  call-interactively(gnus-summary-exit)

--- EOB ---

Somehow Gnus doesn't see that we are in an ephemeral group and calls
gnus-list-of-unread-articles anyway.

2. The second is a bug in generation of the intermediary group names
   that gives problem when you ahve read no atricles and mark a few
   groups. It is fixed by the following patch:

*** gnus-sum.el.orig    Tue Sep  3 05:09:38 1996
--- gnus-sum.el Wed Sep  4 12:22:37 1996
***************
*** 5646,5652 ****
                         (list (cons 'to-group ogroup))))
         article group egroup groups vgroup)
      (while (setq article (pop articles))
!       (setq group (format "%s-%d" gnus-newsgroup-name gnus-current-article))
        (gnus-summary-remove-process-mark article)
        (when (gnus-summary-display-article article)
        (save-excursion
--- 5646,5652 ----
                         (list (cons 'to-group ogroup))))
         article group egroup groups vgroup)
      (while (setq article (pop articles))
!       (setq group (format "%s-%d" gnus-newsgroup-name article))
        (gnus-summary-remove-process-mark article)
        (when (gnus-summary-display-article article)
        (save-excursion

 Note that the group naming is still different than
 gnus-summary-enter-digest-group (why?)

3. The third is simular to 2. It appears when you enter group,  don't
   read any articles, don't mark any thing and hit M-C-D on an
   article. In this case gnus-summary-read-document gives an error
   because there is no current article. IMHO it should behave
   gnus-summary-enter-digest-group in this case.

As a general question why don't gnus-summary-enter-digest-group en
gnus-summary-read-docment  share more code?





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

(setq gnus-default-nntp-server "news")
(setq gnus-local-organization "ETHZ Mathematik")
(setq gnus-group-faq-directory '("/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@sunsite.auc.dk:/pub/usenet/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@nctuccca.edu.tw:/USENET/FAQ/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/"))
(setq gnus-use-long-file-name t)
(setq gnus-use-adaptive-scoring t)
(setq gnus-use-nocem t)
(setq gnus-summary-prepare-exit-hook '(gnus-summary-expire-articles))
(setq gnus-auto-expirable-newsgroups "tex-nl\\|linux-kernel")
(setq gnus-group-change-level-function 'gnus-topic-change-level)
(setq gnus-fetch-old-headers 'some)
(setq gnus-summary-make-false-root 'dummy)
(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references)
(setq gnus-show-mime t)
(setq gnus-view-pseudo-asynchronously t)
(setq gnus-view-pseudos 'not-confirm)
(setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-total-score))
(setq gnus-summary-mode-hook '(gnus-xmas-setup-summary-toolbar gnus-xmas-summary-menu-add))
(setq gnus-summary-exit-hook '(gnus-picons-remove-all gnus-topic-update-topic))
(setq gnus-select-group-hook '(tm-gnus/decode-summary-from-and-subjects))
(setq gnus-parse-headers-hook '(gnus-decode-rfc1522))
(setq gnus-exit-group-hook '(gnus-uu-delete-work-dir gnus-uu-clean-up))
(setq gnus-group-mode-hook '(gnus-topic-mode gnus-xmas-setup-group-toolbar gnus-xmas-group-menu-add))
(setq gnus-group-catchup-group-hook '(gnus-topic-update-topic))
(setq gnus-exit-gnus-hook '((lambda nil
			      (if
				  (frame-live-p toolbar-news-frame)
				  (delete-frame toolbar-news-frame)))))
(setq gnus-show-mime-method 'tm-gnus/preview-article)
(setq gnus-decode-encoded-word-method 'tm-gnus/article-decode-encoded-word)
(setq gnus-article-mode-hook '(gnus-xmas-article-menu-add))
(setq gnus-article-prepare-hook '(tm-gnus/article-reset-variable gnus-article-hide-citation-maybe gnus-smiley-display gnus-article-de-quoted-unreadable gnus-group-display-picons))
(setq gnus-check-new-newsgroups 'ask-server)
(setq gnus-save-newsrc-file nil)
(setq gnus-startup-hook '(#
			  [nil "ÀÁ!‡"
			       [require tm-gnus]
			       2]
			  tm-gnus/bbdb-setup))
(setq nnmail-expiry-wait-function '(lambda
				     (group)
				     (cond
				      ((string= group "tex-nl")
				       7)
				      ((string= group "linux-kernel")
				       4)
				      (t 6))))
(setq nnmail-spool-file 'procmail)
(setq nnmail-crash-box "~/scratch/Mail/.nnmail-crash-box")
(setq nnmail-procmail-directory "~/scratch/Mail/")
(setq nnmail-treat-duplicates 'delete)
(setq message-deletable-headers '(Message-ID Date))
(setq message-autosave-directory "~/Mail/drafts/")
(setq message-forward-start-separator "

[-- Attachment #2: Type: message/rfc822, Size: 1 bytes --]