From: yoichi Date: Sat, 21 Aug 2004 05:45:52 +0000 (+0000) Subject: * wl-mime.el (wl-message-delete-current-part): If filename exists, X-Git-Tag: wl-2_11_31~38 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a71103ce416aaf50d66a450d2cf5c14efc31d64c;p=elisp%2Fwanderlust.git * wl-mime.el (wl-message-delete-current-part): If filename exists, add Content-Disposition heaeder on the deleted part. --- 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))