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

[SAKAI Kiyotaka]

>> In article <19980901123400K.tam at example.com>, Murata Takashi <Takashi.Murata at example.com> writes:

>> mew-refile-from-alistが学習されない件ですが、mew-refile-from-alistが
>> nilのときに、追加が出来ないようです。

>   以下のどこかでnilにnconcしているんでしょうね…感想だけですが。

> % 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回だけ呼び出すというのでは駄目なのでしょうか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: mew-refile.el
===================================================================
RCS file: /home/cvsroot/mew-1.93pre2/mew-refile.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-refile.el
--- mew-refile.el	1998/09/01 02:50:20	1.1.1.1
+++ mew-refile.el	1998/09/01 04:12:22
@@ -372,7 +372,9 @@
 		      (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))))))))
+	    (if mew-refile-from-alist
+		(nconc mew-refile-from-alist (list (cons from folder)))
+	      (setq mew-refile-from-alist (list (cons from folder)))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;