Index: lang/elisp/simple-hatena-mode/simple-hatena-mode.el
===================================================================
--- lang/elisp/simple-hatena-mode/simple-hatena-mode.el (revision 511)
+++ lang/elisp/simple-hatena-mode/simple-hatena-mode.el (revision 526)
@@ -38,5 +38,5 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.07"
+(defconst simple-hatena-version "0.08"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -321,7 +321,11 @@
   "現在のデフォルトグループを変更する。"
   (interactive)
-  (setq simple-hatena-default-group
-        (simple-hatena-internal-completing-read-group simple-hatena-default-id))
-  (message "Changed current default group to %s" simple-hatena-default-group))
+  (if simple-hatena-default-id
+      (setq simple-hatena-default-group
+            (simple-hatena-internal-completing-read-group simple-hatena-default-id))
+    (list (simple-hatena-change-default-id)
+          (setq simple-hatena-default-group
+                (simple-hatena-internal-completing-read-group simple-hatena-default-id))))
+  (message "Change current default group to %s" simple-hatena-default-group))
 
 (defun simple-hatena-submit ()