From 75d07019c39c14c6995cba7b081eec92a042ca2b Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 11:04:32 +0000 Subject: [PATCH] =?utf8?q?(mime-edit-insert-signature):=20Function=20`mime-e?= =?utf8?q?dit-insert-tag'=20is=20sometimes=20called=20with=20more=20argument?= =?utf8?q?s=20than=20it=20is=20ready=20to=20accept.=20[Fran=1B,Ag=1B(Bois=20?= =?utf8?q?Pinard=20=20(cf.=20[tm-en:1585])]?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- mime-edit.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 12a990b..c95f8eb 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -1132,8 +1132,9 @@ If optional argument SUBTYPE is not nil, text/SUBTYPE tag is inserted." (let ((signature-insert-hook (function (lambda () - (apply (function mime-edit-insert-tag) - (mime-find-file-type signature-file-name)) + (let ((items (mime-find-file-type signature-file-name))) + (apply (function mime-edit-insert-tag) + (car items) (cadr items) (list (caddr items)))) ))) ) (insert-signature arg) -- 1.7.10.4