[Mew-dist 04100] Re: About mew-gnus

[Masahiro MURATA]

  村田@神戸です。

>>> In [Mew-dist:04096] [Mew-dist 04096] Re: About mew-gnus
>>> Hideyuki SHIRAI wrote:

ishizuka> (2) Newgroups: ヘッダの項目名を TAB で補完させる方法

> mew-init-hookで

> (setq mew-field-completion-switch
>       (append
>        '(("Newsgroups:" . mew-complete-address)
> 	 ("Followup-To:" . mew-complete-address))
>        mew-field-completion-switch))

> として、Aliasesに普段読む|書くNewsgroupを全部登録してしまいまし
> た。(邪道)

  私は以下のように設定しています。ただし，Gnus を起動しておく必要があり
ますが。確認している Gnus のバージョンは Gnus 5 以降です。GNUS 4 でも動
くかどうかは解りません。

(setq mew-field-completion-switch
      (append mew-field-completion-switch
	      '(("Newsgroups:" . mew-draft-newsgroup-comp)
		("Followup-To:" . mew-draft-newsgroup-comp))
	      ))

(defun mew-draft-newsgroup-comp ()
  (interactive)
  (let ((word (mew-delete-backward-char)))
    (if (null word)
	(tab-to-tab-stop)
      (mew-complete
       word
       gnus-active-hashtb
       "newsgroups"
       nil) ;; use cdr
      )
    ))

--
村田 全寛 / MURATA Masahiro