From: kaoru <kaoru>
Date: Sun, 12 Jan 2003 08:09:51 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-remove-text-plain-tag): Use
X-Git-Tag: merged-trunk-to-elmo-mark-14~34
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1bf9f7ddec6ec868885a0c5416d80d70a985dd29;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-remove-text-plain-tag): Use
`mime-create-tag'. Use `string=' instead of `looking-at'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5435629..8cf0431 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-remove-text-plain-tag): Use
+	`mime-create-tag'. Use `string=' instead of `looking-at'.
+
 2003-01-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-news.el.in (wl-news-send-news): Add 3rd argument `folder'
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 138a4ca..164b509 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1908,8 +1908,9 @@ 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."
-  (if (looking-at "^--\\[\\[text/plain\\]\\]$")
-      (delete-region (point-at-bol)(1+ (point-at-eol)))))
+  (when (string= (mime-create-tag "text" "plain")
+		 (buffer-substring-no-properties (point-at-bol)(point-at-eol)))
+    (delete-region (point-at-bol)(1+ (point-at-eol)))))
 
 (defun wl-draft-reedit (number)
   (let ((draft-folder (wl-folder-get-elmo-folder wl-draft-folder))