[mew-dist 18697] '(',')' bug fix again

[NINOMIYA Hideyuki]

こんばんは	二宮@お四国 です

直ってるはずだった '(',')'を試してみたら、直って無さ気
だったので見てみたら、肝心の sibling-up/down が未修正
だったみたいです ^^;

という訳でパッチです

Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.1.1.36
diff -c -F(def -r1.1.1.36 mew-thread.el
*** mew-thread.el	2001/08/30 06:25:27	1.1.1.36
--- mew-thread.el	2001/09/03 13:39:24
*************** (defun mew-summary-thread-sibling-up ()
*** 719,732 ****
    (let ((pos (point)) key)
      (if (not (looking-at mew-regex-virtual-thread))
  	(message "No required info")
!       (setq key (format " <%s>\n" (mew-match 5)))
        (if (string= key "")
  	  (message "No required info")
  	(if (search-backward key nil t)
  	    (progn
  	      (mew-summary-thread-move-cursor)
  	      (mew-summary-display nil)
! 	      (message "A sibling found"))
  	  (goto-char pos)
  	  (message "No sibling"))))))
  
--- 719,733 ----
    (let ((pos (point)) key)
      (if (not (looking-at mew-regex-virtual-thread))
  	(message "No required info")
!       (setq key (mew-match 5))
        (if (string= key "")
  	  (message "No required info")
+ 	(setq key (format " <%s>\n" key))
  	(if (search-backward key nil t)
  	    (progn
  	      (mew-summary-thread-move-cursor)
  	      (mew-summary-display nil)
! 	      (message "Sibling found"))
  	  (goto-char pos)
  	  (message "No sibling"))))))
  
*************** (defun mew-summary-thread-sibling-down (
*** 736,744 ****
    (let ((pos (point)) key)
      (if (not (looking-at mew-regex-virtual-thread))
  	(message "No required info")
!       (setq key (format " <%s>\n" (mew-match 5)))
        (if (string= key "")
  	  (message "No required info")
  	(forward-line)
  	(if (search-forward key nil t)
  	    (progn
--- 737,746 ----
    (let ((pos (point)) key)
      (if (not (looking-at mew-regex-virtual-thread))
  	(message "No required info")
!       (setq key (mew-match 5))
        (if (string= key "")
  	  (message "No required info")
+ 	(setq key (format " <%s>\n" key))
  	(forward-line)
  	(if (search-forward key nil t)
  	    (progn