Newsgroups: fj.editor.emacs,fj.news.misc
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo-news!omrongw!fujii
From: fujii@nff.ncl.omron.co.jp (Naoto-Eunos-Fujii)
Subject: select by # of article in thread
Message-ID: <FUJII.94Feb4212655@bud.nff.ncl.omron.co.jp>
Lines: 122
Sender: news@omrongw.wg.omron.co.jp (News Manager)
Nntp-Posting-Host: bud.ews.ncl.omron.co.jp
Reply-To: fujii@nff.ncl.omron.co.jp
Organization: OMRON Corporation, Kyoto Japan.
Distribution: fj
Date: Fri, 4 Feb 1994 12:26:55 GMT
Lines: 122
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4401 fj.news.misc:446
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4401&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B$U$8$$!w#O#M#R#O#N$G$9(B.

$B!V$"!A%9%-!<9T$C$F$?$i$3$N(B newsgroup $B$?$/$5$sL$FI$?$^$C$?$J!A!W(B
$B!VA4ItFI$s$G$k2K$O$H$F$b$J$$$1$I(B, $B%1%s%+(B^H^H^H$B5DO@$,J(F-$7$F$$$k(B
  $B%9%l%C%I$@$1FI$_$?$$$J!A!W(B
$B$H$$$&;~$K(B GNUS $B$G(B, $B;XDj$7$??t0J>e$N5-;v$,$"$k%9%l%C%I$@$1I=<($7$F(B
$B$/$l$k$h$&$K(B gnus.el $B$r$$$8$C$F$_$^$7$?(B.

M-SPC $B$G(B $B!V$$$/$D0J>e$N%9%l%C%I!)(B: 0$B!W$C$FJ9$$$F$/$k$N$G(B,
default $B$N(B 0 $B$rJQ99$9$k$H(B, $B$=$N?t0J>e$N%U%)%m!<(B($B855-;v4^$`(B)$B$,$"$k(B
$B%9%l%C%I$@$1$rI=<($7$F$/$l$^$9(B. 


article mode $B$NA0$K(B subject mode $B$,$"$C$F(B, $B5-;v?t$rI=<($7$F$/$l$k(B
$B%K%e!<%9%j!<%@!<;H$($P$$$$$s$G$9$,(B, $B$d$C$Q(B GNUS $B$,$$$$$7(B :)

$BA4It$N5-;v$@$7$F(B, d $B$G>C$7$F$$$C$F$b$$$$$s$G$9$,(B, $BI=<($5$l$F$k$H(B
$B$D$$FI$s$G$7$^$&$7(B. (^^;

gnus.3.14.4 $B$X$N(B patch $B$G$9(B.
$B!t(Belisp $B$O$h$/$o$+$C$F$J$$$N$G(B, $BL5BL$J$H$3$,$"$C$?$i65$($F2<$5$$(B

--- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< ---
*** gnus.elFri Feb  4 20:50:22 1994
--- gnus.el.origFri Feb  4 20:50:28 1994
***************
*** 113,121 ****
  (require 'nntp)
  (require 'mail-utils)
  
- (defvar gnus-thread-number 1
-   "*If thread have articles less than this number, delete it's articles.")
- 
  (defvar gnus-nntp-server (getenv "NNTPSERVER")
    "*The name of the host running NNTP server.
  If it is a string such as `:DIRECTORY', the user's private DIRECTORY
--- 113,118 ----
***************
*** 932,938 ****
    (setq gnus-Group-mode-map (make-keymap))
    (suppress-keymap gnus-Group-mode-map)
    (define-key gnus-Group-mode-map " " 'gnus-Group-read-group)
-   (define-key gnus-Group-mode-map "\e " 'gnus-Group-read-group-many)
    (define-key gnus-Group-mode-map "=" 'gnus-Group-select-group)
    (define-key gnus-Group-mode-map "j" 'gnus-Group-jump-to-group)
    (define-key gnus-Group-mode-map "n" 'gnus-Group-next-unread-group)
--- 929,934 ----
***************
*** 1426,1440 ****
  
  ;; GNUS Group mode command
  
- (defun gnus-Group-read-group-many (all &optional no-article)
-   "Read news in this newsgroup only many threads."
-   (interactive "P")
-   (setq gnus-thread-number
- (string-to-int
-  (read-from-minibuffer "$B$$$/$D0J>e$N%9%l%C%I!)(B: " "0")))
-   (gnus-Group-read-group all nil)
-   (setq gnus-thread-number 0))
- 
  (defun gnus-Group-read-group (all &optional no-article)
    "Read news in this newsgroup.
  If argument ALL is non-nil, already read articles become readable.
--- 1422,1427 ----
***************
*** 5894,5923 ****
      (mapcar
       (function
        (lambda (root)
! (gnus-make-threads-p root dependencies))) (nreverse roots))
!     ))
! 
! (defun gnus-make-threads-p (root dependencies)
!   (let ((children nil)
! (d nil)
! (depends dependencies))
!     ;; Find children.
!     (while depends
!       (setq d (car depends))
!       (setq depends (cdr depends))
!       (and (cdr d)
!    (eq (nntp-header-id root) (nntp-header-id (cdr d)))
!    (setq children (cons (car d) children))))
!     ;; Go down.
!     (setq child-threads (mapcar
!     (function
!      (lambda (child)
!        (gnus-make-threads-1 child dependencies))) children))
! 
!     (if (= gnus-thread-number 0)
! (cons root child-threads)
!       (if (>= (natom child-threads) (- gnus-thread-number 1))
!   (cons root child-threads)))
      ))
  
  (defun gnus-make-threads-1 (parent dependencies)
--- 5881,5887 ----
      (mapcar
       (function
        (lambda (root)
! (gnus-make-threads-1 root dependencies))) (nreverse roots))
      ))
  
  (defun gnus-make-threads-1 (parent dependencies)
***************
*** 5938,5947 ****
      (lambda (child)
        (gnus-make-threads-1 child dependencies))) children))
      ))
- 
- (defun natom (l)
-   (if (atom l) (if (eq nil l) 0 1)
-     (+ (natom (car l)) (natom (cdr l)))))
  
  (defun gnus-narrow-to-page (&optional arg)
    "Make text outside current page invisible except for page delimiter.
--- 5902,5907 ----
--- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< --- 8< ---
--
$BF#0f(B $BD>?M(B : $B$"$j$"$j$J$N$G$"$k"v(B
E-Mail: fujii@ews.ncl.omron.co.jp
