🚀 go-pugleaf

>> In article <YAMAT.99May11173009@moon.st.rim.or.jp>, yamat@st.rim.or.jp (Takahiro Yamaguchi) writes:

> im の man ディレクトリの下の imput をみたら

>   --AliasesFile=<str,>	path of alias files for mail addresses.
> 			Example: 
> 				alias1:  u1
> 				alias2:  u2@domain
> 				alias3:  User-Three <u3@domain>
> 				alias4:  u4,u5
> 				alias5:  group:u6,u7;
> 				alias6:  group:/address/list/file;

> のような項目があり、この部分の alias6 では、/address/list/file
> から 複数人の address を書いた file から mail address を読みとり
> send するときに展開してくれるのかなと解釈したわけです。

最近の Mew では、スピードアップの目的のため、alias の展開は imali を使
わずに Mew 自身で行っていますが、Emacs Lisp 化するときに誤って行頭以外
のコメントも認めるコードにしてしまったために、最後の ";" が省略される
結果となってしまっていました。

以下のパッチで直るかと思います。

> これで、できるのはわかっているのですが。
> mh の aliases file みたいに、
> 1box: < /ausys/memb/yama/Mail/.1box
> みたいにしたいのです。

ただし、

  alias5:  group:u6,u7;
  alias6:  group:/address/list/file;

という表記は sendmail の展開を利用していますので、このファイル中にアド
レスを書いても To にファイル中のアドレスを展開するということはありませ
ん。
-- 
酒井 清隆 (E-mail: ksakai@kso.netwk.ntt-at.co.jp)


===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1999/05/12 02:53:11	1.1
+++ mew.el	1999/05/12 02:53:24
@@ -269,7 +269,7 @@
 	  (goto-char (point-max))))
       ;; remove commets
       (goto-char (point-min))
-      (while (re-search-forward "[;#].*$" nil t)
+      (while (re-search-forward "^[;#].*$" nil t)
 	(delete-region (match-beginning 0) (match-end 0)))
       ;; concat continuation lines
       (goto-char (point-min))