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 " "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 " "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».