[Mew-dist 03706] Re: refile +[current folder],+[other folder]
KIZU takashi ( 木津隆史 )
kizu at example.com
1998年 2月 10日 (火) 17:19:09 JST
こんにちは,木津@阪大と申します.
im-82, mew-1.92.4 を使用しています.
>>>>> In X-Mail-Count: 03660, Masahiro MURATA <muse at example.com> writes:
>> リファイル('o')時に現在のフォルダにメッセージを残したまま,別のフォ
>> ルダに link で格納することは,現在はできなくなっているのでしょうか。
>> # 以前は出来ていた気がするのですが,記憶違いかな。
mew-refile.el の mew-refile-decide-folders という関数の中に current
folder への refile を無視する以下のような code があるので『出来なくなっ
ている』が正解です.
================
(if (equal current-folder (car folders))
(message "%s is same as current folder! Ignored." (car folders)))
================
mew-mark.el には link で格納する機能が残っていますので,以下に添付す
る patch のようにこの2行を殺せば OK だと思います.
時時このような refile をしたくなるので,『絶対ダメ』という今の仕様は
ちょっと悲しく思っています.
木津 隆史@情報数理系専攻.基礎工学研究科.阪大 伊熊猫賞×4
kizu at example.com
--「良かったをさがすんだ」
--`Happiness is mandatory. Are you happy?'
-------------- next part --------------
*** mew-refile.el.orig Sat Oct 25 14:26:37 1997
--- mew-refile.el Tue Feb 10 17:05:41 1998
***************
*** 594,603 ****
(mew-input-folders (nth 0 (car learn-info))))))
;; check folder existance.
(while folders
! (if (equal current-folder (car folders))
! (message "%s is same as current folder! Ignored." (car folders))
(if (mew-folder-check (car folders))
! (setq ret (append ret (list (car folders))))))
(setq folders (cdr folders)))
(cons ret (cdr learn-info)) ; return value
))
--- 594,603 ----
(mew-input-folders (nth 0 (car learn-info))))))
;; check folder existance.
(while folders
! ; (if (equal current-folder (car folders))
! ; (message "%s is same as current folder! Ignored." (car folders)))
(if (mew-folder-check (car folders))
! (setq ret (append ret (list (car folders)))))
(setq folders (cdr folders)))
(cons ret (cdr learn-info)) ; return value
))
Mew-dist メーリングリストの案内