From a71103ce416aaf50d66a450d2cf5c14efc31d64c Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 21 Aug 2004 05:45:52 +0000 Subject: [PATCH] * wl-mime.el (wl-message-delete-current-part): If filename exists, add Content-Disposition heaeder on the deleted part. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 104a6e8..381be8a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-08-21 Yoichi NAKAYAMA + + * wl-mime.el (wl-message-delete-current-part): If filename exists, + add Content-Disposition heaeder on the deleted part. + 2004-08-05 Yoichi NAKAYAMA * wl-draft.el (wl-draft-save): Encode address list under edit by diff --git a/wl/wl-mime.el b/wl/wl-mime.el index d07020a..8e79c5e 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -331,6 +331,7 @@ It calls following-method selected from variable (widen) (let* ((entity (get-text-property (point) 'mime-view-entity)) (node-id (mime-entity-node-id entity)) + (filename (mime-entity-safe-filename entity)) (header-start (mime-buffer-entity-header-start-internal entity)) (body-end (mime-buffer-entity-body-end-internal entity)) (folder (wl-folder-get-elmo-folder wl-message-buffer-cur-folder)) @@ -355,7 +356,17 @@ It calls following-method selected from variable (insert-buffer orig-buf) (delete-region header-start body-end) (goto-char header-start) - (insert "Content-Type: text/plain; charset=US-ASCII\n\n") + (insert "Content-Type: text/plain; charset=US-ASCII\n") + (when filename + (insert + "Content-Disposition:" + (mime-encode-field-body + (concat "" + (and filename + (concat " inline; filename=" (std11-wrap-as-quoted-string filename)))) + "Content-Disposition") + "\n")) + (insert "\n") (insert "** This part has been removed by Wanderlust **\n\n") (elmo-folder-append-buffer folder)) -- 1.7.10.4