diff -car mew-1.90.orig/Makefile mew-1.90/Makefile
*** mew-1.90.orig/Makefile	Wed Aug 20 20:31:19 1997
--- mew-1.90/Makefile	Mon Sep 15 06:33:45 1997
***************
*** 23,30 ****
  ##
  
  #EMACS = emacs
! EMACS = xemacs
! #EMACS = mule
  #EMACS = mule2
  #EMACS = mule19
  
--- 23,30 ----
  ##
  
  #EMACS = emacs
! #EMACS = xemacs
! EMACS = mule
  #EMACS = mule2
  #EMACS = mule19
  
diff -car mew-1.90.orig/mew-scan.el mew-1.90/mew-scan.el
*** mew-1.90.orig/mew-scan.el	Tue Aug 26 09:58:09 1997
--- mew-1.90/mew-scan.el	Mon Sep 15 06:34:28 1997
***************
*** 109,115 ****
  			    ((equal mode 'mew-summary-mode)
  			     (append
  			      (list (format "--thread=%s"
! 					    (if (mew-folder-newsp folder) 
  						"yes" "no")))
  			      (list (concat "--src=" folder))
  			      mew-prog-imls-arg-list
--- 109,115 ----
  			    ((equal mode 'mew-summary-mode)
  			     (append
  			      (list (format "--thread=%s"
! 					    (if (or mew-always-thread (mew-folder-newsp folder))
  						"yes" "no")))
  			      (list (concat "--src=" folder))
  			      mew-prog-imls-arg-list
diff -car mew-1.90.orig/mew-summary.el mew-1.90/mew-summary.el
*** mew-1.90.orig/mew-summary.el	Tue Aug 26 15:32:53 1997
--- mew-1.90/mew-summary.el	Mon Sep 15 06:34:28 1997
***************
*** 116,121 ****
--- 116,122 ----
    (define-key mew-summary-mode-map "p"    'mew-summary-display-up)
    (define-key mew-summary-mode-map "N"    'mew-summary-display-hop-down)
    (define-key mew-summary-mode-map "P"    'mew-summary-display-hop-up)
+   (define-key mew-summary-mode-map "t"    'mew-summary-toggle-thread-mode)
    (define-key mew-summary-mode-map "w"    'mew-summary-send)
    (define-key mew-summary-mode-map "B"    'mew-summary-burst)
    (define-key mew-summary-mode-map "Z"    'mew-status-update)
***************
*** 235,240 ****
--- 236,242 ----
  
  i	Get +inbox asynchronously.
  s	List this folder asynchronously. 
+ t	toggle scan mail with thread mode(after this, use s command with all)
  g	Go to inputed folder.
  
  w	Prepare draft to send a message.
***************
*** 1094,1099 ****
--- 1096,1105 ----
        (if mew-summary-buffer-disp-msg ;; just seed up!
  	  (mew-summary-display)))
      ))
+ 
+ (defun mew-summary-toggle-thread-mode ()
+   (interactive)
+   (setq mew-always-thread (if mew-always-thread nil t)))
  
  (defun mew-summary-prev-page ()
    (interactive)
diff -car mew-1.90.orig/mew.el mew-1.90/mew.el
*** mew-1.90.orig/mew.el	Tue Aug 26 09:59:26 1997
--- mew-1.90/mew.el	Mon Sep 15 06:34:28 1997
***************
*** 117,122 ****
--- 117,124 ----
  (defvar mew-break-pages t)
  (defvar mew-page-delimiter "^\^L")
  
+ (defvar mew-always-thread nil)
+ 
  ;;
  ;; Highlight
  ;;