(id (get-text-property (point) 'gnus-part))
file param
(handles gnus-article-mime-handles))
- (setq file (and data (mm-save-part data)))
+ (setq file (and data (mm-save-part data "Delete MIME part and save to: ")))
(when file
(with-current-buffer (mm-handle-buffer data)
(erase-buffer)