From: yoichi Date: Tue, 5 Nov 2002 04:58:02 +0000 (+0000) Subject: * wl-draft.el (wl-draft-reedit): Do not decode part in X-Git-Tag: wl-2_10_0pre2~6 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=69bf4d9840e7d2edc9ee8955bdc450633863728d;p=elisp%2Fwanderlust.git * wl-draft.el (wl-draft-reedit): Do not decode part in `mime-edit-decode-single-part-in-buffer' unless it is text part. (Although it seems semi issue. [wl:10790]) --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 2696a65..b03aad0 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-11-04 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-reedit): Do not decode part in + `mime-edit-decode-single-part-in-buffer' unless it is text part. + (Although it seems semi issue. [wl:10790]) + 2002-11-01 Tomotaka SUWA * wl-address.el (wl-address-make-completion-entry): Extracted from diff --git a/wl/wl-draft.el b/wl/wl-draft.el index cf637ca..4cb9fae 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1872,7 +1872,20 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (insert-file-contents-as-binary file-name) (let((mime-edit-again-ignored-field-regexp "^\\(Content-.*\\|Mime-Version\\):")) - (wl-draft-decode-message-in-buffer)) +; (wl-draft-decode-message-in-buffer)) + ;;;; From gnus-article-mime-edit-article-setup in T-gnus + ;;;; XXX: it is semi issue, perhaps [wl:10790] + (let ((ofn (symbol-function 'mime-edit-decode-single-part-in-buffer))) + (fset 'mime-edit-decode-single-part-in-buffer + (lambda (&rest args) + (unless (let ((content-type (car args))) + (eq 'text (mime-content-type-primary-type + content-type))) + (setcar (cdr args) 'not-decode-text)) + (apply ofn args))) + (unwind-protect + (wl-draft-decode-message-in-buffer) + (fset 'mime-edit-decode-single-part-in-buffer ofn)))) (wl-draft-insert-mail-header-separator) (if (not (string-match (regexp-quote wl-draft-folder) (buffer-name)))