* wl-draft.el (wl-draft-config-exec-sub): Fixed problem when

config is an anonymous lambda expression.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e758d72..4e6ee9d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-draft.el (wl-draft-config-exec-sub): Fixed problem when
+       config is an anonymous lambda expression.
+
 2001-09-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-vars.el (wl-biff-state-indicator-on): Use `*iso-2022-jp*'

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 34b12ad..2a766ea 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1602,26 +1602,24 @@ If optional argument is non-nil, current draft buffer is killed"
     (while clist
       (setq config (car clist))
       (cond
+       ((functionp config)
+       (funcall config))
        ((consp config)
        (let ((field (car config))
              (content (cdr config))
              ret-val)
-         (cond
-          ((stringp field)
-           (wl-draft-replace-field field (eval content) t))
-          ((setq ret-val (wl-draft-config-sub-func field content))
+         (cond
+          ((stringp field)
+           (wl-draft-replace-field field (eval content) t))
+          ((setq ret-val (wl-draft-config-sub-func field content))
            (if (cdr ret-val) ;; for wl-draft-config-sub-template
                (wl-append local-variables (cdr ret-val))))
-          ((boundp field) ;; variable
-           (make-local-variable field)
-           (set field (eval content))
-           (wl-append local-variables (list field)))
-          (t
-           (error "%s: not variable" field)))))
-       ((or (functionp config)
-           (and (symbolp config)
-                (fboundp config)))
-       (funcall config))
+          ((boundp field) ;; variable
+           (make-local-variable field)
+           (set field (eval content))
+           (wl-append local-variables (list field)))
+          (t
+           (error "%s: not variable" field)))))
        (t
        (error "%s: not supported type" config)))
       (setq clist (cdr clist)))