From: yoichi Date: Wed, 16 Oct 2002 11:22:36 +0000 (+0000) Subject: * wl-mime.el (wl-message-delete-current-part): Use existing X-Git-Tag: wl-2_11_1~102 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4720c3d818c6436e570d8ae85153f85fc5df9218;p=elisp%2Fwanderlust.git * wl-mime.el (wl-message-delete-current-part): Use existing original buffer which corresponds current mime-view buffer. (fetched buffer might have different structure, possibly) --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 63c42f3..bb35c8b 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -3,6 +3,10 @@ * wl-mime.el (wl-message-delete-current-part): New function. (wl-mime-node-id-to-string): Ditto. + * wl-mime.el (wl-message-delete-current-part): Use existing + original buffer which corresponds current mime-view buffer. + (fetched buffer might have different structure, possibly) + 2002-10-12 Yuuichi Teranishi * wl-summary.el (wl-summary-insert-headers): Put alike hash in reverse diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 575c235..8b6a414 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -182,19 +182,16 @@ By setting following-method as yank-content." (body-end (mime-buffer-entity-body-end-internal entity)) (folder (wl-folder-get-elmo-folder wl-message-buffer-cur-folder)) (number wl-message-buffer-cur-number) - (msgid (elmo-message-field folder number 'message-id))) + (msgid (elmo-message-field folder number 'message-id)) + (orig-buf wl-message-buffer-original-buffer)) (when (and (elmo-folder-writable-p folder) + (buffer-live-p orig-buf) node-id (yes-or-no-p (format "Do you really want to delete part %s? " (wl-mime-node-id-to-string node-id)))) (with-temp-buffer - (elmo-message-fetch folder - number - (elmo-make-fetch-strategy 'entire) - nil - (current-buffer) - 'unread) + (insert-buffer orig-buf) (kill-region header-start body-end) (goto-char header-start) (insert "Content-Type: text/plain; charset=US-ASCII\n\n")