[Mew-dist 10845] Re: mew-header-alist

[Takayoshi TK KAWATE]

こんにちは。かわて＠実習終了後も常駐です。

＃スレッドがずれてしまう上に，長文で失礼します。


In the message "[Mew-dist 10802] Re: mew-header-alist",
    On Wed, 6 Oct 1999 23:17:55 +0900,
    TAKAHASHI Kaoru <nil at example.com> wrote:

> バッククォート記法はいかがでしょうか。最初の '(quote) の代わりに 
> `(backquote) を使って、評価させたい部分に ,を入れます。
(snip)
> (setq mew-header-alist
>       `(("X-hogehoge:" . ,mew-version-number)
>         ("X-fugafuga:" . ,(format "Mew/%s" mew-version-number))))


In the message "[Mew-dist 10805] Re: mew-header-alist",
    On Thu, 7 Oct 1999 10:52:59 +0900,
    YAMAGUCHI Shuhei <yamagus at example.com> wrote:

> 私はこんな感じでやっています。
> 
>   (setq mew-header-alist
>         (list
>          (cons "X-Emacs:" version)
>          (if uri
>              (cons "X-URI:" uri))))
(snip)
>   (setq mew-header-alist
>         `(("X-Emacs:" . ,version)
>           ,(if uri `("X-URI:" . ,uri))))

高橋＠電通大さん，やまぐちさん，ありがとうございます。

それぞれの方法で試してみましたが，式を評価してheaderを追加す
ることができました(^^)

ただし，次の問題が出てきてしまいました(^^;)

ホントは，

  (setq mew-header-alist
     `(("X-C-Sig:" . ,(c-sig-version))))

こんなことをやってみたいのですが，最初のメールを書く段階では
C-Sigは読み込まれていないので，Mewを起動したときにエラーがに
なるんですよね(^^;)

うまい回避方法があるといいんですけど。


> quote (') しているので、mew-header-alist の値は、
>   ("X-hogehoge:" concat "hugahuga ver.%s" hugahuga-version-number)
> ということになっちゃうんです。
> で、"X-hogehoge:" よりも後ろをバッファに挿入しようとしたときに、
>   (concat "hugahuga ver.%s" hugahuga-version-number)
> が文字列じゃないから怒られるわけです。

ふむふむ。

ずっと前に買ったEmacs-Lispの本をもう一度見てみよ。

＃別の寮にあって，今いるこの寮にはない。明日いったん帰るつも
＃り。

-----
Takayoshi "TK" KAWATE
taka at example.com