From: morioka <morioka>
Date: Wed, 11 Mar 1998 11:04:32 +0000 (+0000)
Subject: (mime-edit-insert-signature): Function `mime-edit-insert-tag' is
X-Git-Tag: JR-Himi-~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75d07019c39c14c6995cba7b081eec92a042ca2b;p=elisp%2Fsemi.git

(mime-edit-insert-signature): Function `mime-edit-insert-tag' is
sometimes called with more arguments than it is ready to accept.
[Fran,Ag(Bois Pinard <pinard@iro.umontreal.ca> (cf. [tm-en:1585])]
---

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)