From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7488 Path: main.gmane.org!not-for-mail From: Jan Vroonhof Newsgroups: gmane.emacs.gnus.general Subject: Re: Red Gnus v0.6 is released Date: 05 Aug 1996 20:18:03 +0200 Sender: vroonhof@math.ethz.ch Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.71) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035147794 7399 80.91.224.250 (20 Oct 2002 21:03:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:03:14 +0000 (UTC) Cc: ding@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id LAA30635 for ; Mon, 5 Aug 1996 11:32:30 -0700 Original-Received: from frege.math.ethz.ch (root@frege-math-bb.math.ethz.ch [129.132.148.14]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Mon, 5 Aug 1996 20:18:12 +0200 Original-Received: from riesz.math.ethz.ch (riesz.math.ethz.ch [129.132.145.81]) by frege.math.ethz.ch (8.6.4/Main-mathdept-mailer) with ESMTP id UAA07518; Mon, 5 Aug 1996 20:18:09 +0200 Original-Received: (vroonhof@localhost) by riesz.math.ethz.ch (8.6.12/D-MATH-client) id UAA06908; Mon, 5 Aug 1996 20:18:06 +0200 Original-To: Lars Magne Ingebrigtsen In-Reply-To: Lars Magne Ingebrigtsen's message of Mon, 5 Aug 1996 02:26:50 +0200 Original-Lines: 133 X-Mailer: Red Gnus v0.6/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:7488 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7488 Lars Magne Ingebrigtsen writes: > > Date: 05 Aug 1996 02:26:49 +0200 This is what you get for working late: *** ChangeLog.orig Mon Aug 5 02:13:31 1996 --- ChangeLog Mon Aug 5 19:55:14 1996 *************** *** 1,3 **** --- 1,8 ---- + Mon Aug 5 19:53:59 1996 Jan Vroonhof + + * gnus-score.el (gnus-score-string): fuzzy and word matching + entries were saved wrong. Overzealous copying corrected + Mon Aug 5 01:12:24 1996 Lars Magne Ingebrigtsen * nntp.el (nntp-request-type): Defined again. *** gnus-score.el.orig Mon Aug 5 01:08:19 1996 --- gnus-score.el Mon Aug 5 19:52:48 1996 *************** *** 1668,1674 **** id 's score (current-time-string) nil t))))) (defun gnus-score-string (score-list header now expire &optional trace) ! ;; Score ARTICLES according to HEADER in SCORE-LIST. ;; Update matching entries to NOW and remove unmatched entries older ;; than EXPIRE. --- 1668,1674 ---- id 's score (current-time-string) nil t))))) (defun gnus-score-string (score-list header now expire &optional trace) ! ;; Score ARTICLES auccording to HEADER in SCORE-LIST. ;; Update matching entries to NOW and remove unmatched entries older ;; than EXPIRE. *************** *** 1730,1739 **** (cond ;; Fuzzy matches. We save these for later. ((= dmt ?f) ! (push entries fuzzies)) ;; Word matches. Save these for even later. ((= dmt ?w) ! (push entries words)) ;; Exact matches. ((= dmt ?e) ;; Do exact matching. --- 1730,1739 ---- (cond ;; Fuzzy matches. We save these for later. ((= dmt ?f) ! (push kill fuzzies)) ;; Word matches. Save these for even later. ((= dmt ?w) ! (push kill words)) ;; Exact matches. ((= dmt ?e) ;; Do exact matching. *************** *** 1804,1810 **** (when fuzzies ;; Simplify the entire buffer for easy matching. (gnus-simplify-buffer-fuzzy) ! (while (setq kill (cadr fuzzies)) (let* ((match (nth 0 kill)) (type (nth 3 kill)) (score (or (nth 1 kill) gnus-score-interactive-default-score)) --- 1804,1810 ---- (when fuzzies ;; Simplify the entire buffer for easy matching. (gnus-simplify-buffer-fuzzy) ! (while (setq kill (car fuzzies)) (let* ((match (nth 0 kill)) (type (nth 3 kill)) (score (or (nth 1 kill) gnus-score-interactive-default-score)) *************** *** 1830,1836 **** (forward-line 1)) ;; Update expiry date (if trace ! (setq entries (cdr entries)) (cond ;; Permanent. ((null date) --- 1830,1836 ---- (forward-line 1)) ;; Update expiry date (if trace ! (setq fuzzies (cdr fuzzies)) (cond ;; Permanent. ((null date) *************** *** 1852,1858 **** (let ((hashtb (gnus-make-hashtable (* 10 (count-lines (point-min) (point-max)))))) (gnus-enter-score-words-into-hashtb hashtb) ! (while (setq kill (cadr words)) (let* ((score (or (nth 1 kill) gnus-score-interactive-default-score)) (date (nth 2 kill)) found) --- 1852,1858 ---- (let ((hashtb (gnus-make-hashtable (* 10 (count-lines (point-min) (point-max)))))) (gnus-enter-score-words-into-hashtb hashtb) ! (while (setq kill (car words)) (let* ((score (or (nth 1 kill) gnus-score-interactive-default-score)) (date (nth 2 kill)) found) *************** *** 1868,1875 **** (while (setq art (pop arts)) (setcdr art (+ score (cdr art)))))) ;; Update expiry date ! (if trace ! (setq entries (cdr entries)) (cond ;; Permanent. ((null date) --- 1868,1875 ---- (while (setq art (pop arts)) (setcdr art (+ score (cdr art)))))) ;; Update expiry date ! (if trace ! (setq words (cdr words)) (cond ;; Permanent. ((null date)