From: yamaoka <yamaoka>
Date: Mon, 7 Dec 1998 01:17:34 +0000 (+0000)
Subject: (message-get-parameter-with-eval): Call `message-get-parameter' with arg `key'
X-Git-Tag: gnus-6_9-199812071900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=68eb2b5b5e7f2c38bdaa9d634ca38dd1f4a14e1f;p=elisp%2Fgnus.git-

(message-get-parameter-with-eval): Call `message-get-parameter' with arg `key'
first.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1aac786..bf0355a 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1051,7 +1051,7 @@ The cdr of ech entry is a function for applying the face to a region.")
   (cdr (assq key alist)))
 
 (defmacro message-get-parameter-with-eval (key &optional alist)
-  `(message-eval-parameter (message-get-parameter ,alist ,key)))
+  `(message-eval-parameter (message-get-parameter ,key ,alist)))
 
 (defmacro message-y-or-n-p (question show &rest text)
   "Ask QUESTION, displaying the rest of the arguments in a temp. buffer if SHOW"