[Mew-dist 07042] Re: ~/Mail/.mew-refile-from-alist と alias

[Akihiro Motoki]

元木です。

At Mon, 7 Dec 1998 16:12:44 +0900,
kawase at example.com wrote:

> そのご、快適に mew で過ごしているのですが、『アドレス帳みたいのはない
> のか？』と欲をだして、~/.im/Aliases というファイルに書き加えれば良いこ
> とがわかりました。
> 
> とことが、家の環境では、この ~/.im/Aliases ファイルに書いてない文字列
> を（To: などのところで）タイプして TAB を押した場合にも、何らかのアド
> レスに補完される場合があり、いったいこれはどういうことだ？といろいろみ
> ていると、どうらや ~/Mail/.mew-refile-from-alist というファイルの中に
> あるアドレスが補完の対象にされているようです。
> 
> このファイルがどういう理由で出来ているのかわかってないのですが、全然知
> らない人のアドレスとかも入っていてややこしいので、TAB での補完の対象か
> ら外したいのですが、どうすれば良いのでしょう？

mew.el の中の mew-alias-make-alist の最後の方に
(mew-refile-alist-append-alias alist) という部分があります。
この関数で、refile-from-alist の内容もメールアドレスの補完対象に
含めています。この部分をコメントにすればよいでしょう。

これでいかがですか。この部分を変数で制御するのも一案かもしれません。

diff -u mew.el~ mew.el
--- mew.el~	Sat Sep 05 07:52:11 1998
+++ mew.el	Mon Dec 07 16:27:47 1998
@@ -293,8 +293,9 @@
 	;; append for first assoc comes first
 	(setq alist (cons (cons alias expn) alist)))
       ;; load from mew-refile-from-alist
-      (setq alist (nreverse alist))
-      (mew-refile-alist-append-alias alist)))) ;; return value
+      (setq alist (nreverse alist)) ;; return value
+      ;;(mew-refile-alist-append-alias alist)
+      )))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

━━━━━━━━━━━━………‥・・ ・ 　・　．
  元木 顕弘 / Akihiro Motoki                　　・      ☆
　E-mail: mokkun at example.com, mokkun at example.com  　・　  .
  URL: http://www.hal.t.u-tokyo.ac.jp/~motoki/      ・・