[Mew-dist 1741] auto refile speed up

[尾澤稔]

尾澤＠沖です

Auto refile を高速化するパッチです。
結構早くなります、試してみてください。
# ただしコーディングはきれいじゃないかも...
-------------- next part --------------
--- mew-refile.el	Wed Aug 27 13:29:26 1997
+++ /home/ozawa/Work/TAR/Mew/contrib/mew-refile.el	Fri Aug 29 08:52:40 1997
@@ -580,12 +580,30 @@
     (save-window-excursion
       (goto-char (point-min))
       (while (not (eobp))
-	(mew-summary-refile nil t)
+	;;(mew-summary-refile nil t)
+	(mew-summary-auto-refile-set)
 	(forward-line 1)
 	(message "Auto refiling ... %s%%"
 		 (/ (* 100 line) lines))
 	(setq line (1+ line)))
       (message "Auto refileing ... done"))))
+
+(defun mew-summary-auto-refile-set ()
+  (let (folder mark msg)
+    (setq mark (mew-summary-get-mark))
+    (setq msg (mew-summary-message-number))
+    (if (or (eq mark mew-mark-refile) (eq mark mew-mark-rmm))
+	nil
+      (setq folder (mew-auto-refile-get-folder msg)))
+    (if folder
+	(if (mew-folder-check (car folder))
+	    (progn
+	      (if mark
+		  (mew-mark-unmark))
+	      (mew-refile-set msg (car folder))
+	      (mew-summary-mark-as mew-mark-refile))
+	  ))
+    ))
 
 ;;
 ;; "mx" extension
-------------- next part --------------
						尾澤 稔
						ozawa at example.com