[Mew-dist 08786] Re: [fj.editor.mule] mail aliases file of IM

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 08785] Re: [fj.editor.mule] mail aliases file of IM
Date: Thu, 13 May 1999 13:59:39 +0900

> >   MH のデフォルトファイル( /usr/local/lib/mh/MailAliases )で、行頭の
> > ";" をコメントに使用しているので、出来るなら行頭の ";" はコメントに
> > して、行中の";"は意味を持つように出来ないでしょうか？
> 
> ではその方向で考えてみます。ハードコーディングになったとしてもお許し下
> さい。

うーん。簡単なのかも。

--かず

-------------- next part --------------
Index: mew-vars.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-vars.el,v
retrieving revision 1.123
diff -c -r1.123 mew-vars.el
*** mew-vars.el	1999/05/13 03:37:49	1.123
--- mew-vars.el	1999/05/13 05:10:20
***************
*** 1232,1245 ****
  ;;
  
  (defvar mew-print-function (function lpr-buffer))
- (defvar mew-alias-comment-characters ";#"
-   "*Comment characters for \".im/Aliases\". You may like to remove ';'
- because you make an anonymous alias as follows:
  
! customers: mew-customers:alice at example.com,bob at example.com;")
  
! (defvar mew-addrbook-comment-characters "#"
!   "*Comment characters for \".im/Addrbook\".")
  (defvar mew-addrbook-downcase-address nil
    "If non-nil, addresses in \".im/Addrbook\" are downcased
  when initialized. Completions are carried out in the downcase manner.
--- 1232,1242 ----
  ;;
  
  (defvar mew-print-function (function lpr-buffer))
  
! (defvar mew-alias-comment-regex "^;.*$\\|#.*$")
  
! (defvar mew-addrbook-comment-regex "^;.*$\\|#.*$")
! 
  (defvar mew-addrbook-downcase-address nil
    "If non-nil, addresses in \".im/Addrbook\" are downcased
  when initialized. Completions are carried out in the downcase manner.
Index: mew-addrbook.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-addrbook.el,v
retrieving revision 1.16
diff -c -r1.16 mew-addrbook.el
*** mew-addrbook.el	1999/04/15 06:49:47	1.16
--- mew-addrbook.el	1999/05/13 05:10:20
***************
*** 123,133 ****
  	  mew-addrbook-alist 1)))
  ;;
  
! (defun mew-addrbook-insert-file (file comment &optional unquote)
    (let* ((case-fold-search t)
  	 (pars (mew-split file ?,)) ;; parents
  	 (files pars) ;; included
- 	 (cregex (concat "[" comment "].*$"))
  	 par chr path beg qchar)
      ;; include parents files
      (while pars
--- 123,132 ----
  	  mew-addrbook-alist 1)))
  ;;
  
! (defun mew-addrbook-insert-file (file cregex &optional unquote)
    (let* ((case-fold-search t)
  	 (pars (mew-split file ?,)) ;; parents
  	 (files pars) ;; included
  	 par chr path beg qchar)
      ;; include parents files
      (while pars
***************
*** 192,198 ****
      (let (alias colon addrs nick name alist)
        (mew-set-buffer-tmp)
        (mew-addrbook-insert-file
!        mew-addrbook-file mew-addrbook-comment-characters 'unquote)
        (goto-char (point-min))
        (while (re-search-forward "^ ?\\([^ \n:]+\\) ?\\(:?\\) ?\\([^ \n]+\\)" nil t)
  	(setq alias (mew-addrbook-strsafe (mew-match 1)))
--- 191,197 ----
      (let (alias colon addrs nick name alist)
        (mew-set-buffer-tmp)
        (mew-addrbook-insert-file
!        mew-addrbook-file mew-addrbook-comment-regex 'unquote)
        (goto-char (point-min))
        (while (re-search-forward "^ ?\\([^ \n:]+\\) ?\\(:?\\) ?\\([^ \n]+\\)" nil t)
  	(setq alias (mew-addrbook-strsafe (mew-match 1)))
***************
*** 223,230 ****
    (save-excursion
      (let (alias expn alist)
        (mew-set-buffer-tmp)
!       (mew-addrbook-insert-file
!        mew-alias-file mew-alias-comment-characters)
        (goto-char (point-min))
        (while (re-search-forward "^ ?\\([^ \n:]+\\) ?: ?\\(.*\\)$" nil t)
  	(setq alias (mew-match 1))
--- 222,228 ----
    (save-excursion
      (let (alias expn alist)
        (mew-set-buffer-tmp)
!       (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))