[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 メーリングリストの案内