(mime-entity-send): Use <(` ...)>, <(, ...)> and <(,@ ...)> instead of

<`>, <,> and <,@>.

diff --git a/mime.el b/mime.el
index 63af880..57d816c 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -69,7 +69,8 @@ current-buffer, and return it.")
 ;;;
 
 (defmacro mime-entity-send (entity message &rest args)
-  `(luna-send ,entity ',(intern (format "mime-%s" (eval message))) ,@args))
+  (` (luna-send (, entity)
+               '(, (intern (format "mime-%s" (eval message)))) (,@ args))))
 
 (defun mime-open-entity (type location)
   "Open an entity and return it.