(gnus-summary-delete-article): invoke hook with

correct data (tiny change).  From Anand Mitra <mitramc@yahoo.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 832415b..f8af9fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-sum.el (gnus-summary-delete-article): invoke hook with
+       correct data (tiny change).  From Anand Mitra <mitramc@yahoo.com>.
+
 2004-05-24  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-list-of-processors): use nil for nonexistent processors

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index fbe5ee4..687ef2b 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9418,10 +9418,10 @@ confirmation before the articles are deleted."
        (unless (memq (car articles) not-deleted)
          (gnus-summary-mark-article (car articles) gnus-canceled-mark))
        (let* ((article (car articles))
-              (id (mail-header-id (gnus-data-header
-                                   (assoc article (gnus-data-list nil))))))
+              (ghead  (gnus-data-header
+                                   (assoc article (gnus-data-list nil)))))
          (run-hook-with-args 'gnus-summary-article-delete-hook
-                             'delete id gnus-newsgroup-name nil
+                             'delete ghead gnus-newsgroup-name nil
                              nil))
        (setq articles (cdr articles)))
       (when not-deleted