* wl-summary.el (wl-summary-message-regexp): Fixed number regexp.

[elisp/wanderlust.git] / elmo / elmo-shimbun.el

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 1fb7e0e..67b90e0 100644 (file)
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -40,7 +40,10 @@
 (luna-define-method elmo-folder-initialize ((folder
                                             elmo-shimbun-folder)
                                            name)
-  (let ((server-group (split-string name "\\.")))
+  (let ((server-group (if (string-match "\\([^.]+\\)\\." name)
+                         (list (elmo-match-string 1 name)
+                               (substring name (match-end 0)))
+                       (list name))))
     (if (nth 0 server-group) ; server
        (elmo-shimbun-folder-set-shimbun-internal
         folder