[Mew-dist 05988] Re: about Aliases file

[Yoshinari NOMURA]

乃村です。

On Wed, 19 Aug 1998 12:32:27 +0900,
	Kazu Yamamoto (山本和彦) <kazu at example.com> said:

> > .im/Aliases の方が残るように uniq するときに、やっぱりどっちの
> > alist からやって来たかを調べてやらないといけなくないですか?
> 
> どうせ、assoc は先にあるエントリーにマッチすると割り切って、key を 
> uniq にせず、alias-list の後に append するのじゃダメ？

何でこうしなかったかは理由があったような気もするんですが、多分大
丈夫ですね。そうしてみます。

あともう 1個、

On Wed, 19 Aug 1998 11:47:11 +0900,
	Masachika ISHIZUKA <ishizuka at example.com> said:

>   To: が <> になっている SPAM mail が送られてきたのですが、
> SPAM mail は +spam に refile したいと思って o を押すと
> 
> | Wrong type argument: stringp, nil

To: <>
Cc: nom

に対して、(mew-header-parse-address-list '("To:" "Cc:"))
が (nil "nom") を返すのがおかしいような気もしますが。。とりあえ
ず double check しときます。

上の 2つについてのパッチを付けます。
--
nom


*** mew-refile.el.orig	Mon Aug 10 22:14:28 1998
--- mew-refile.el	Wed Aug 19 16:25:25 1998
***************
*** 3,13 ****
  ;; Author:  Yoshinari NOMURA <nom at example.com>
  ;;          Kazu Yamamoto <Kazu at example.com>
  ;; Created: Jun 11, 1994
! ;; Revised: Feb 19, 1998
  
  ;;; Code:
  
! (defconst mew-refile-version "mew-refile.el version 0.62")
  
  (require 'mew)
  
--- 3,13 ----
  ;; Author:  Yoshinari NOMURA <nom at example.com>
  ;;          Kazu Yamamoto <Kazu at example.com>
  ;; Created: Jun 11, 1994
! ;; Revised: Aug 19, 1998
  
  ;;; Code:
  
! (defconst mew-refile-version "mew-refile.el version 0.63")
  
  (require 'mew)
  
***************
*** 209,215 ****
    (let ((to-cc (mew-header-parse-address-list mew-refile-guess-key-list))
  	ret return ml-name)
      (while to-cc
!       (setq ml-name (mew-addrstr-extract-user (car to-cc)))
        (if (setq ret (mew-assoc-case-equal ml-name mew-folder-alist 1))
  	  (progn
  	    (setq return (append return (list (nth 0 ret))))
--- 209,215 ----
    (let ((to-cc (mew-header-parse-address-list mew-refile-guess-key-list))
  	ret return ml-name)
      (while to-cc
!       (setq ml-name (mew-addrstr-extract-user (or (car to-cc) "")))
        (if (setq ret (mew-assoc-case-equal ml-name mew-folder-alist 1))
  	  (progn
  	    (setq return (append return (list (nth 0 ret))))
***************
*** 406,425 ****
  ;; in reverse order.
  ;;
  (defun mew-refile-alist-append-alias (alias-alist)
!   (let (from from-alist)
      ;; load alist if not
      (if (not mew-refile-from-alist)
  	(setq mew-refile-from-alist
  	      (mew-refile-alist-load mew-refile-from-file-name)))
!     (setq from-alist mew-refile-from-alist)
!     (while from-alist
!       (setq from (car (car from-alist)))
!       (if (not (assoc (mew-addrstr-extract-user from) alias-alist))
! 	  (setq alias-alist
! 		(cons (cons (mew-addrstr-extract-user from) from)
! 		      alias-alist)))
!       (setq from-alist (cdr from-alist)))
!     alias-alist))
  
  ;;
  ;; Alias maintenance function (purge)
--- 406,425 ----
  ;; in reverse order.
  ;;
  (defun mew-refile-alist-append-alias (alias-alist)
!   (let (from)
      ;; load alist if not
      (if (not mew-refile-from-alist)
  	(setq mew-refile-from-alist
  	      (mew-refile-alist-load mew-refile-from-file-name)))
!     (mapcar 
!      (function 
!       (lambda (x)
! 	(setq from (car x))
! 	(setq alias-alist
! 	      (cons (cons (mew-addrstr-extract-user from) from)
! 		    alias-alist))))
!      mew-refile-from-alist))
!   alias-alist)
  
  ;;
  ;; Alias maintenance function (purge)