;; Change value
(concat (substring ctype 0 (match-beginning 1))
parameter "=" value
- (substring contype (match-end 1))
+ (substring ctype (match-end 1))
opt-fields)
(concat ctype "; " parameter "=" value opt-fields)
)))
(or (looking-at mime-edit-beginning-tag-regexp)
(eobp)
(insert (mime-make-text-tag) "\n")))
- (visible-region beg end)
+ (remove-text-properties beg end '(invisible mime-edit-invisible))
(goto-char beg))
(cond
((mime-test-content-type contype "message")