[Mew-dist 03896] patch to b18

[Kazu Yamamoto ( 山本和彦 )]

とりあえず、refile のバグはこれで直りました。

--かず

Index: mew-mark.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-mark.el,v
retrieving revision 1.21
diff -c -r1.21 mew-mark.el
*** mew-mark.el	1998/02/21 12:46:13	1.21
--- mew-mark.el	1998/02/23 08:10:30
***************
*** 159,165 ****
  (defun mew-summary-mark-weak (mark)
    (save-excursion
      (if (mew-summary-in-multi-p)
! 	(goto-char (marker-position mew-summary-buffer-beg)))
      (let ((cmark (mew-summary-get-mark))
  	  (msg (mew-summary-message-number)))
        (cond 
--- 159,167 ----
  (defun mew-summary-mark-weak (mark)
    (save-excursion
      (if (mew-summary-in-multi-p)
! 	(progn
! 	  (goto-char (marker-position mew-summary-buffer-beg))
! 	  (forward-line -1)))
      (let ((cmark (mew-summary-get-mark))
  	  (msg (mew-summary-message-number)))
        (cond 
Index: mew-refile.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-refile.el,v
retrieving revision 1.9
diff -c -r1.9 mew-refile.el
*** mew-refile.el	1998/02/20 14:18:22	1.9
--- mew-refile.el	1998/02/23 08:14:47
***************
*** 611,618 ****
      (let (msg folders mark buf learn-info)
        (save-excursion
  	;; save the cursor position anyway
! 	(if (mew-syntax-number)
! 	    (re-search-backward mew-summary-message-regex nil t nil))
  	;; on the message
  	;; show message if not displayed
  	(mew-summary-display t) ;; not force
--- 611,620 ----
      (let (msg folders mark buf learn-info)
        (save-excursion
  	;; save the cursor position anyway
! 	(if (mew-summary-in-multi-p)
! 	    (progn
! 	      (goto-char (marker-position mew-summary-buffer-beg))
! 	      (forward-line -1)))
  	;; on the message
  	;; show message if not displayed
  	(mew-summary-display t) ;; not force
Index: mew-summary.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-summary.el,v
retrieving revision 1.22
diff -c -r1.22 mew-summary.el
*** mew-summary.el	1998/02/21 12:46:15	1.22
--- mew-summary.el	1998/02/23 08:11:00
***************
*** 1069,1074 ****
--- 1069,1075 ----
    (if (and arg (mew-summary-in-multi-p))
        (progn
  	(goto-char (marker-position mew-summary-buffer-beg))
+ 	(forward-line -1)
  	(mew-decode-syntax-delete)))
    (if (and (mew-summary-up) mew-summary-buffer-disp-msg)
        (mew-summary-display))
***************
*** 1090,1095 ****
--- 1091,1097 ----
    (if (and arg (mew-summary-in-multi-p))
        (progn
  	(goto-char (marker-position mew-summary-buffer-beg))
+ 	(forward-line -1)
  	(mew-decode-syntax-delete)))
    (if (and (mew-summary-down) mew-summary-buffer-disp-msg)
        (mew-summary-display))
Index: mew-syntax.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-syntax.el,v
retrieving revision 1.10
diff -c -r1.10 mew-syntax.el
*** mew-syntax.el	1998/02/21 12:46:17	1.10
--- mew-syntax.el	1998/02/23 08:07:56
***************
*** 584,602 ****
  
      (insert
       (concat
!       (substring
!        (concat
! 	marks
! 	(if number (concat space number))
! 	space space
! 	ct
! 	space space
! 	cd-or-dec
! 	space space
! 	file
! 	(make-string (window-width) SP)
! 	)
!        0 LT)
        "\n"))
      ))
  
--- 584,597 ----
  
      (insert
       (concat
!       marks
!       (if number (concat space number))
!       space space
!       ct
!       space space
!       cd-or-dec
!       space space
!       file
        "\n"))
      ))