From: yoichi <yoichi>
Date: Mon, 10 Feb 2003 16:29:55 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-remove-text-plain-tag): Specify subtype
X-Git-Tag: wl-2_11_3~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e468ee0f569f7f350461df37e76cec15b216044;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-remove-text-plain-tag): Specify subtype
explicitly for mime-make-text-tag.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8697f4a..30c002e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-remove-text-plain-tag): Specify subtype
+	explicitly for mime-make-text-tag.
+
 2003-02-10  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-draft.el (wl-draft-remove-text-plain-tag): Use
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a6cc9a7..bd5e929 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1870,7 +1870,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 
 (defun wl-draft-remove-text-plain-tag ()
   "Remove text/plain tag of mime-edit."
-  (when (string= (mime-make-text-tag)
+  (when (string= (mime-make-text-tag "plain")
 		 (buffer-substring-no-properties (point-at-bol)(point-at-eol)))
     (delete-region (point-at-bol)(1+ (point-at-eol)))))