[mew-dist 21862] Re: フォルダの補完

Hideyuki SHIRAI ( 白井秀行 ) shirai at example.com
2002年 10月 7日 (月) 17:48:24 JST


From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21854] Re: フォルダの補完
Message-ID: <20021004.120228.104714248.kazu at example.com>
Date: Fri, 04 Oct 2002 12:02:28 +0900 (JST)

> > 危険が去ったので、現在のフォルダの補完関連を見直してみました。
> 
> すべてマージしました。
> 
> 他と整合性が取れるように、変更した部分もありますので、確認をお願いしま
> す。

ありがとうございます。確認しました。

..... 

しかし、欲望はつきないものでして、mew-input-folders() などの
mew-complete-local-folder() を使う関数でも絶対パスを指定できるよ
うにしてみました。"c" 系のコマンドで絶対パスを指定できると便利だ
と思います。さすがに Fcc: では効かないようにしました。

# mew-dist のこいつとこいつをあそこにコピーして、tar+gzip して
# あいつに送る、とか便利かも。

また、mew-link() で add-name-to-file() を使っていますが、デバイ
スを跨ぐハードリンクは失敗するので、そのときは copy-file() を使
うようにしました。

## ともに、少々やりスギのような気もするので、黙殺されてもかまい
## ません。^^;

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-complete.el.orig	Fri Oct  4 12:20:52 2002
+++ mew-complete.el	Mon Oct  7 16:56:05 2002
@@ -119,7 +119,10 @@
         (completion-ignore-case mew-complete-folder-ignore-case))
     (if (null word)
         (mew-complete-window-show (list "+"))
-      (mew-complete word (mew-local-folder-alist) "folder" nil))))
+      (if (and (mew-folder-absolutep word)
+	       (not (mew-draft-or-header-p)))
+	  (mew-complete word (mew-complete-directory-alist word) "directory" nil)
+	(mew-complete word (mew-local-folder-alist) "folder" nil)))))
 
 (defun mew-complete-imap-folder ()
   "IMAP folder complete function."
--- mew-env.el.orig	Wed Sep 18 15:46:45 2002
+++ mew-env.el	Mon Oct  7 16:49:48 2002
@@ -209,7 +209,10 @@
   (defsubst mew-link (filename newname &optional OK-IF-ALREADY-EXISTS)
     (if (file-directory-p (file-chase-links filename))
 	(error "Cannot make a link to directory")
-      (add-name-to-file filename newname OK-IF-ALREADY-EXISTS))))
+      (condition-case nil
+	  (add-name-to-file filename newname OK-IF-ALREADY-EXISTS)
+	(file-error
+	 (copy-file filename newname OK-IF-ALREADY-EXISTS 'keepdate))))))
  (t
   (defsubst mew-symbolic-link (filename newname &optional OK-IF-ALREADY-EXISTS)
     (if (file-directory-p filename)



Mew-dist メーリングリストの案内