From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/63247 Path: news.gmane.org!not-for-mail From: michael.cadilhac@lrde.org (=?iso-8859-1?Q?Micha=EBl?= Cadilhac) Newsgroups: gmane.emacs.gnus.general Subject: Re: nnrss and some (partially redundant) RSS feeds. Date: Tue, 23 May 2006 15:31:58 +0200 Organization: Epita/LRDE Message-ID: <87irnw27g1.fsf_-_@lrde.org> References: <87wtdxmxol.fsf@mahaena.lrde> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: sea.gmane.org 1148391189 6449 80.91.229.2 (23 May 2006 13:33:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 23 May 2006 13:33:09 +0000 (UTC) Original-X-From: ding-owner+m11774@lists.math.uh.edu Tue May 23 15:33:03 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FiX05-0001Vb-KL for ding-account@gmane.org; Tue, 23 May 2006 15:32:44 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FiX00-0004An-00; Tue, 23 May 2006 08:32:36 -0500 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FiWzK-0004Ai-00 for ding@lists.math.uh.edu; Tue, 23 May 2006 08:31:54 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1FiWzG-0002kE-TR for ding@lists.math.uh.edu; Tue, 23 May 2006 08:31:54 -0500 Original-Received: from 2.139.39-62.rev.gaoland.net ([62.39.139.2] helo=kualalumpur.lrde.epita.fr) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FiWz3-0004eT-00 for ; Tue, 23 May 2006 15:31:37 +0200 Original-Received: from mahaena.lrde.epita.fr ([192.168.101.66] helo=mahaena.lrde) by kualalumpur.lrde.epita.fr with esmtp (Exim 4.50) id 1FiWyw-0008Bn-5P for ding@gnus.org; Tue, 23 May 2006 15:31:30 +0200 Original-To: ding@gnus.org Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAElBMVEVWPh+Tai+5r5YKBAEU CQQzGAtiq7gjAAACR0lEQVQ4jW2UzW7lIAyFzVW8BzTZX5DmCZLuU2H2pMXv/ypzbK7aSh2kRCRf /HNsE0q7Sg+RQ7JFKaqtrRNAl5AIIKe6D5DBqgbmUAe5hBI1wIRFAHjeM0RKtZi7XVVEpb0BSNfA IddChChT5DildSLWOWhY5IEItMnncZgFcUAc/5jjwCMsDosRNdfKPDTFEdVBW8C+RebDb4N5Orio RhM1+11IJyx0ng2+LryFHBMPDQDYHrY6IfGuU3ouiXTQNE8LIJDKOWpNxERTFrggQwRPd7USUsTW fJ0XbR3bdj5KgBYy4SACpxDeUYEUAzLmtJ1iIrD2gczPq8Qomjhsh/RjGIgKIO8p7NITjwlx7WID nsnQe5NeuTvoBpi8LX6vLLOh5icjOHqBypgnuSp7M+RE1agbQKHQr5E2z1WObhYW4gMqeGQL7joM jCf2DxSk5ApADSYHfFF4igNfJZL1z0GKP0FN02s4XiDXr7V5P94W6I9v8MfBOQDmfwAaVYt+x8Da v4DJvX8BAdin3Knm5yMZYAO4ABDkDniZLLfi4P40gP1F0TPGZOu0CGwA1lcowxwlGy6A9705mD0V jHCxwVZT/hYdRJVUGZNlx6l7ScQBTluof6Wj6bsPYlvpwoTvXFD9gHPn2TZPF3ntI2ecxVrW5MrV XiCie5EeNa7BlWu/HNSkprDUva163PHxAv5jyGV7gVzyAghSKOTnat85UIYFICXbD2NV9rRiv0BS tKQsg6OHH4A15F1WW+UHKHHa32h6aPnAm3/pUcWp+WYnTQAAAABJRU5ErkJggg== In-Reply-To: (Reiner Steib's message of "Mon, 10 Apr 2006 19:05:14 +0200") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) X-Spam-Score: -2.5 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:63247 Archived-At: --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Hi! I come back to you as my assignment paper is, at last, signed, returned and validated. This message is a follow-up of my message of March: http://article.gmane.org/gmane.emacs.gnus.general/62464 The patch is again attached: --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=nnrss-md5.patch Content-Transfer-Encoding: quoted-printable Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 7.1099 diff -c -r7.1099 ChangeLog *** ChangeLog 27 Mar 2006 09:42:59 -0000 7.1099 --- ChangeLog 27 Mar 2006 16:54:36 -0000 *************** *** 0,0 **** --- 1,6 ---- + 2006-03-27 Michael Cadilhac (tiny change) +=20 + * nnrss.el (nnrss-check-group): Use the md5sum of the whole RSS + item as its hash index. Store this hash in `nnrss-group-data'. + (nnrss-read-group-data): Update accordingly. +=20 Index: nnrss.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /usr/local/cvsroot/gnus/lisp/nnrss.el,v retrieving revision 7.43 diff -c -r7.43 nnrss.el *** nnrss.el 16 Jan 2006 22:57:40 -0000 7.43 --- nnrss.el 27 Mar 2006 16:54:36 -0000 *************** *** 576,582 **** (insert-file-contents file) (eval-region (point-min) (point-max)))) (dolist (e nnrss-group-data) ! (puthash (or (nth 2 e) (nth 6 e)) t nnrss-group-hashtb) (when (and (car e) (> nnrss-group-min (car e))) (setq nnrss-group-min (car e))) (when (and (car e) (< nnrss-group-max (car e))) --- 576,582 ---- (insert-file-contents file) (eval-region (point-min) (point-max)))) (dolist (e nnrss-group-data) ! (puthash (nth 9 e) t nnrss-group-hashtb) (when (and (car e) (> nnrss-group-min (car e))) (setq nnrss-group-min (car e))) (when (and (car e) (< nnrss-group-max (car e))) *************** *** 658,664 **** =20=20 (defun nnrss-check-group (group server) (let (file xml subject url extra changed author date feed-subject ! enclosure comments rss-ns rdf-ns content-ns dc-ns) (if (and nnrss-use-local (file-exists-p (setq file (expand-file-name (nnrss-translate-file-chars --- 658,664 ---- =20=20 (defun nnrss-check-group (group server) (let (file xml subject url extra changed author date feed-subject ! enclosure comments rss-ns rdf-ns content-ns dc-ns hash-index) (if (and nnrss-use-local (file-exists-p (setq file (expand-file-name (nnrss-translate-file-chars *************** *** 690,704 **** (dolist (item (nreverse (nnrss-find-el (intern (concat rss-ns "item")= ) xml))) (when (and (listp item) (string=3D (concat rss-ns "item") (car item)) ! (if (setq url (nnrss-decode-entities-string ! (nnrss-node-text rss-ns 'link (cddr item)))) ! (not (gethash url nnrss-group-hashtb)) ! (setq extra (or (nnrss-node-text content-ns 'encoded item) ! (nnrss-node-text rss-ns 'description item))) ! (not (gethash extra nnrss-group-hashtb)))) (setq subject (nnrss-node-text rss-ns 'title item)) ! (setq extra (or extra ! (nnrss-node-text content-ns 'encoded item) (nnrss-node-text rss-ns 'description item))) (if (setq feed-subject (nnrss-node-text dc-ns 'subject item)) (setq extra (concat feed-subject "

" extra))) --- 690,701 ---- (dolist (item (nreverse (nnrss-find-el (intern (concat rss-ns "item")= ) xml))) (when (and (listp item) (string=3D (concat rss-ns "item") (car item)) ! (progn (setq hash-index (md5 (gnus-prin1-to-string item))) ! (not (gethash hash-index nnrss-group-hashtb)))) (setq subject (nnrss-node-text rss-ns 'title item)) ! (setq url (nnrss-decode-entities-string ! (nnrss-node-text rss-ns 'link (cddr item)))) ! (setq extra (or (nnrss-node-text content-ns 'encoded item) (nnrss-node-text rss-ns 'description item))) (if (setq feed-subject (nnrss-node-text dc-ns 'subject item)) (setq extra (concat feed-subject "

" extra))) *************** *** 740,748 **** date (and extra (nnrss-decode-entities-string extra)) enclosure ! comments) nnrss-group-data) ! (puthash (or url extra) t nnrss-group-hashtb) (setq changed t)) (setq extra nil)) (when changed --- 737,746 ---- date (and extra (nnrss-decode-entities-string extra)) enclosure ! comments ! hash-index) nnrss-group-data) ! (puthash hash-index t nnrss-group-hashtb) (setq changed t)) (setq extra nil)) (when changed --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable I use it since March and don't have any problem. Thanks in advance. --=20 | Micha=EBl `Micha' Cadilhac | Le copillage-collage = | | Epita/LRDE Promo 2007 | tue le programmeur. = | | http://www.lrde.org/~cadilh_m | -- Dictons LRDE = | `-- - JID: micha@amessage.be --' - -= -' --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2 (GNU/Linux) iD8DBQFEcw7RZYNf4qobZ7kRAjYVAJ9r5K6+8AVuMDeoGhH14h5+svMF3wCg0dRt cIl0yKzrL9lprqd8IAvxSGs= =Ay/v -----END PGP SIGNATURE----- --==-=-=--