* rgnus 0.6, spastic mouse-highlight.
1996-08-05 0:26 Red Gnus v0.6 is released Lars Magne Ingebrigtsen
@ 1996-08-05 15:29 ` C. R. Oldham
1996-08-05 17:36 ` Lars Magne Ingebrigtsen
1996-08-05 18:18 ` Red Gnus v0.6 is released Jan Vroonhof
1996-08-05 19:09 ` score-mode.el (new patch version) Jan Vroonhof
2 siblings, 1 reply; 5+ messages in thread
From: C. R. Oldham @ 1996-08-05 15:29 UTC (permalink / raw)
Greetings,
I've installed rgnus 0.6, and have noticed that during prefetching of
articles, the mouse-highlight flashes wildly. I assume this is a
permanent "feature" and it is somewhat annoying. Am I correct? Has
anyone else noticed this?
--
| Charles R. (C. R.) Oldham | North Central Association |
| cro@nca.asu.edu | Commission on Schools |
| cro@asu.edu | Arizona State University, Box 873011, |
| Voice: 602/965-8700 | Tempe, AZ 85287-3011 _ |
| Fax: 602/965-9423 | #include "disclaimer.h" X_>|
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: rgnus 0.6, spastic mouse-highlight.
1996-08-05 15:29 ` rgnus 0.6, spastic mouse-highlight C. R. Oldham
@ 1996-08-05 17:36 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 5+ messages in thread
From: Lars Magne Ingebrigtsen @ 1996-08-05 17:36 UTC (permalink / raw)
"C. R. Oldham" <cro@nca.asu.edu> writes:
> I've installed rgnus 0.6, and have noticed that during prefetching of
> articles, the mouse-highlight flashes wildly. I assume this is a
> permanent "feature" and it is somewhat annoying. Am I correct? Has
> anyone else noticed this?
Well, there's lots of `message'ing going on, which might explain it,
but it's certainly no feature. (The `message'ing will be turned off
when things get stable.)
--
"Yes. The journey through the human heart
would have to wait until some other time."
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Red Gnus v0.6 is released
1996-08-05 0:26 Red Gnus v0.6 is released Lars Magne Ingebrigtsen
1996-08-05 15:29 ` rgnus 0.6, spastic mouse-highlight C. R. Oldham
@ 1996-08-05 18:18 ` Jan Vroonhof
1996-08-05 19:09 ` score-mode.el (new patch version) Jan Vroonhof
2 siblings, 0 replies; 5+ messages in thread
From: Jan Vroonhof @ 1996-08-05 18:18 UTC (permalink / raw)
Cc: ding
Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 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 <vroonhof@math.ethz.ch (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 <larsi@ifi.uio.no>
* 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)
^ permalink raw reply [flat|nested] 5+ messages in thread* score-mode.el (new patch version)
1996-08-05 0:26 Red Gnus v0.6 is released Lars Magne Ingebrigtsen
1996-08-05 15:29 ` rgnus 0.6, spastic mouse-highlight C. R. Oldham
1996-08-05 18:18 ` Red Gnus v0.6 is released Jan Vroonhof
@ 1996-08-05 19:09 ` Jan Vroonhof
2 siblings, 0 replies; 5+ messages in thread
From: Jan Vroonhof @ 1996-08-05 19:09 UTC (permalink / raw)
Cc: ding
Sorry Lars, I forgot to update some things. Here is a new patch
(against 0.06). Please check, because I don't really understand the
updating of the alist through "side-effects" using setcdr etc.
Now hopefully there are no infinite loops left.
No differences encountered
*** gnus-score.el.orig Mon Aug 5 01:08:19 1996
--- gnus-score.el Mon Aug 5 20:59:59 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)
***************
*** 1843,1848 ****
--- 1843,1849 ----
;; Old entry, remove.
((and expire (< date expire))
(gnus-score-set 'touched '(t) alist)
+ (setcar fuzzies (cadr fuzzies))
(setcdr fuzzies (cddr fuzzies)))
(t
(setq fuzzies (cdr fuzzies))))))))
***************
*** 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)
--- 1853,1859 ----
(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)
--- 1869,1876 ----
(while (setq art (pop arts))
(setcdr art (+ score (cdr art))))))
;; Update expiry date
! (if trace
! (setq words (cdr words))
(cond
;; Permanent.
((null date)
***************
*** 1882,1887 ****
--- 1883,1889 ----
;; Old entry, remove.
((and expire (< date expire))
(gnus-score-set 'touched '(t) alist)
+ (setcar words (cadr words))
(setcdr words (cddr words)))
(t
(setq words (cdr words)))))))))
^ permalink raw reply [flat|nested] 5+ messages in thread