Change Gnus hash tables into real hash tables
Gnus has used obarrays as makeshift hash tables for groups: group
names are coerced to unibyte and interned in custom obarrays, and
their symbol-value set to whatever value needs to be stored. This
patch replaces those obarrays with actual hash tables.
* lisp/gnus/gnus-util.el (gnus-intern-safe, gnus-create-hash-size):
Remove functions.
(gnus-make-hashtable): Change to return a real hash table.
(gnus-text-property-search): Utility similar to `text-property-any',
but compares on `equal'. Needed because the 'gnus-group text
property is now a string.
* lisp/gnus/gnus.el (gnus-gethash, gnus-gethash-safe, gnus-sethash):
Remove macros.
(gnus-group-list): New variable holding all group names as an
ordered list. Used because `gnus-newsrc-hashtb' used to preserve
`gnus-newsrc-alist' ordering, but now doesn't.
* lisp/gnus/nnmaildir.el (nnmaildir--servers): Change from obarray to
alist.
(nnmaildir--up2-1): Remove function.
* lisp/thingatpt.el (thing-at-point-newsgroup-p): This was making use
of Gnus obarrays, replace with a cond that can handle many different
possibilities.
* lisp/gnus/gnus-bcklg.el (gnus-backlog-articles): Remove
gnus-backlog-hashtb, which wasn't doing anything. Just keep a list
of ident strings in gnus-backlog-articles.
(gnus-backlog-setup): Delete unnecessary function.
(gnus-backlog-enter-article, gnus-backlog-remove-oldest-article,
gnus-backlog-remove-article, gnus-backlog-request-article): Alter
calls accordingly.
* lisp/gnus/gnus-dup.el (gnus-duplicate-list-max-length): Rename from
`gnus-duplicate-list-length', for accuracy.
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format,
gnus-groups-to-gnus-format, gnus-newsrc-to-gnus-format): Read group
names as strings.
(gnus-gnus-to-quick-newsrc-format): Write `gnus-newsrc-alist' using
the ordering in `gnus-group-list'.
* lisp/gnus/gnus-agent.el:
* lisp/gnus/gnus-async.el:
* lisp/gnus/gnus-cache.el:
* lisp/gnus/gnus-group.el:
* lisp/gnus/gnus-score.el:
* lisp/gnus/gnus-sum.el:
* lisp/gnus/gnus-topic.el:
* lisp/gnus/message.el:
* lisp/gnus/mml.el:
* lisp/gnus/nnagent.el:
* lisp/gnus/nnbabyl.el:
* lisp/gnus/nnvirtual.el:
* lisp/gnus/nnweb.el: In all files, change obarrays to hash-tables,
and swap `gnus-sethash' for `puthash', `gnus-gethash' for `gethash',
`mapatoms' for `maphash', etc.
* test/lisp/gnus/gnus-test-headers.el (gnus-headers-make-dependency-table,
gnus-headers-loop-dependencies): New tests to make sure we're
building `gnus-newsgroup-dependencies' correctly.
2018-04-26 16:26:27 -07:00
|
|
|
;;; gnus-test-headers.el --- Tests for Gnus header-related functions -*- lexical-binding: t; -*-
|
|
|
|
|
|
2019-04-02 21:40:56 -07:00
|
|
|
;; Copyright (C) 2018-2019 Free Software Foundation, Inc.
|
Change Gnus hash tables into real hash tables
Gnus has used obarrays as makeshift hash tables for groups: group
names are coerced to unibyte and interned in custom obarrays, and
their symbol-value set to whatever value needs to be stored. This
patch replaces those obarrays with actual hash tables.
* lisp/gnus/gnus-util.el (gnus-intern-safe, gnus-create-hash-size):
Remove functions.
(gnus-make-hashtable): Change to return a real hash table.
(gnus-text-property-search): Utility similar to `text-property-any',
but compares on `equal'. Needed because the 'gnus-group text
property is now a string.
* lisp/gnus/gnus.el (gnus-gethash, gnus-gethash-safe, gnus-sethash):
Remove macros.
(gnus-group-list): New variable holding all group names as an
ordered list. Used because `gnus-newsrc-hashtb' used to preserve
`gnus-newsrc-alist' ordering, but now doesn't.
* lisp/gnus/nnmaildir.el (nnmaildir--servers): Change from obarray to
alist.
(nnmaildir--up2-1): Remove function.
* lisp/thingatpt.el (thing-at-point-newsgroup-p): This was making use
of Gnus obarrays, replace with a cond that can handle many different
possibilities.
* lisp/gnus/gnus-bcklg.el (gnus-backlog-articles): Remove
gnus-backlog-hashtb, which wasn't doing anything. Just keep a list
of ident strings in gnus-backlog-articles.
(gnus-backlog-setup): Delete unnecessary function.
(gnus-backlog-enter-article, gnus-backlog-remove-oldest-article,
gnus-backlog-remove-article, gnus-backlog-request-article): Alter
calls accordingly.
* lisp/gnus/gnus-dup.el (gnus-duplicate-list-max-length): Rename from
`gnus-duplicate-list-length', for accuracy.
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format,
gnus-groups-to-gnus-format, gnus-newsrc-to-gnus-format): Read group
names as strings.
(gnus-gnus-to-quick-newsrc-format): Write `gnus-newsrc-alist' using
the ordering in `gnus-group-list'.
* lisp/gnus/gnus-agent.el:
* lisp/gnus/gnus-async.el:
* lisp/gnus/gnus-cache.el:
* lisp/gnus/gnus-group.el:
* lisp/gnus/gnus-score.el:
* lisp/gnus/gnus-sum.el:
* lisp/gnus/gnus-topic.el:
* lisp/gnus/message.el:
* lisp/gnus/mml.el:
* lisp/gnus/nnagent.el:
* lisp/gnus/nnbabyl.el:
* lisp/gnus/nnvirtual.el:
* lisp/gnus/nnweb.el: In all files, change obarrays to hash-tables,
and swap `gnus-sethash' for `puthash', `gnus-gethash' for `gethash',
`mapatoms' for `maphash', etc.
* test/lisp/gnus/gnus-test-headers.el (gnus-headers-make-dependency-table,
gnus-headers-loop-dependencies): New tests to make sure we're
building `gnus-newsgroup-dependencies' correctly.
2018-04-26 16:26:27 -07:00
|
|
|
|
|
|
|
|
;; Author: Eric Abrahamsen <eric@ericabrahamsen.net>
|
|
|
|
|
|
2019-04-02 21:40:56 -07:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
Change Gnus hash tables into real hash tables
Gnus has used obarrays as makeshift hash tables for groups: group
names are coerced to unibyte and interned in custom obarrays, and
their symbol-value set to whatever value needs to be stored. This
patch replaces those obarrays with actual hash tables.
* lisp/gnus/gnus-util.el (gnus-intern-safe, gnus-create-hash-size):
Remove functions.
(gnus-make-hashtable): Change to return a real hash table.
(gnus-text-property-search): Utility similar to `text-property-any',
but compares on `equal'. Needed because the 'gnus-group text
property is now a string.
* lisp/gnus/gnus.el (gnus-gethash, gnus-gethash-safe, gnus-sethash):
Remove macros.
(gnus-group-list): New variable holding all group names as an
ordered list. Used because `gnus-newsrc-hashtb' used to preserve
`gnus-newsrc-alist' ordering, but now doesn't.
* lisp/gnus/nnmaildir.el (nnmaildir--servers): Change from obarray to
alist.
(nnmaildir--up2-1): Remove function.
* lisp/thingatpt.el (thing-at-point-newsgroup-p): This was making use
of Gnus obarrays, replace with a cond that can handle many different
possibilities.
* lisp/gnus/gnus-bcklg.el (gnus-backlog-articles): Remove
gnus-backlog-hashtb, which wasn't doing anything. Just keep a list
of ident strings in gnus-backlog-articles.
(gnus-backlog-setup): Delete unnecessary function.
(gnus-backlog-enter-article, gnus-backlog-remove-oldest-article,
gnus-backlog-remove-article, gnus-backlog-request-article): Alter
calls accordingly.
* lisp/gnus/gnus-dup.el (gnus-duplicate-list-max-length): Rename from
`gnus-duplicate-list-length', for accuracy.
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format,
gnus-groups-to-gnus-format, gnus-newsrc-to-gnus-format): Read group
names as strings.
(gnus-gnus-to-quick-newsrc-format): Write `gnus-newsrc-alist' using
the ordering in `gnus-group-list'.
* lisp/gnus/gnus-agent.el:
* lisp/gnus/gnus-async.el:
* lisp/gnus/gnus-cache.el:
* lisp/gnus/gnus-group.el:
* lisp/gnus/gnus-score.el:
* lisp/gnus/gnus-sum.el:
* lisp/gnus/gnus-topic.el:
* lisp/gnus/message.el:
* lisp/gnus/mml.el:
* lisp/gnus/nnagent.el:
* lisp/gnus/nnbabyl.el:
* lisp/gnus/nnvirtual.el:
* lisp/gnus/nnweb.el: In all files, change obarrays to hash-tables,
and swap `gnus-sethash' for `puthash', `gnus-gethash' for `gethash',
`mapatoms' for `maphash', etc.
* test/lisp/gnus/gnus-test-headers.el (gnus-headers-make-dependency-table,
gnus-headers-loop-dependencies): New tests to make sure we're
building `gnus-newsgroup-dependencies' correctly.
2018-04-26 16:26:27 -07:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
2019-04-02 21:40:56 -07:00
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
Change Gnus hash tables into real hash tables
Gnus has used obarrays as makeshift hash tables for groups: group
names are coerced to unibyte and interned in custom obarrays, and
their symbol-value set to whatever value needs to be stored. This
patch replaces those obarrays with actual hash tables.
* lisp/gnus/gnus-util.el (gnus-intern-safe, gnus-create-hash-size):
Remove functions.
(gnus-make-hashtable): Change to return a real hash table.
(gnus-text-property-search): Utility similar to `text-property-any',
but compares on `equal'. Needed because the 'gnus-group text
property is now a string.
* lisp/gnus/gnus.el (gnus-gethash, gnus-gethash-safe, gnus-sethash):
Remove macros.
(gnus-group-list): New variable holding all group names as an
ordered list. Used because `gnus-newsrc-hashtb' used to preserve
`gnus-newsrc-alist' ordering, but now doesn't.
* lisp/gnus/nnmaildir.el (nnmaildir--servers): Change from obarray to
alist.
(nnmaildir--up2-1): Remove function.
* lisp/thingatpt.el (thing-at-point-newsgroup-p): This was making use
of Gnus obarrays, replace with a cond that can handle many different
possibilities.
* lisp/gnus/gnus-bcklg.el (gnus-backlog-articles): Remove
gnus-backlog-hashtb, which wasn't doing anything. Just keep a list
of ident strings in gnus-backlog-articles.
(gnus-backlog-setup): Delete unnecessary function.
(gnus-backlog-enter-article, gnus-backlog-remove-oldest-article,
gnus-backlog-remove-article, gnus-backlog-request-article): Alter
calls accordingly.
* lisp/gnus/gnus-dup.el (gnus-duplicate-list-max-length): Rename from
`gnus-duplicate-list-length', for accuracy.
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format,
gnus-groups-to-gnus-format, gnus-newsrc-to-gnus-format): Read group
names as strings.
(gnus-gnus-to-quick-newsrc-format): Write `gnus-newsrc-alist' using
the ordering in `gnus-group-list'.
* lisp/gnus/gnus-agent.el:
* lisp/gnus/gnus-async.el:
* lisp/gnus/gnus-cache.el:
* lisp/gnus/gnus-group.el:
* lisp/gnus/gnus-score.el:
* lisp/gnus/gnus-sum.el:
* lisp/gnus/gnus-topic.el:
* lisp/gnus/message.el:
* lisp/gnus/mml.el:
* lisp/gnus/nnagent.el:
* lisp/gnus/nnbabyl.el:
* lisp/gnus/nnvirtual.el:
* lisp/gnus/nnweb.el: In all files, change obarrays to hash-tables,
and swap `gnus-sethash' for `puthash', `gnus-gethash' for `gethash',
`mapatoms' for `maphash', etc.
* test/lisp/gnus/gnus-test-headers.el (gnus-headers-make-dependency-table,
gnus-headers-loop-dependencies): New tests to make sure we're
building `gnus-newsgroup-dependencies' correctly.
2018-04-26 16:26:27 -07:00
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2019-04-02 21:40:56 -07:00
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
Change Gnus hash tables into real hash tables
Gnus has used obarrays as makeshift hash tables for groups: group
names are coerced to unibyte and interned in custom obarrays, and
their symbol-value set to whatever value needs to be stored. This
patch replaces those obarrays with actual hash tables.
* lisp/gnus/gnus-util.el (gnus-intern-safe, gnus-create-hash-size):
Remove functions.
(gnus-make-hashtable): Change to return a real hash table.
(gnus-text-property-search): Utility similar to `text-property-any',
but compares on `equal'. Needed because the 'gnus-group text
property is now a string.
* lisp/gnus/gnus.el (gnus-gethash, gnus-gethash-safe, gnus-sethash):
Remove macros.
(gnus-group-list): New variable holding all group names as an
ordered list. Used because `gnus-newsrc-hashtb' used to preserve
`gnus-newsrc-alist' ordering, but now doesn't.
* lisp/gnus/nnmaildir.el (nnmaildir--servers): Change from obarray to
alist.
(nnmaildir--up2-1): Remove function.
* lisp/thingatpt.el (thing-at-point-newsgroup-p): This was making use
of Gnus obarrays, replace with a cond that can handle many different
possibilities.
* lisp/gnus/gnus-bcklg.el (gnus-backlog-articles): Remove
gnus-backlog-hashtb, which wasn't doing anything. Just keep a list
of ident strings in gnus-backlog-articles.
(gnus-backlog-setup): Delete unnecessary function.
(gnus-backlog-enter-article, gnus-backlog-remove-oldest-article,
gnus-backlog-remove-article, gnus-backlog-request-article): Alter
calls accordingly.
* lisp/gnus/gnus-dup.el (gnus-duplicate-list-max-length): Rename from
`gnus-duplicate-list-length', for accuracy.
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format,
gnus-groups-to-gnus-format, gnus-newsrc-to-gnus-format): Read group
names as strings.
(gnus-gnus-to-quick-newsrc-format): Write `gnus-newsrc-alist' using
the ordering in `gnus-group-list'.
* lisp/gnus/gnus-agent.el:
* lisp/gnus/gnus-async.el:
* lisp/gnus/gnus-cache.el:
* lisp/gnus/gnus-group.el:
* lisp/gnus/gnus-score.el:
* lisp/gnus/gnus-sum.el:
* lisp/gnus/gnus-topic.el:
* lisp/gnus/message.el:
* lisp/gnus/mml.el:
* lisp/gnus/nnagent.el:
* lisp/gnus/nnbabyl.el:
* lisp/gnus/nnvirtual.el:
* lisp/gnus/nnweb.el: In all files, change obarrays to hash-tables,
and swap `gnus-sethash' for `puthash', `gnus-gethash' for `gethash',
`mapatoms' for `maphash', etc.
* test/lisp/gnus/gnus-test-headers.el (gnus-headers-make-dependency-table,
gnus-headers-loop-dependencies): New tests to make sure we're
building `gnus-newsgroup-dependencies' correctly.
2018-04-26 16:26:27 -07:00
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; The tests her are for
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'ert)
|
|
|
|
|
(require 'gnus-sum)
|
|
|
|
|
|
|
|
|
|
(defconst gnus-headers-test-data
|
|
|
|
|
'([2 "Re: [Emacs-devel] Emacs move" "Dave Love <d.love@dl.ac.uk>"
|
|
|
|
|
"Thu, 14 Sep 2000 11:10:46 +0100"
|
|
|
|
|
"<200009141010.LAA26351@djlvig.dl.ac.uk>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>"
|
|
|
|
|
1882 16 "nnmaildir mails:2"
|
|
|
|
|
((To . "Jeff Bailey <jbailey@nisa.net>")
|
|
|
|
|
(Cc . "emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[3 "Re: [Emacs-devel] Emacs move" "Sam Steingold <sds@gnu.org>"
|
|
|
|
|
"14 Sep 2000 10:21:56 -0400" "<upum7xddn.fsf@xchange.com>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>"
|
|
|
|
|
2991 50 "nnmaildir mails:3"
|
|
|
|
|
((To . "Jeff Bailey <jbailey@nisa.net>")
|
|
|
|
|
(Cc . "emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[4 "Re: [Emacs-devel] Emacs move" "Jeff Bailey <jbailey@nisa.net>"
|
|
|
|
|
"Thu, 14 Sep 2000 09:14:47 -0700"
|
|
|
|
|
"<20000914091447.G4827@sparky.nisa.net>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <upum7xddn.fsf@xchange.com>"
|
|
|
|
|
1780 15 "nnmaildir mails:4"
|
|
|
|
|
((To . "sds@gnu.org, Jeff Bailey <jbailey@nisa.net>")
|
|
|
|
|
(Cc . "emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[5 "Re: [Emacs-devel] Emacs move" "Dave Love <d.love@dl.ac.uk>"
|
|
|
|
|
"Thu, 14 Sep 2000 18:24:36 +0100"
|
|
|
|
|
"<200009141724.SAA26807@djlvig.dl.ac.uk>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>"
|
|
|
|
|
1343 9 "nnmaildir mails:5"
|
|
|
|
|
((To . "Jeff Bailey <jbailey@nisa.net>")
|
|
|
|
|
(Cc . "emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[6 "Re: [Emacs-devel] Emacs move" "Karl Fogel <kfogel@galois.collab.net>"
|
|
|
|
|
"14 Sep 2000 10:37:35 -0500" "<87em2nyog0.fsf@galois.collab.net>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <200009141724.SAA26807@djlvig.dl.ac.uk>"
|
|
|
|
|
3740 124 "nnmaildir mails:6"
|
|
|
|
|
((To . "Dave Love <d.love@dl.ac.uk>")
|
|
|
|
|
(Cc . "Jeff Bailey <jbailey@nisa.net>, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[7 "Re: [Emacs-devel] Emacs move" "Jeff Bailey <jbailey@nisa.net>"
|
|
|
|
|
"Thu, 14 Sep 2000 10:55:12 -0700"
|
|
|
|
|
"<20000914105512.A29291@sparky.nisa.net>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <200009141724.SAA26807@djlvig.dl.ac.uk> <87em2nyog0.fsf@galois.collab.net>"
|
|
|
|
|
1687 16 "nnmaildir mails:7"
|
|
|
|
|
((To . "kfogel@red-bean.com, Dave Love <d.love@dl.ac.uk>")
|
|
|
|
|
(Cc . "Jeff Bailey <jbailey@nisa.net>, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[8 "Re: [Emacs-devel] Emacs move" "John Wiegley <johnw@gnu.org>"
|
|
|
|
|
"Thu, 14 Sep 2000 12:19:01 -0700"
|
|
|
|
|
"<200009141919.MAA05085@localhost.localdomain>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>"
|
|
|
|
|
1978 27 "nnmaildir mails:8"
|
|
|
|
|
((To . "emacs-devel@gnu.org"))]
|
|
|
|
|
[9 "Re: [Emacs-devel] Emacs move"
|
|
|
|
|
"\"Robert J. Chassell\" <bob@rattlesnake.com>"
|
|
|
|
|
"Thu, 14 Sep 2000 07:33:15 -0400 (EDT)"
|
|
|
|
|
"<m13ZXGV-000BCgC@megalith.rattlesnake.com>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>"
|
|
|
|
|
3046 72 "nnmaildir mails:9"
|
|
|
|
|
((To . "jbailey@nisa.net")
|
|
|
|
|
(Cc . "emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[10 "Re: [Emacs-devel] Emacs move"
|
|
|
|
|
"wmperry@aventail.com (William M. Perry)"
|
|
|
|
|
"14 Sep 2000 09:10:25 -0500"
|
|
|
|
|
"<86g0n3f4j2.fsf@megalith.bp.aventail.com>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com>"
|
|
|
|
|
3104 44 "nnmaildir mails:10"
|
|
|
|
|
((To . "bob@rattlesnake.com")
|
|
|
|
|
(Cc . "jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[11 "Re: [Emacs-devel] Emacs move" "Gerd Moellmann <gerd@gnu.org>"
|
|
|
|
|
"Thu, 14 Sep 2000 21:51:05 +0200 (CEST)"
|
|
|
|
|
"<200009141951.VAA06005@gerd.segv.de>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com> <86g0n3f4j2.fsf@megalith.bp.aventail.com>"
|
|
|
|
|
1884 6 "nnmaildir mails:11"
|
|
|
|
|
((To . "wmvperry@aventail.com")
|
|
|
|
|
(Cc . "bob@rattlesnake.com, jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[12 "Re: [Emacs-devel] Emacs move" "Gerd Moellmann <gerd@gnu.org>"
|
|
|
|
|
"Thu, 14 Sep 2000 21:49:03 +0200 (CEST)"
|
|
|
|
|
"<200009141949.VAA05998@gerd.segv.de>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com>"
|
|
|
|
|
2408 24 "nnmaildir mails:12"
|
|
|
|
|
((To . "bob@rattlesnake.com")
|
|
|
|
|
(Cc . "jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[13 "Re: [Emacs-devel] Emacs move"
|
|
|
|
|
"\"Robert J. Chassell\" <bob@rattlesnake.com>"
|
|
|
|
|
"Thu, 14 Sep 2000 17:50:01 -0400 (EDT)"
|
|
|
|
|
"<m13ZgtN-000BD3C@megalith.rattlesnake.com>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com> <200009141949.VAA05998@gerd.segv.de>"
|
|
|
|
|
1968 23 "nnmaildir mails:13"
|
|
|
|
|
((To . "gerd@gnu.org")
|
|
|
|
|
(Cc . "bob@rattlesnake.com, jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[14 "Re: [Emacs-devel] Emacs move" "Richard Stallman <rms@gnu.org>"
|
|
|
|
|
"Fri, 15 Sep 2000 16:28:12 -0600 (MDT)"
|
|
|
|
|
"<200009152228.QAA20526@wijiji.santafe.edu>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com>"
|
|
|
|
|
1288 2 "nnmaildir mails:14"
|
|
|
|
|
((To . "jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))]
|
|
|
|
|
[15 "[Emacs-devel] Emacs move" "Jeff Bailey <jbailey@nisa.net>"
|
|
|
|
|
"Wed, 13 Sep 2000 17:59:43 -0700"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net>" ""
|
|
|
|
|
1661 26 "nnmaildir mails:15"
|
|
|
|
|
((To . "emacs-devel@gnu.org")
|
|
|
|
|
(Cc . "cvs-hackers@gnu.org"))]
|
|
|
|
|
[16 "Re: [Emacs-devel] Emacs move" "Jeff Bailey <jbailey@nisa.net>"
|
|
|
|
|
"Fri, 15 Sep 2000 22:00:12 -0700"
|
|
|
|
|
"<20000915220012.A3923@sparky.nisa.net>"
|
|
|
|
|
"<20000913175943.A26093@sparky.nisa.net> <m13ZXGV-000BCgC@megalith.rattlesnake.com> <200009141949.VAA05998@gerd.segv.de> <m13ZgtN-000BD3C@megalith.rattlesnake.com>"
|
|
|
|
|
2857 51 "nnmaildir mails:16"
|
|
|
|
|
((To . "bob@rattlesnake.com, gerd@gnu.org")
|
|
|
|
|
(Cc . "jbailey@nisa.net, emacs-devel@gnu.org, cvs-hackers@gnu.org"))])
|
|
|
|
|
"A pile of headers with potential interdependencies.")
|
|
|
|
|
|
|
|
|
|
(ert-deftest gnus-headers-make-dependency-table ()
|
|
|
|
|
(let ((table (gnus-make-hashtable 20))
|
|
|
|
|
(data (copy-sequence gnus-headers-test-data))
|
|
|
|
|
ret)
|
|
|
|
|
(dolist (h data)
|
|
|
|
|
;; `gnus-dependencies-add-header' returns nil if it fails to add
|
|
|
|
|
;; the header.
|
|
|
|
|
(should (gnus-dependencies-add-header h table nil)))
|
|
|
|
|
;; Pick a value to test.
|
|
|
|
|
(setq ret (gethash "<m13ZXGV-000BCgC@megalith.rattlesnake.com>"
|
|
|
|
|
table))
|
|
|
|
|
;; The message has three children.
|
|
|
|
|
(should (= 3 (length (cdr ret))))
|
|
|
|
|
;; The first of those children has one child.
|
|
|
|
|
(should (= 1 (length (cdr (nth 1 ret)))))))
|
|
|
|
|
|
|
|
|
|
(ert-deftest gnus-headers-loop-dependencies ()
|
|
|
|
|
"Intentionally create a reference loop."
|
|
|
|
|
(let ((table (gnus-make-hashtable 20))
|
|
|
|
|
(data (copy-sequence gnus-headers-test-data))
|
|
|
|
|
(parent-id "<200009141724.SAA26807@djlvig.dl.ac.uk>")
|
|
|
|
|
(child-id "<87em2nyog0.fsf@galois.collab.net>")
|
|
|
|
|
parent)
|
|
|
|
|
(dolist (h data)
|
|
|
|
|
(gnus-dependencies-add-header h table nil))
|
|
|
|
|
|
|
|
|
|
(setq parent (gethash parent-id table))
|
|
|
|
|
|
|
|
|
|
;; Put the parent header in the child references of one of its own
|
|
|
|
|
;; children. `gnus-thread-loop-p' only checks if there's a loop
|
|
|
|
|
;; between parent and immediate child, not parent and random
|
|
|
|
|
;; descendant. At least, near as I can tell that's the case.
|
|
|
|
|
|
|
|
|
|
(push (list (car parent)) (cdr (gethash child-id table)))
|
|
|
|
|
|
|
|
|
|
(let ((gnus-newsgroup-dependencies table))
|
|
|
|
|
(should
|
|
|
|
|
(= 1 ; 1 indicates an infloop.
|
|
|
|
|
(gnus-thread-loop-p (car parent) (cadr parent)))))))
|
|
|
|
|
|
|
|
|
|
(provide 'gnus-test-headers)
|
|
|
|
|
;;; gnus-test-headers.el ends here
|