(gnus-summary-mark-article-as-replied): Added

debugging statements.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f7e023..171d2dd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-mark-article-as-replied): Added
+       debugging statements.
+
 2003-01-21  Andreas Fuchs  <asf@void.at>
 
        * mml-sec.el (mml-sign-alist): Added pgpauto.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index fd2f4fe..f44a860 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9432,6 +9432,8 @@ ARTICLE can also be a list of articles."
   (interactive (list (gnus-summary-article-number)))
   (let ((articles (if (listp article) article (list article))))
     (dolist (article articles)
+      (unless (numberp article)
+       (error "%s is not a number" article))
       (push article gnus-newsgroup-replied)
       (let ((buffer-read-only nil))
        (when (gnus-summary-goto-subject article nil t)