From 6926847ac37cbab742300d479ca606fe485e8eaa Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 10 Feb 2003 14:52:56 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-remove-text-plain-tag): Use `mime-make-text-tag' instead of `mime-create-tag'. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index fbdace4..8697f4a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2003-02-10 TAKAHASHI Kaoru + + * wl-draft.el (wl-draft-remove-text-plain-tag): Use + `mime-make-text-tag' instead of `mime-create-tag'. + 2003-02-10 Yoichi NAKAYAMA * wl-fldmgr.el (wl-fldmgr-rename): Do nothing on the last line. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 94ed443..a6cc9a7 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-create-tag "text" "plain") + (when (string= (mime-make-text-tag) (buffer-substring-no-properties (point-at-bol)(point-at-eol))) (delete-region (point-at-bol)(1+ (point-at-eol))))) -- 1.7.10.4