[Mew-dist 05806] folder list bug fix

[Kazu Yamamoto ( 山本和彦 )]

フォルダが、++hoge でも大丈夫になるパッチです。

--かず

*** mew.el.orig	Tue Aug  4 09:07:26 1998
--- mew.el	Tue Aug  4 09:11:09 1998
***************
*** 214,220 ****
  	(message "%s was created" target))
        (setq folders (cdr folders)))))
  
! (defun mew-config-clear ()
    (setq mew-mail-path nil)
    (setq mew-news-path nil)
    (setq mew-queue-path nil)
--- 214,220 ----
  	(message "%s was created" target))
        (setq folders (cdr folders)))))
  
! (defun mew-config-clean-up ()
    (setq mew-mail-path nil)
    (setq mew-news-path nil)
    (setq mew-queue-path nil)
***************
*** 358,365 ****
  
  (defun mew-string< (a b)
    (let ((case-fold-search nil) (ret (string< a b)))
!     (if (or (string-match (concat "^" a) b)
! 	    (string-match (concat "^" b) a))
  	(not ret)
        ret)))
  
--- 358,365 ----
  
  (defun mew-string< (a b)
    (let ((case-fold-search nil) (ret (string< a b)))
!     (if (or (string-match (concat "^" (regexp-quote a)) b)
! 	    (string-match (concat "^" (regexp-quote b)) a))
  	(not ret)
        ret)))
  
***************
*** 598,603 ****
--- 598,604 ----
      (mew-window-clean-up)
      (mew-folder-clean-up)
      (mew-current-clean-up)
+     (mew-config-clean-up)
      ;; flush minibuffer
      (message "")))