From: yamaoka <yamaoka>
Date: Tue, 29 Jan 2002 04:58:11 +0000 (+0000)
Subject: * gnus-sum.el (gnus-mime-extract-message/rfc822): Guard existing articles from
X-Git-Tag: t-gnus-6_15_6-00~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afd221f5207f2a3c48c74ab727e4f9f6340638ff;p=elisp%2Fgnus.git-

* gnus-sum.el (gnus-mime-extract-message/rfc822): Guard existing articles from
 some accidents.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index aafdf2d..26dc3be 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -10805,13 +10805,16 @@ If REVERSE, save parts that do not match TYPE."
   "Burst a forwarded article."
   (save-excursion
     (set-buffer gnus-summary-buffer)
-    (let ((group (completing-read "Group: " gnus-active-hashtb
-				  nil (gnus-read-active-file-p)
-				  gnus-newsgroup-name 'gnus-group-history))
-	  article summary buffers)
+    (let* ((group (completing-read "Group: " gnus-active-hashtb
+				   nil (gnus-read-active-file-p)
+				   gnus-newsgroup-name 'gnus-group-history))
+	   (old (cdr (gnus-active group)))
+	   article summary buffers)
       (gnus-summary-goto-subject gnus-current-article)
       (gnus-summary-copy-article 1 group)
       (setq article (cdr (gnus-active group)))
+      (unless (> article old)
+	(error "Something wrong on bursting; check articles in %s" group))
       (with-temp-buffer
 	(mime-insert-entity-content entity)
 	(gnus-request-replace-article article group (current-buffer) t))