[Mew-dist 06233] Re: refile-from-alist

[Kazu Yamamoto ( 山本和彦 )]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 06232] Re: refile-from-alist
Date: Tue, 1 Sep 1998 13:17:07 +0900

> > % grep nconc mew-refile.el
> > 	    (nconc mew-refile-from-alist (list (cons from folder))))))))
> 
> ここですね。

ああ、先を越されてしまった。:)

でも他にも修正すべきだと思いますので、こっちを使って下さい。

> # mew-refile.el では mew-refile-{from,msgid}-alist が nil だと
> # mew-refile-alist-load を何度も呼び出していますが、Mew の起動時に
> # 1回だけ呼び出すというのでは駄目なのでしょうか？

僕も常々そう nom さんに言っているんですがね。簡単に直るなら、直してく
れると嬉しいです。

--かず＠昔から stateless を愛している...


-------------- next part --------------
Index: mew-refile.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-refile.el,v
retrieving revision 1.40
diff -c -r1.40 mew-refile.el
*** mew-refile.el	1998/08/24 14:45:34	1.40
--- mew-refile.el	1998/09/01 04:18:32
***************
*** 372,378 ****
  		      (mew-refile-alist-load mew-refile-from-file-name)))
  	    (setq mew-refile-from-alist
  		  (mew-refile-alist-purge from mew-refile-from-alist))
! 	    (nconc mew-refile-from-alist (list (cons from folder))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 372,380 ----
  		      (mew-refile-alist-load mew-refile-from-file-name)))
  	    (setq mew-refile-from-alist
  		  (mew-refile-alist-purge from mew-refile-from-alist))
! 	    (if mew-refile-from-alist
! 		(nconc mew-refile-from-alist (list (cons from folder)))
! 	      (setq mew-refile-from-alist (list (cons from folder)))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
***************
*** 392,403 ****
  	;; Add empty information ("nom at example.com" . nil) if key is absent.
  	(if (assoc address mew-refile-from-alist)
  	    ()
! 	  (nconc mew-refile-from-alist (list (cons address nil))))
  	;; also Add to mew-alias-alist
  	(setq user (mew-addrstr-extract-user address))
  	(if (assoc user mew-alias-alist)
  	    ()
! 	  (nconc mew-alias-alist (list (cons user address)))))))
  
  ;;
  ;; append alias items made from from-alist to alias-alist
--- 394,409 ----
  	;; Add empty information ("nom at example.com" . nil) if key is absent.
  	(if (assoc address mew-refile-from-alist)
  	    ()
! 	  (if mew-refile-from-alist
! 	      (nconc mew-refile-from-alist (list (cons address nil)))
! 	    (setq mew-refile-from-alist (list (cons address nil)))))
  	;; also Add to mew-alias-alist
  	(setq user (mew-addrstr-extract-user address))
  	(if (assoc user mew-alias-alist)
  	    ()
! 	  (if mew-alias-alist
! 	      (nconc mew-alias-alist (list (cons user address)))
! 	    (setq mew-alias-alist (list (cons user address))))))))
  
  ;;
  ;; append alias items made from from-alist to alias-alist
***************
*** 419,425 ****
  	  ()
  	(setq ret (cons (cons user addr) ret)))
        (setq loop-alist (cdr loop-alist)))
!     (nconc alias-alist (nreverse ret))))
  
  ;;
  ;; Alias maintenance function (purge)
--- 425,433 ----
  	  ()
  	(setq ret (cons (cons user addr) ret)))
        (setq loop-alist (cdr loop-alist)))
!     (if alias-alist
! 	(nconc alias-alist (nreverse ret))
!       (nreverse ret))))
  
  ;;
  ;; Alias maintenance function (purge)