nnml-active-number fails creating new groups (September Gnus v0.79)

nnml-active-number fails creating new groups (September Gnus v0.79)

[Mark Eichin]

I have gotten in the habit of adding new patterns to my
nnmail-split-methods list, then respooling (B r nnml RET) into them to
create the new groups. That seems to have broken between 0.77 and
0.79; now I get a (void-function-last) if I don't (require 'cl) by
hand. If I do the require, I get (wrong-type-argument
number-or-marker-p (1 . "1")) in nnmail-active-number. Any
suggestions? How should I be creating new nnml:mail groups?

;;; before require'ing cl
Signalling: (void-function last)
  last(((971 . "971") (970 . "970") (969 . "969") (968 . "968") (967 . "967") (966 . "966") (965 . "965") (964 . "964") (963 . "963") (962 . "962") (961 . "961") (960 . "960") (959 . "959") (958 . "958") (957 . "957") (956 . "956") (955 . "955") (954 . "954") (953 . "953") (952 . "952") (951 . "951") (950 . "950") (949 . "949") (948 . "948") (947 . "947") (946 . "946") (945 . "945") (944 . "944") (943 . "943") (942 . "942") (941 . "941") (940 . "940") (939 . "939") (938 . "938") (937 . "937") (936 . "936") (935 . "935") (934 . "934") (933 . "933") (932 . "932") (931 . "931") (930 . "930") (929 . "929") (928 . "928") (927 . "927") (926 . "926") (925 . "925") (924 . "924") (923 . "923") (922 . "922") ...))
  nnml-active-number("mail.debian.bugs")
  nnmail-article-group(nnml-active-number)
  nnml-save-mail()
  nnml-request-accept-article(nil "" t)
  gnus-request-accept-article(nil (nnml "") t)
  eval((gnus-request-accept-article nil (quote (nnml "")) t))
  nnml-request-move-article(70 "mail.personal" "" (gnus-request-accept-article nil (quote (nnml "")) t) t)
  gnus-request-move-article(70 "nnml:mail.personal" "" (gnus-request-accept-article nil (quote (nnml "")) t) t)
  gnus-summary-move-article(nil nil (nnml ""))
  gnus-summary-respool-article(nil (nnml ""))
* call-interactively(gnus-summary-respool-article)

;;; after require'ing cl
Signalling: (wrong-type-argument number-or-marker-p (1 . "1"))
  nnml-active-number("mail.debian.bugs")
  nnmail-article-group(nnml-active-number)
  nnml-save-mail()
  nnml-request-accept-article(nil "" t)
  gnus-request-accept-article(nil (nnml "") t)
  eval((gnus-request-accept-article nil (quote (nnml "")) t))
  nnml-request-move-article(70 "mail.personal" "" (gnus-request-accept-article nil (quote (nnml "")) t) t)
  gnus-request-move-article(70 "nnml:mail.personal" "" (gnus-request-accept-article nil (quote (nnml "")) t) t)
  gnus-summary-move-article(nil nil (nnml ""))
  gnus-summary-respool-article(nil (nnml ""))
* call-interactively(gnus-summary-respool-article)

If it helps, hitting 'e active RET' gives
(971 1 . "1")

and that's probably why the 1+ is failing...