[Mew-dist 09076] Re: addrbook bug?

[Kazu Yamamoto ( 山本和彦 )]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 09074] Re: addrbook bug?
Date: Wed, 2 Jun 1999 16:20:15 +0900

> mew-addrbook-make-alist の方は置き換えるコードが入っていますが、
> mew-alias-make-alist の方は入っていないので、これが原因でしょう。

なるほど。では、これを試して下さい。

--かず

-------------- next part --------------
*** mew-addrbook.el.orig	Wed Jun  2 20:43:39 1999
--- mew-addrbook.el	Wed Jun  2 20:44:36 1999
***************
*** 231,238 ****
        (mew-addrbook-insert-file mew-alias-file mew-alias-comment-regex)
        (goto-char (point-min))
        (while (re-search-forward "^ ?\\([^ \n:]+\\) ?: ?\\(.*\\)$" nil t)
! 	(setq alias (mew-match 1))
! 	(setq expn (mew-match 2))
  	;; append for first assoc comes first
  	(setq alist (cons (list alias expn) alist)))
        (nreverse alist))))
--- 231,238 ----
        (mew-addrbook-insert-file mew-alias-file mew-alias-comment-regex)
        (goto-char (point-min))
        (while (re-search-forward "^ ?\\([^ \n:]+\\) ?: ?\\(.*\\)$" nil t)
! 	(setq alias (mew-addrbook-strsafe (mew-match 1)))
! 	(setq expn (mew-addrbook-strsafe (mew-match 2)))
  	;; append for first assoc comes first
  	(setq alist (cons (list alias expn) alist)))
        (nreverse alist))))