* 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 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-mime.el (wl-message-delete-current-part): If filename exists,
+       add Content-Disposition heaeder on the deleted part.
+
 2004-08-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * 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 (file)
--- 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))