diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/lisp/gnus.el dgnus/lisp/gnus.el
*** pub/dgnus/lisp/gnus.el	Sat Mar 25 15:37:09 1995
--- dgnus/lisp/gnus.el	Sat Mar 25 18:59:30 1995
***************
*** 1200,1206 ****
  (defconst gnus-maintainer "Lars Magne Ingebrigtsen <larsi@ifi.uio.no>"
    "The mail address of the Gnus maintainer.")
  
! (defconst gnus-version "(ding) Gnus v0.41"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
--- 1200,1206 ----
  (defconst gnus-maintainer "Lars Magne Ingebrigtsen <larsi@ifi.uio.no>"
    "The mail address of the Gnus maintainer.")
  
! (defconst gnus-version "(ding) Gnus v0.42"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
***************
*** 2359,2378 ****
  	 result)
      (if (null numbers)
  	nil
!       (while numbers
! 	(cond ((= last (car numbers)) nil) ;Omit duplicated number
! 	      ((= (1+ last) (car numbers)) ;Still in sequence
! 	       (setq last (car numbers)))
! 	      (t				;End of one sequence
! 	       (setq result 
! 		     (cons (if (= first last) first (cons first last)) result))
! 	       (setq first (car numbers))
! 	       (setq last  (car numbers))))
! 	(setq numbers (cdr numbers)))
!       (if (and (not always-list) (null result))
! 	  (if (= first last) first (cons first last))
! 	(nreverse (cons (if (= first last) first (cons first last))
! 			result))))))
  
  (defalias 'gnus-uncompress-sequence 'gnus-uncompress-range)
  (defun gnus-uncompress-range (ranges)
--- 2359,2380 ----
  	 result)
      (if (null numbers)
  	nil
!       (if (not (listp (cdr numbers)))
! 	  numbers
! 	(while numbers
! 	  (cond ((= last (car numbers)) nil) ;Omit duplicated number
! 		((= (1+ last) (car numbers)) ;Still in sequence
! 		 (setq last (car numbers)))
! 		(t			;End of one sequence
! 		 (setq result 
! 		       (cons (if (= first last) first (cons first last)) result))
! 		 (setq first (car numbers))
! 		 (setq last  (car numbers))))
! 	  (setq numbers (cdr numbers)))
! 	(if (and (not always-list) (null result))
! 	    (if (= first last) first (cons first last))
! 	  (nreverse (cons (if (= first last) first (cons first last))
! 			  result)))))))
  
  (defalias 'gnus-uncompress-sequence 'gnus-uncompress-range)
  (defun gnus-uncompress-range (ranges)
***************
*** 2890,2895 ****
--- 2892,2898 ----
  	  ()
  	(while marked
  	  (or (eq 'score (car (car marked)))
+ 	      (eq 'bookmark (car (car marked)))
  	      (not (or (atom (cdr (cdr (car marked))))
  		       (not (atom (car (cdr (car marked)))))))
  	      (setcdr (car marked) 
***************
*** 3290,3295 ****
--- 3293,3299 ----
  	  ()
  	(while marked
  	  (or (eq 'score (car (car marked)))
+ 	      (eq 'bookmark (car (car marked)))
  	      (setcdr (car marked) 
  		      (gnus-compress-sequence (sort (cdr (car marked)) '<) t)))
  	  (setq marked (cdr marked))))
***************
*** 5421,5431 ****
  	    ((eq 'killed (car prev))
  	     ;; Articles that have been through the kill process are
  	     ;; to be a subset of active articles.
! 	     (while (and m (< (cdr (car m)) (car active)))
  	       (setcdr prev (cdr m))
  	       (setq m (cdr m)))
! 	     (if (and m (< (car (car m)) (car active))) 
! 		 (setcar (car m) (car active))))
  	    ((or (eq 'reply (car marked)) (eq 'expire (car marked)))
  	     ;; The replied and expirable articles have to be articles
  	     ;; that are active. 
--- 5425,5439 ----
  	    ((eq 'killed (car prev))
  	     ;; Articles that have been through the kill process are
  	     ;; to be a subset of active articles.
! 	     (while (and m (< (or (and (numberp (car m)) (car m))
! 				  (cdr (car m)))
! 			      (car active)))
  	       (setcdr prev (cdr m))
  	       (setq m (cdr m)))
! 	     (if (and m (< (or (and (numberp (car m)) (car m))
! 			       (car (car m)))
! 			   (car active))) 
! 		 (setcar (and (numberp (car m)) m (car m)) (car active))))
  	    ((or (eq 'reply (car marked)) (eq 'expire (car marked)))
  	     ;; The replied and expirable articles have to be articles
  	     ;; that are active. 
***************
*** 6253,6259 ****
  		 (setq gnus-newsgroup-unselected
  		       (sort gnus-newsgroup-unselected '<)))
  		(setq gnus-newsgroup-unreads
! 		      (sort gnus-newsgroup-unreads '<))))))
      (or (listp (cdr gnus-newsgroup-killed))
  	(setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
      (let ((updated nil)
--- 6261,6267 ----
  		 (setq gnus-newsgroup-unselected
  		       (sort gnus-newsgroup-unselected '<)))
  		(setq gnus-newsgroup-unreads
! 		      (sort gnus-newsgroup-unreads '<))) t)))
      (or (listp (cdr gnus-newsgroup-killed))
  	(setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
      (let ((updated nil)
***************
*** 12417,12422 ****
--- 12425,12431 ----
  	  ()
  	(while marked
  	  (or (eq 'score (car (car marked)))
+ 	      (eq 'bookmark (car (car marked)))
  	      (setcdr (car marked) (gnus-uncompress-range (cdr (car marked)))))
  	  (setq marked (cdr marked))))
        (setq newsrc (cdr newsrc)))))
***************
*** 12430,12435 ****
--- 12439,12445 ----
  	  ()
  	(while marked
  	  (or (eq 'score (car (car marked)))
+ 	      (eq 'bookmark (car (car marked)))
  	      (setcdr (car marked) 
  		      (gnus-compress-sequence (sort (cdr (car marked)) '<) t)))
  	  (setq marked (cdr marked))))
diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/readme dgnus/readme
*** pub/dgnus/readme	Sat Dec 31 23:46:40 1994
--- dgnus/readme	Mon Dec 12 13:20:49 1994
***************
*** 1,67 ****
! This package contains a pre-release of (ding) Gnus, version 0.5. The
! lisp directory contains the source lisp files, and the texi directory
! contains an early draft of the Gnus info pages.
! 
! IMPORTANT NOTE FOR NNML USERS: If you have used an earlier version of
! this package, you have to do the following:
! 
! ESC ESC (load "nnml")
! M-x nnml-generate-nov-databases
! 
! nnml will chew on your mail for a while, and then you can use Gnus
! again. Do not attempt to start Gnus before you have done this.
! 
! (This note only applies to people who use nnml as a mail backedn.)
! 
! 
! Gnus is meant to be totally compatible with GNUS. But, alas, it
! probably isn't, which is one of the reasons for this pre-release. 
! 
! To use (ding) Gnus you first have to unpack the files, which you've
! obviously done, because you are reading this. 
! 
! You should definitely byte-compile the source files. To do that, you
! can simply say "make" in this directory.
! 
! Then you have to tell Emacs where Gnus is. You might put something
! like
! 
!    (setq load-path (cons (expand-file-name "~/dgnus/lisp") load-path))
! 
! in your .emacs file, or wherever you keep such things.
! 
! Note that (ding) Gnus and GNUS can not coexist in a single Emacs. They
! both use the same function and variable names. If you have been
! running GNUS in your Emacs, you should probably exit that Emacs and
! start a new one to fire up Gnus.
! 
! Then you do a `M-x gnus', and everything should... uhm... it should
! work, but it might not. Set `debug-on-error' to t, and mail me the
! backtraces, or, better yet, find out why Gnus does something wrong,
! fix it, and send me the diffs. :-)
! 
! There are three main things I want your help and input on:
! 
! 1) Startup. Does eveything go smoothly, and why not?
! 
! 2) Any errors while you read news normally?
! 
! 3) Any errors if you do anything abnormal?
! 
! 4) Features you do not like, or do like, but would like to tweak a
!    bit, and features you would like to see.
! 
! You do not have to send me typo corrections for the info pages. They
! are a very rough first draft - I haven't even read through it,
! although they should document all of Gnus, I think.
! 
! I think I have implemented most of the deep-going changes that I'm
! going to. Things that will probably come in the future, but I haven't
! gotten around to yet is asynchronous posting/pre-fetch of headers and
! articles, better digest handling, a hierarchal Newsgroup buffer,
! allowing the user to provide Newsgroup headers from a function, and a
! few other things that I can't think of at the moment. Oh, and the
! mhspool backend doesn't work at all yet.
! 
! Send any comments and all your bug fixes/complaints to
! `larsi@ifi.uio.no'. 
--- 1,3 ----
! Ting som ligger under denne katalogen burde du ikke se så veldig mye
! på. Den nyeste (pre-)releasen av (ding) Gnus finner du under
! «~larsi/pub/dgnus».
