From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Jan 2003 13:03:20 +0000 (+0000)
Subject: (gnus-summary-mark-article-as-replied): Added
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=61f232db85a6bab2d06c565ede9e2dad200e1a01

(gnus-summary-mark-article-as-replied): Added
debugging statements.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f7e02336..171d2dd8b 100644
--- 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 fd2f4fefc..f44a86013 100644
--- 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)