[Mew-dist 03543] Re: メールのフォルダへの移動について

[SAKAI Kiyotaka]

>> In article <19971213203016W.root at example.com>, root <root at example.com> writes:

>  .emacsで以下のようにルールを設定したフォルダ
>  に'o'を使って推測機能でメールを移動させようとすると
>  たとえば、mewのメーリングリストのメールであれば
>  Folder name (mew-dist): +
>  まで出て来てしっかり移動先のフォルダを推測してくれるのですが
>  この状態でリターンを押すと、
>  Wrong type argument: stringp, nil
>  という風にエラーが出て来てしまいます。

>> In article <19971213230343P.nom at example.com>, Yoshinari NOMURA <nom at example.com> writes:

>> (setq  mew-refile-guess-alist
>> '(("Sender:"
>> ("owner-linux-users at example.com" . "linux-users")
>> ("owner-college at example.com" . "college")
>> ("owner-college-job at example.com" . "college")
>> ("owner-mew-dist at example.com" . "mew-dist")

> の部分を、"mew-dist" ではなくて、"+mew-dist" という風に `+' を付
> けると正常に動くと思います。

しかし、

   Wrong type argument: stringp, nil

というのは不親切ですよね。

以下のようにちゃんとエラーメッセージを表示するようにした方がいいかと思
います。

# error を使うより、message で表示するだけにして、それ以降の行を if の
# else 部に入れる方が、他と統一性がとれるかな。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-summary.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b10/mew-summary.el,v
retrieving revision 1.4
diff -u -r1.4 mew-summary.el
--- mew-summary.el	1998/01/29 03:12:10	1.4
+++ mew-summary.el	1998/01/29 03:12:13
@@ -506,6 +506,8 @@
   (let* ((folder (or folder (mew-input-folder mew-inbox-folder)))
 	 (dir (mew-expand-folder folder))
 	 new-folder)
+    (if (null dir)
+	(error "folder %s is incorrect" folder))
     (if (and (mew-folder-imapp folder) (not (file-directory-p dir)))
 	(if (y-or-n-p
 	     (format