projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4fb6809
)
* gnus-sum.el (gnus-mime-extract-message/rfc822): Guard existing articles from
author
yamaoka
<yamaoka>
Tue, 29 Jan 2002 04:58:18 +0000
(
04:58
+0000)
committer
yamaoka
<yamaoka>
Tue, 29 Jan 2002 04:58:18 +0000
(
04:58
+0000)
some accidents.
lisp/gnus-sum.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-sum.el
b/lisp/gnus-sum.el
index
4bd76eb
..
b00facf
100644
(file)
--- 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)
"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)))
(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))
(with-temp-buffer
(mime-insert-entity-content entity)
(gnus-request-replace-article article group (current-buffer) t))