[Mew-dist 05943] Re: about Aliases file

[Murata Takashi]

  村田@NSGです。先ほどの件は解決しました。ありがとうございます。>ksakai
  他の方の回答に割り込んでしまいますが…

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 05940] Re: about Aliases file
Date: Mon, 17 Aug 1998 15:38:02 +0900

> 以下のように修正して下さい。(今朝、送ったパッチの後に当てるようになっ
> ています。)

> -	  (while (re-search-forward "^\\([^ \t\n:]+\\): \\(.*\\)$" nil t)
> +	  (while (re-search-forward "^\\([^ \t\n:]+\\): ?\\(.*\\)$" nil t)

  ここなのですが、行頭空白も許すように、

	(re-search-forward "^ ?\\([^ \t\n:]+\\): ?\\(.*\\)$" nil t)

として戴けないでしょうか？

  それと、これが一番困っているのですが、私のAliasFileには、複数の
ファイルを","で区切って列挙出来ること、 ~/.im からの相対パス指定が
出来ること、を利用しているため、

AliasFile=/etc/aliases.local,../Mail/aliases

というような指定をしています。これを実現しようと、以下のようにした
のですが、elispはよく知らないので、相対パスのやり方が分かりません。
とりあえず、 ~ からの相対のようなので、Config側を書き直せばいいよう
なのですが、IMと共存出来ない、ということになります。

  (if t ;(and mew-alias-file (file-readable-p mew-alias-file))
      (save-excursion
	(let ((case-fold-search t)
	      (alias nil)
	      (expn nil)
	      (alist nil)
	      (files (list mew-alias-file)))
	  (mew-set-buffer-tmp)
;;	  (insert-file-contents mew-alias-file)
	  (mapcar (lambda (x) (if (file-readable-p x)
				  (insert-file-contents x)))
		  (mew-split mew-alias-file ?,))

  あと、 SiteConfig と ~/.im/Config の両方が見れるようになれば、
さらに嬉しいですが、実現して戴けないでしょうか？

┌───────────── 村田 隆 / Takashi.Murata at example.com ┐
└ 日本システム技術(株) 技術部  Tel:03-3503-8736  Fax:03-3580-7806 ┘