* 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 (file)
--- 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))