header is not nil (tiny change). From Nelson Ferreira
<nelson.ferreira@verizon.net>.
2004-05-14 Teodor Zlatanov <tzz@lifelogs.com>
+ * gnus-dup.el (gnus-dup-unsuppress-article): don't assume the mail
+ header is not nil (tiny change). From Nelson Ferreira
+ <nelson.ferreira@verizon.net>.
+
* spam.el (spam-summary-prepare-exit): only produce "marking spam
as expired without moving it" message when there are spam
messages left
(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))