From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/53063 Path: main.gmane.org!not-for-mail From: Hanak David Newsgroups: gmane.emacs.gnus.general Subject: Re: emacs.gnus Date: Mon, 09 Jun 2003 14:24:10 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: References: <84of182xjx.fsf@lucy.is.informatik.uni-duisburg.de> <84znkrk3vr.fsf@lucy.is.informatik.uni-duisburg.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1055161366 6878 80.91.224.249 (9 Jun 2003 12:22:46 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 9 Jun 2003 12:22:46 +0000 (UTC) Original-X-From: ding-owner+M1607@lists.math.uh.edu Mon Jun 09 14:22:44 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19PLfD-0001kN-00 for ; Mon, 09 Jun 2003 14:22:15 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19PLhH-0003ed-00; Mon, 09 Jun 2003 07:24:23 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19PLh8-0003eV-00 for ding@lists.math.uh.edu; Mon, 09 Jun 2003 07:24:14 -0500 Original-Received: (qmail 14178 invoked by alias); 9 Jun 2003 12:24:14 -0000 Original-Received: (qmail 14173 invoked from network); 9 Jun 2003 12:24:13 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by sclp3.sclp.com with SMTP; 9 Jun 2003 12:24:13 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 19PLyf-0005OB-00 for ; Mon, 09 Jun 2003 14:42:21 +0200 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 119 Original-NNTP-Posting-Host: adsl241032.vnet.hu Original-X-Trace: quimby.gnus.org 1055162541 20716 62.77.241.32 (9 Jun 2003 12:42:21 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 9 Jun 2003 12:42:21 GMT X-Face: iVBORw0KGgoAAAANSUhEUgAAACgAAAAwBAMAAACRVSWoAAAAGFBMVEWNZFgtIyTy9fEjGhx0 UUdMNjKajYXCxsNbs5ZQAAAByElEQVR4nG3SwY7bIBAGYFqR9NqRQ8+rSI3PiBcgKuxeiwQ5p6td cl1ZqXn9/jPYiluVHGx/mpkfE6vjuk5Tv453UqvN9xzqq+DQca4qJhrITONx/OiVp2uiRM65cpmB vfL+Tryco+KnpXJEK1mudM6sKHUWOkD3HUdEWH52PMG0K+MT7q111jlLg7MXwe/Yy1I54PJV8B33 Vpjb3aEyRpIibuUJh+qAZ+Q4pMsES0ZQwpG1IAmSVGKA69vaA0fi0C64DFIJRCnHEJmE3dWhI+GQ LKVSCm55S4wmF14hroggKjmAsArZvvk0mJhjyV6HgBf5VhPwkz2E4JVSHV8Ef1NWWskKIdmb4Amo HvilI2Ky39eqS8ln09ufzhm5fq84PpqlMnolSSHFEPOCO2wmB6Wfd8j/+Vlw3Cm9vyiv1ZXHME7H cYnWXvJfga21v1BNjPN8/Q/etuhr6+11W1mr4NzelpfcYNugDmj8Abz9g/MvQZ6m++F7aeR2IAsO KTzjce4YVIlAnNbLBnEgweMXbvwMPLa3/h8Fnbl7RR0zH3EsLytO7UNhYjSlHNoWteEvJF02OCt1 hia6PXDkE8XXRUvhAzG2LIXtDwR0zVR+ZiQLAAAAAElFTkSuQmCC User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.2 (gnu/linux) Cancel-Lock: sha1:HzRc932PPHLiZSGzba1frJ4s+ko= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:53063 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:53063 --=-=-= Content-Type: text/plain; charset=iso-8859-2 Content-Transfer-Encoding: 8bit On Mon, 09 Jun 2003, Kai Großjohann wrote: > The FSF wants to have a copyright assignment for everything that is > part of Emacs. This way, when somebody violates the GPL, the FSF can > defend it. I understand that if many people hold the copyright for > pieces of Emacs, then those people would have to cooperate to defend > the copyright. That sounds perfectly reasonable. But what do I have to do to assign all copyrights to the FSF? (I've checked the FSF homepage, but haven't found the HOW, only the WHY.) > As an example, here is how Gnus invokes nnchoke-request-article: [...] > You have a function gnus-group-article-list which is intended to do > the same, but it uses a different mechanism. For example, the Wow, that's cool. Thanks for letting me know. > I hope I'm not offending you with this stuff, I think you have a Not offended, on the contrary. So, I've recoded it following your guidelines. In fact, I've found a function called gnus-request-group-articles, which, according to its docstring, is doing the same as gnus-group-article-list. There was no equivalent backend function for nnml, so I've done that, but there *was* one for the nntp backend, which always returned t instead of a list of article numbers. As far as I could tell, these functions weren't used at all, so I removed nntp-request-group-articles with another patch. :-{ I could have taken the other road and added a new function (say, gnus-request-group-artcile-list) to gnus-int.el which seemingly does the same, but that doesn't sound good either. What do you think? New patches are attached. David --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus.patch *** /usr/share/emacs/site-lisp/gnus/lisp/gnus-sum.el 2003-06-07 19:40:22.000000000 +0200 --- ./gnus-sum.el 2003-06-09 12:05:22.000000000 +0200 *************** *** 5242,5247 **** --- 5242,5248 ---- ;; articles in the group, or (if that's nil), the ;; articles in the cache. (or + (gnus-request-group-articles group) (gnus-uncompress-range (gnus-active group)) (gnus-cache-articles-in-group group)) ;; Select only the "normal" subset of articles. *** /usr/share/emacs/site-lisp/gnus/lisp/nnml.el 2003-05-01 16:23:15.000000000 +0200 --- ./nnml.el 2003-06-09 13:29:21.000000000 +0200 *************** *** 84,89 **** --- 84,96 ---- (defvoo nnml-use-compressed-files nil "If non-nil, allow using compressed message files.") + (defvoo nnml-ignore-active-file nil + "If t or matches the group name as a regexp, the active file is ignored + when retrieving the list of existing articles. This causes nnml to do some + extra work in order to determine the true active ranges of a group. Note + that the active file is still saved, but its values are not used. This + costs some extra time when scanning a group when opening it.") + (defconst nnml-version "nnml 1.0" *************** *** 1007,1012 **** --- 1014,1031 ---- (nnml-save-marks group server) (nnheader-message 7 "Bootstrapping marks for %s...done" group))))) + (deffoo nnml-request-group-articles (group &optional server) + "Return the list of existing articles in GROUP if + `nnml-ignore-active-file' is t or matches the group name as a regexp, + otherwise return nil." + (if (or (eq nnml-ignore-active-file t) + (and (stringp nnml-ignore-active-file) + (string-match nnml-ignore-active-file group))) + (sort (nnheader-directory-articles + (nnheader-group-pathname (gnus-group-real-name group) + nnml-directory)) + '<))) + (provide 'nnml) ;;; nnml.el ends here *** /usr/share/emacs/site-lisp/gnus/lisp/nntp.el 2003-05-02 19:55:56.000000000 +0200 --- ./nntp.el 2003-06-09 13:31:08.000000000 +0200 *************** *** 845,856 **** nil server (nntp-send-command "^\\.*\r?\n" "LIST ACTIVE" group))) - (deffoo nntp-request-group-articles (group &optional server) - "Return the list of existing articles in GROUP." - (nntp-with-open-group - nil server - (nntp-send-command "^\\.*\r?\n" "LISTGROUP" group))) - (deffoo nntp-request-article (article &optional group server buffer command) (nntp-with-open-group group server --- 845,850 ---- --=-=-=--