[mew-dist 19068] Re: Folder name (mew-dist): + で RET すると

[Hideyuki SHIRAI ( 白井秀行 )]

From: Dave Scotto <dave at example.com> さん曰く
Subject: [mew-dist 19061] Folder name (mew-dist): + で RET すると
Message-ID: <20010928.131203.730720022.dave at example.com>
Date: Fri, 28 Sep 2001 13:12:03 +0900 (JST)

> Summaryで o して 以下のminibuffe
> Folder name (mew-dist): + で RET すると
               ~~~~~~~~
なんでここが "mew-dist" なのかわからないのですが、通常は

"Folder name (+mew-dist): +"
              ~
な感じになると思います。

(1) mew-refile-guess-alist に ("Mew-dist" . "mew-dist") みたい
 に書いてしまった。本当は、("Mew-dist" . "+mew-dist")。

(2) 間違って ~/Mail/.mew-refile-xxxx-alist が学習してしまった？
 けど、これはなさそうですね。

ぐらいかなぁ。

> Signaling: (wrong-type-argument stringp nil)
>   file-exists-p(nil)
>   mew-folder-check("mew-dist")

どっちにしろ、エラーになるのは良くないでしょうから、ガードした方
がよいですね。

-- 
白井秀行 (mailto:shirai at example.com)
↓ほとんど indent のみのパッチ

*** mew-func.el.orig	Fri Sep 28 18:06:55 2001
--- mew-func.el	Fri Sep 28 15:41:41 2001
***************
*** 483,508 ****
        nil ;; wrong
      (let ((absdir (mew-expand-folder folder))  ;; /home/Mail/foo
  	  (create-it force-to-create))
!       (if (file-exists-p absdir)
! 	  (if (file-directory-p absdir)
! 	      (progn
! 		;; The folder doesn't exist in mew-folder-list if
! 		;; a user creates it by hand...
! 		(mew-folder-insert folder) ;; just in case
! 		t) ;; exists
! 	    (message "%s is a file" folder)
! 	    nil) ;; xxx exists but a file
! 	(unless create-it
! 	  (if (y-or-n-p (format "%s doesn't exist. Create it? " folder))
! 	      (setq create-it t)))
! 	(if (not create-it)
! 	    nil ;; not created
! 	  (mew-make-directory absdir)
! 	  (mew-folder-insert folder)
! 	  (mew-lisp-save mew-folder-list-file mew-folder-list)
! 	  (mew-lisp-save mew-folder-alist-file mew-folder-alist)
! 	  (message "%s has been created" folder)
! 	  t))))) ;; created
  
  (defsubst mew-dir-messages (dir)
    ;; (default-file-name-coding-system nil)
--- 483,510 ----
        nil ;; wrong
      (let ((absdir (mew-expand-folder folder))  ;; /home/Mail/foo
  	  (create-it force-to-create))
!       (if (null absdir)
! 	  nil
! 	(if (file-exists-p absdir)
! 	    (if (file-directory-p absdir)
! 		(progn
! 		  ;; The folder doesn't exist in mew-folder-list if
! 		  ;; a user creates it by hand...
! 		  (mew-folder-insert folder) ;; just in case
! 		  t) ;; exists
! 	      (message "%s is a file" folder)
! 	      nil) ;; xxx exists but a file
! 	  (unless create-it
! 	    (if (y-or-n-p (format "%s doesn't exist. Create it? " folder))
! 		(setq create-it t)))
! 	  (if (not create-it)
! 	      nil ;; not created
! 	    (mew-make-directory absdir)
! 	    (mew-folder-insert folder)
! 	    (mew-lisp-save mew-folder-list-file mew-folder-list)
! 	    (mew-lisp-save mew-folder-alist-file mew-folder-alist)
! 	    (message "%s has been created" folder)
! 	    t)))))) ;; created
  
  (defsubst mew-dir-messages (dir)
    ;; (default-file-name-coding-system nil)