- (let (group article num cwin swin cur)
- (with-temp-buffer
- (mime-insert-entity-content entity)
- (setq group (or (cdr (assq 'group situation))
- (completing-read "Group: "
- gnus-active-hashtb
- nil
- (gnus-read-active-file-p)
- gnus-newsgroup-name))
- article (gnus-request-accept-article group)))
- (when (and (consp article)
- (numberp (setq article (cdr article))))
- (setq num (1+ (or (cdr (assq 'number situation)) 0))
- cwin (get-buffer-window (current-buffer) t))
- (save-window-excursion
- (if (setq swin (get-buffer-window gnus-summary-buffer t))
- (select-window swin)
- (set-buffer gnus-summary-buffer))
- (setq cur gnus-current-article)
- (forward-line num)
+ "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)
+ (gnus-summary-goto-subject gnus-current-article)
+ (gnus-summary-copy-article 1 group)
+ (setq article (cdr (gnus-active group)))
+ (with-temp-buffer
+ (mime-insert-entity-content entity)
+ (gnus-request-replace-article article group (current-buffer) t))
+ (when (string-equal group gnus-newsgroup-name)
+ (gnus-summary-goto-subject gnus-current-article)
+ (forward-line 1)