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 Sun Mar 26 08:36:04 1995 --- dgnus/lisp/gnus.el Sun Mar 26 22:02:41 1995 *************** *** 1200,1206 **** (defconst gnus-maintainer "Lars Magne Ingebrigtsen " "The mail address of the Gnus maintainer.") ! (defconst gnus-version "(ding) Gnus v0.43" "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.44" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 2472,2478 **** (defun gnus-add-to-range-old (ranges list) "Return a list of ranges that has all articles from both RANGES and LIST. Note: LIST has to be sorted over `<'." ! (let* ((ranges (if (and ranges (atom (car ranges))) (list ranges) ranges)) (inrange ranges) did-one range nranges first last) --- 2472,2479 ---- (defun gnus-add-to-range-old (ranges list) "Return a list of ranges that has all articles from both RANGES and LIST. Note: LIST has to be sorted over `<'." ! (let* ((ranges (if (and ranges (not (listp (cdr ranges)))) ! (list ranges) ranges)) (inrange ranges) did-one range nranges first last) *************** *** 6168,6174 **** ;; If the range of read articles is a single range, then the ;; first unread article is the article after the last read ;; article. Sounds logical, doesn't it? ! (if (atom (car read)) (setq first (1+ (cdr read))) ;; `read' is a list of ranges. (while read --- 6169,6175 ---- ;; If the range of read articles is a single range, then the ;; first unread article is the article after the last read ;; article. Sounds logical, doesn't it? ! (if (not (listp (cdr read))) (setq first (1+ (cdr read))) ;; `read' is a list of ranges. (while read *************** *** 12079,12085 **** (setq num 0)) ((not range) (setq num (- (1+ (cdr active)) (car active)))) ! ((atom (car range)) ;; Fix a single (num . num) range according to the ;; active hash table. (and (< (cdr range) (car active)) (setcdr range (car active))) --- 12080,12086 ---- (setq num 0)) ((not range) (setq num (- (1+ (cdr active)) (car active)))) ! ((not (listp (cdr range))) ;; Fix a single (num . num) range according to the ;; active hash table. (and (< (cdr range) (car active)) (setcdr range (car active))) *************** *** 12096,12102 **** (>= (car active) (or (and (atom (car (cdr range))) (car (cdr range))) (car (car (cdr range)))))) ! (setcdr (car range) (cdr (car (cdr range)))) (setcdr range (cdr (cdr range)))) ;; Adjust the first element to be the same as the lower limit. (if (and (not (atom (car range))) --- 12097,12111 ---- (>= (car active) (or (and (atom (car (cdr range))) (car (cdr range))) (car (car (cdr range)))))) ! (if (numberp (car range)) ! (setcar range ! (cons (car range) ! (or (and (numberp (car (cdr range))) ! (car (cdr range))) ! (cdr (car (cdr range)))))) ! (setcdr (car range) ! (or (and (numberp (nth 1 range)) (nth 1 range)) ! (cdr (car (cdr range)))))) (setcdr range (cdr (cdr range)))) ;; Adjust the first element to be the same as the lower limit. (if (and (not (atom (car range))) diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/lisp/nnvirtual.el dgnus/lisp/nnvirtual.el *** pub/dgnus/lisp/nnvirtual.el Sun Mar 26 08:36:05 1995 --- dgnus/lisp/nnvirtual.el Sun Mar 26 21:53:04 1995 *************** *** 304,321 **** (setq itotal (1+ (- (cdr active) (car active)))) (if (setq ireads (nth 2 info)) (let ((itreads ! (if (atom (car ireads)) (setq ireads (list (cons (car ireads) (cdr ireads)))) (setq ireads (copy-alist ireads))))) ! (if (< (cdr (car ireads)) (car active)) (setq ireads (setq itreads (cdr ireads)))) ! (if (and ireads (< (car (car ireads)) (car active))) ! (setcar (car ireads) (1+ (car active)))) (while itreads ! (setcar (car itreads) ! (+ (- (car (car itreads)) (car active)) offset)) ! (setcdr (car itreads) ! (+ (- (cdr (car itreads)) (car active)) offset)) (setq itreads (cdr itreads))) (setq reads (nconc reads ireads)))) (setq offset (+ offset (1- itotal))) --- 304,328 ---- (setq itotal (1+ (- (cdr active) (car active)))) (if (setq ireads (nth 2 info)) (let ((itreads ! (if (not (listp (cdr ireads))) (setq ireads (list (cons (car ireads) (cdr ireads)))) (setq ireads (copy-alist ireads))))) ! (if (< (or (and (numberp (car ireads)) (car ireads)) ! (cdr (car ireads))) (car active)) (setq ireads (setq itreads (cdr ireads)))) ! (if (and ireads (< (or (and (numberp (car ireads)) ! (car ireads)) ! (car (car ireads))) (car active))) ! (setcar (or (and (numberp (car ireads)) ireads) ! (car ireads)) (1+ (car active)))) (while itreads ! (setcar (or (and (numberp (car itreads)) itreads) ! (car itreads)) ! (+ (- (or (and (numberp (car itreads)) (car itreads)) ! (car (car itreads))) (car active)) offset)) ! (if (not (numberp (car itreads))) ! (setcdr (car itreads) ! (+ (- (cdr (car itreads)) (car active)) offset))) (setq itreads (cdr itreads))) (setq reads (nconc reads ireads)))) (setq offset (+ offset (1- itotal))) 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».