[mew-dist 25383] Re: 'o' error in thread folder

[Kazu Yamamoto ( 山本和彦 )]

> 'Cannot refile this invalid message'
> 
> と叱られます。

うーみゅ。

>     (when (mew-sumsyn-match mew-regex-sumsyn-short)
>       (setq fld (mew-sumsyn-folder-name))
>                 ~~~~~~~~~~~~~~~~~~~~~~~~
> ここから mew-sumsyn-folder-name() => mew-physical-folder() 内部
> で string-match() をしているから、match-data が変わっちゃって、

こうしましょうか。

--かず

Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.152
diff -c -r1.152 mew-func.el
*** mew-func.el	4 Oct 2004 10:46:30 -0000	1.152
--- mew-func.el	5 Oct 2004 14:36:56 -0000
***************
*** 533,543 ****
    (concat mew-folder-virtual folder))
  
  (defsubst mew-physical-folder (folder)
!   (if (string-match "^\\*" folder)
!       (setq folder (substring folder 1)))
!   (if (string-match "\\*$" folder)
!       (setq folder (substring folder 0 -1)))
!   folder)
  
  ;;
  
--- 533,544 ----
    (concat mew-folder-virtual folder))
  
  (defsubst mew-physical-folder (folder)
!   (save-match-data
!     (if (string-match "^\\*" folder)
! 	(setq folder (substring folder 1)))
!     (if (string-match "\\*$" folder)
! 	(setq folder (substring folder 0 -1)))
!     folder))
  
  ;;