[Mew-dist 04225] Re: mew-1.93b25.tar.gz

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。
非常に細かいことで恐縮ですが...。

In the message "[Mew-dist 04190] mew-1.93b25.tar.gz"
               <19980313225306W.kazu at example.com>
Kazu Yamamoto (山本和彦) <Kazu at example.com> wrote:

> mew-1.93b25.tar.gz を ftp.mew.org:/pub/Mew/beta に置きました。"x" のカー

いままでは defadvice して逃げてたんですが、{Auto|Mark} refile 中は 
mew-use-highlight-x-face も default で off になるようにしたほうが
良い (といっても早いだけですが...) と思いますが、いかがでしょうか。
;; ここに入れるのは良くないかも...。

;; あと、mew-summary-mark-refile<f> の中の "Auto refiling ..." は
;; 多分 "Mark refiling ..." ですよね？
--
津邑＠京大情報学


--- mew-refile.el.org	Mon Mar 16 15:44:56 1998
+++ mew-refile.el	Mon Mar 16 21:08:09 1998
@@ -670,6 +670,7 @@
     (let ((mew-analysis nil) 
 	  (after-change-function nil)
 	  (after-change-functions nil)
+	  (mew-use-highlight-x-face nil)
 	  (lines (count-lines (point-min) (point-max)))
 	  (line 1)
 	  (mark nil))
@@ -699,6 +700,7 @@
     (let ((mew-analysis nil)
 	  (after-change-function nil)
 	  (after-change-functions nil)
+	  (mew-use-highlight-x-face nil)
 	  (lines (count-lines (point-min) (point-max)))
 	  (mew-refile-last-folder nil)
 	  (line 1))
@@ -710,7 +712,7 @@
 	       (mew-summary-refile mew-refile-last-folder))
 	  (forward-line 1)
 	  (if (equal (% (/ (* 100 line) lines) 10) 0)
-	      (message "Auto refiling ... %s%%"
+	      (message "Mark refiling ... %s%%"
 		       (/ (* 100 line) lines)))
 	  (setq line (1+ line)))
 	(message "Mark refiling ... done")))))