From 169f9d19f0b5af046821638ef0f272ab0188f8c8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 29 Jan 2002 04:58:18 +0000 Subject: [PATCH] * gnus-sum.el (gnus-mime-extract-message/rfc822): Guard existing articles from some accidents. --- lisp/gnus-sum.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 4bd76eb..b00facf 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -10814,13 +10814,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)) -- 1.7.10.4