NetBSD 絹の日記

2075 行から

(defun wl-draft-config-exec (&optional config-alist reply-buf)
...
   (when (and (or (interactive-p)
                   wl-draft-config-exec-flag)
               alist)
      (save-excursion
        (catch 'done
          (while alist
            (setq key (caar alist)
                  clist (cdar alist))
            (cond
             ((eq key 'reply)
...
             ((stringp key)
...
            ((eval key)
             (wl-append local-variables
                        (wl-draft-config-exec-sub clist))
              (setq found t)))
            (if (and found wl-draft-config-matchone)
                (throw 'done t))
            (setq alist (cdr alist))))

ここんとこ、合っているのかなぁという思いが。

＠ eval の使い方:

(progn
  (setq a nil)
  (setq text '(setq a "a-value"))
  (princ a)
  (princ " (1)\n")
  (eval text)
  (princ a)
  (princ " (2)\n")
  nil
) ..... C-j
nil (1)
a-value (2)
nil

↑は(いつものように)僕の勘違い。見るべきは wl-draft-config-exec-sub の中だった。

＠ lambda を使うのが正しいのかな。:

実はこれがやりたかっただけ。 wl-draft-colnfig-alist の中で:

((string-match  "to/home" wl-draft-parent-folder)
 ("From" .  "藤原 誠/ Makoto Fujiwara <hoge.foo@example.com>")
 (lambda () 
   (setq wl-x-face-file "~/.xface")
   (setq wl-auto-insert-x-face nil)
   (message "executing lambda expression") ))

↑ちょっと冗長ではある。(というか一行目は意味がない) それと、 wl-auto-insert-x-face って buffer local になってくれているのかな。 .. なってないようなので、上の方法はうまくない。
x-face を切替えるだけだったら、そういう名前も使えるらしいが。

＠ wl-draft-config-alist ばんざい:

という感じで。... と思ったが、ちょっと時期の問題がある。上のやり方では間に合わず、一つ後で draft を作る時に初めて有効になる。
やはり x-face の名前で指定する方法が良い。

2004年02月06日(金) 旧暦 [n年日記]

#1 [Emacs] wl-2.10.1/wl-draft.el

＠ eval の使い方:

＠ lambda を使うのが正しいのかな。:

＠ wl-draft-config-alist ばんざい:

#2 [Emacs] apropos-command と apropos-symbol