(mime-edit-insert-signature): Function `mime-edit-insert-tag' is

sometimes called with more arguments than it is ready to accept.
[Fran\e,Ag\e(Bois Pinard <pinard@iro.umontreal.ca> (cf. [tm-en:1585])]

diff --git a/mime-edit.el b/mime-edit.el
index 12a990b..c95f8eb 100644 (file)
--- 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)