[PATCH] Problems accessing spam group (again)

[PATCH] Problems accessing spam group (again)

[Nelson Ferreira]

Intermitently I've been getting the following error:

Signaling: (wrong-type-argument arrayp nil)
  gnus-dup-unsuppress-article(35829)
  gnus-mark-article-as-unread(35829 ?$)
  gnus-summary-mark-article(35829 ?$)
  spam-mark-junk-as-spam-routine()
  spam-summary-prepare()
  run-hooks(spam-summary-prepare)
  apply(run-hooks spam-summary-prepare)
  gnus-run-hooks(gnus-summary-prepare-hook)
  gnus-summary-prepare()
  gnus-summary-read-group-1("nnml:mail.spam" nil t nil nil nil)
  gnus-summary-read-group("nnml:mail.spam" nil t nil nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  gnus-topic-select-group(nil)
  call-interactively(gnus-topic-select-group)

I traced it to gnus-dup-unsuppress-article being called when
gnus-dup-hashtb is not an array.

I fixed it with the following (trivial) patch, although not sure if it
is the solution to the real problem:

diff -u -r7.3 gnus-dup.el
--- gnus-dup.el 20 May 2004 08:02:39 -0000      7.3
+++ gnus-dup.el 8 Jun 2004 05:11:27 -0000
@@ -156,7 +156,7 @@
   "Stop suppression of ARTICLE."
   (let* ((header (gnus-data-header (gnus-data-find article)))
         (id     (when header (mail-header-id header))))
-    (when id
+    (when (and id gnus-dup-hashtb)
       (setq gnus-dup-list-dirty t)
       (setq gnus-dup-list (delete id gnus-dup-list))
       (unintern id gnus-dup-hashtb))))


-- 
Nelson Ferreira