[PATCH] Error while attempting to enter spam group

[PATCH] Error while attempting to enter spam group

[Nelson Ferreira]

Sometimes with the lastest CVS gnus I get this while entering my spam group.
Not sure what exactly triggers it (it seems to be messages without Message-ID ???)

Signaling: (wrong-type-argument arrayp nil)
  gnus-dup-unsuppress-article(32602)
  gnus-mark-article-as-unread(32602 ?$)
  gnus-summary-mark-article(32602 ?$)
  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)

This patch works for me. Feel free to use it or make more appropriate changes.

diff -u -u -r7.1 gnus-dup.el
--- gnus-dup.el	4 Jan 2004 21:51:00 -0000	7.1
+++ gnus-dup.el	29 Apr 2004 13:09:49 -0000
@@ -154,7 +154,8 @@
 
 (defun gnus-dup-unsuppress-article (article)
   "Stop suppression of ARTICLE."
-  (let ((id (mail-header-id (gnus-data-header (gnus-data-find article)))))
+  (let* ((header (gnus-data-header (gnus-data-find article)))
+	 (id     (when header (mail-header-id header))))
     (when id
       (setq gnus-dup-list-dirty t)
       (setq gnus-dup-list (delete id gnus-dup-list))




-- 
Nelson Ferreira

Re: [PATCH] Error while attempting to enter spam group

[Ted Zlatanov]

On Thu, 29 Apr 2004, nelson.ferreira@verizon.net wrote:

> Sometimes with the lastest CVS gnus I get this while entering my
> spam group.  Not sure what exactly triggers it (it seems to be
> messages without Message-ID ???)

I think so, and I comitted your change.  Thanks!

Ted