From: morioka <morioka>
Date: Wed, 18 Aug 1999 06:40:25 +0000 (+0000)
Subject: (mime-entity-send): Use <(` ...)>, <(, ...)> and <(,@ ...)> instead of
X-Git-Tag: of-tm-8_1~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=453d8841e624d9be34d21e32d7d2f385293de500;p=elisp%2Fflim.git

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

diff --git a/mime.el b/mime.el
index 63af880..57d816c 100644
--- 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.