[mew-dist 22852] Re: optional header completion

[Nobuhiro IMAI]

いまいです。

遅くなりましたが、鯉江さんありがとうございます。

From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Subject: [mew-dist 22834] Re: optional header completion
Date: Thu, 09 Jan 2003 18:53:54 +0900 (JST)
Message-ID: <20030109.185354.39161715.hide at example.com>

> setqのかわりに
> (add-to-list 'mew-fields mew-hoge:)
> をおためしください。
> # (setq mew-fields (cons mew-hoge: mew-fields)) でも可

どちらもうまくいきました。で、値の方も補完するために以下のように頑張っ
てみました。

(add-hook 'mew-init-hook 
  (lambda () (setq mew-field-completion-switch
      (append mew-field-completion-switch
	      '(("X-Hoge:" . mew-draft-x-hoge-comp)))
	      )))

(setq mew-x-hoge-list '("foo" "bar" "joe"))

(defun mew-draft-x-hoge-comp ()
  (interactive)
  (let ((word (mew-delete-backward-char)))
    (if (null word)
	(tab-to-tab-stop)
      (mew-complete
       word
       (mapcar 'list mew-x-hoge-list)
       "x-hoge"
       nil)
      )
    ))

見よう見まねでつなぎ合わせたにしては、期待通りに動きました。
--
Nobuhiro IMAI <nov at example.com>
Key fingerprint = F39E D552 545D 7C64 D690  F644 5A15 746C BD8E 7106