[Mew-dist 03706] Re: refile +[current folder],+[other folder]

[KIZU takashi ( 木津隆史 )]

  こんにちは，木津＠阪大と申します．
  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 をしたくなるので，『絶対ダメ』という今の仕様は
ちょっと悲しく思っています．

木津 隆史＠情報数理系専攻.基礎工学研究科.阪大	伊熊猫賞×４
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
       ))