[Mew-dist 15595] for the people who want to always live in a thread folder

[NINOMIYA Hideyuki]

こんにちは	二宮@お四国 です

thread 表示機能が案外良い感じなので常に thread folder で過ごしたく
なりました。
以下その為のちょっとした patch です。
ご意見下さいませ > all α tester

Index: mew-mark.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-mark.el,v
retrieving revision 1.8
diff -c -F(def -r1.8 mew-mark.el
*** mew-mark.el	2000/12/15 11:59:44	1.8
--- mew-mark.el	2000/12/20 08:03:50
*************** (defun mew-summary-exec-region (beg end)
*** 509,522 ****
  		 (mew-mark-kill-line-region (point-min) (point-max))
  		 (mew-summary-folder-cache-save)
                   (mew-touch-folder (mew-summary-folder-name 'ext))
- 		 (run-hooks 'mew-summary-exec-hook)
  		 (set-buffer-modified-p nil)
  		 (mew-summary-reset-mode-line (current-buffer))
  		 (setq mew-summary-buffer-process nil)
  		 (message "Refiling and deleting ... done")))
  	   (quit
  	    (set-buffer-modified-p nil)
! 	    (setq mew-summary-buffer-process nil))))))))
  
  (defmacro mew-mark-kill-line ()
    '(let (start)
--- 509,522 ----
  		 (mew-mark-kill-line-region (point-min) (point-max))
  		 (mew-summary-folder-cache-save)
                   (mew-touch-folder (mew-summary-folder-name 'ext))
  		 (set-buffer-modified-p nil)
  		 (mew-summary-reset-mode-line (current-buffer))
  		 (setq mew-summary-buffer-process nil)
  		 (message "Refiling and deleting ... done")))
  	   (quit
  	    (set-buffer-modified-p nil)
! 	    (setq mew-summary-buffer-process nil)))
! 	 (run-hooks 'mew-summary-exec-hook))))))
  
  (defmacro mew-mark-kill-line ()
    '(let (start)
Index: mew-scan.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-scan.el,v
retrieving revision 1.6
diff -c -F(def -r1.6 mew-scan.el
*** mew-scan.el	2000/12/15 11:59:45	1.6
--- mew-scan.el	2000/12/20 07:40:49
*************** (defun mew-summary-ls (&optional arg jum
*** 518,524 ****
  	     ;; "all"
  	     (setq lines (mew-summary-mark-collect3 mew-mark-collect))
  	     (mew-erase-buffer)))
!        (mew-summary-scan-body (mew-scan-mewls-src folder range) lines)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 518,526 ----
  	     ;; "all"
  	     (setq lines (mew-summary-mark-collect3 mew-mark-collect))
  	     (mew-erase-buffer)))
!        (mew-summary-scan-body (mew-scan-mewls-src folder range) lines))
!      (if (not (processp mew-summary-buffer-process))
! 	 (run-hooks 'mew-summary-ls-hook)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
Index: mew-vars.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-vars.el,v
retrieving revision 1.8
diff -c -F(def -r1.8 mew-vars.el
*** mew-vars.el	2000/12/15 11:59:45	1.8
--- mew-vars.el	2000/12/20 08:15:34
*************** (defcustom mew-summary-exec-hook nil
*** 246,251 ****
--- 246,257 ----
    :group 'mew-summary
    :type 'hook)
  
+ (defcustom mew-summary-ls-hook nil
+   "*Hook called when mew-summary-ls finished in Another process
+ is not running."
+   :group 'mew-summary
+   :type 'hook)
+ 
  (defcustom mew-summary-toggle-disp-msg-hook nil
    "*Hook called when mew-summary-toggle-disp-msg-hook finished."
    :group 'mew-summary

そして

(add-hook 'mew-summary-exec-hook 'mew-summary-make-thread)
(add-hook 'mew-summary-ls-hook 'mew-summary-make-thread)
(add-hook 'mew-summary-scan-sentinel-hook 'mew-summary-make-thread)

などとします。

新しい hook を1個導入してます。
1ヶ所 run-hooks の場所を更えました。

それらが問題ないか検証下さいませ
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html