[Mew-dist 16397] マルチパートを削除するとエラーが出るよです。

[kikukawa at example.com]

初めまして、菊川です。

C-c C-a で作成した multipart 部分を d で削除した時に
error が出ます。
error は出るものの、後の作業には特に差障りがないので
何も問題ありませんが、一応報告しておきます。

emacs-version 21.0.97
mew-version   1.95b105

error 発生手順は以下のとおり。

・mew を起動するのに必要最低限の elisp を使って emacs を起動。
・M-x mew して Mew を起動し、w で draft を用意。
・Body 部分にカーソルを移動し、 C-cC-a でマルチパート作成。
・マルチパート先頭にカーソルを移動し、d でマルチパート削除。


*Backtrace*は以下のようになっています。

Debugger entered--Lisp error: (void-function set-specifier)
  (set-specifier default-toolbar (cons (current-buffer) mew-draft-toolbar))
  (if mew-icon-p (set-specifier default-toolbar (cons ... mew-draft-toolbar)))
  (progn (mew-delete-directory-recursively (mew-attachdir)) (setq mew-encode-syntax nil) (mew-attach-clear) (if mew-icon-p (set-specifier default-toolbar ...)) (message "attachments were deleted"))
  (if (y-or-n-p "Delete entire attachments? ") (progn (mew-delete-directory-recursively ...) (setq mew-encode-syntax nil) (mew-attach-clear) (if mew-icon-p ...) (message "attachments were deleted")) (message "attachments were not deleted"))
  (if (= (mew-attach-line) 1) (if (y-or-n-p "Delete entire attachments? ") (progn ... ... ... ... ...) (message "attachments were not deleted")) (let* (... ... ... ... ... ... ... ... ...) (if ... nil ... ... ... ... ...)))
  (if (not (mew-attach-not-line02-1-dot)) (message "Can't delete here.") (if (= ... 1) (if ... ... ...) (let* ... ...)))
  mew-attach-delete()
  call-interactively(mew-attach-delete)