X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-ofsetup.el;h=4125f8a40beef5d937b017bfb3cd3829a06bc63b;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=8f4d55fb1673d7351acb83130cabd255b316f688;hpb=4305c2ea86b2e1d044bfb8b98e5558504bc09781;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 8f4d55f..4125f8a 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -629,7 +629,7 @@ mail source specifier とか上記のようなキーワードについてもっとよく
      (choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1)
 	     :value ,(if (memq 'mail-source-password-cache gnus-variable-list)
 			 t
-			 nil)
+		       nil)
 	     (const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-2) t)
 	     (const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-3) nil))
      ,(gnus-ofsetup-gettext 'param-save-passwd-4))
@@ -651,36 +651,36 @@ mail source specifier とか上記のようなキーワードについてもっとよく
 				   (const :format "" ,(nth 0 entry))
 				   ,(nth 1 entry)))
 			params)))
-  (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
-  (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
-  (gnus-custom-mode)
-  (widget-insert (gnus-ofsetup-gettext 'customize-1))
-  (widget-create 'push-button
+    (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
+    (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
+    (gnus-custom-mode)
+    (widget-insert (gnus-ofsetup-gettext 'customize-1))
+    (widget-create 'push-button
 		   :tag (gnus-ofsetup-gettext 'customize-2)
 		   :help-echo (gnus-ofsetup-gettext 'customize-3)
 		   :action 'gnus-ofsetup-customize-done)
-  (widget-insert "\n\n")
-  (make-local-variable 'gnus-ofsetup-params)
-  (setq gnus-ofsetup-params
-	(widget-create 'group
-		       `(set :inline t
-			     :greedy t
-			     :tag ,(gnus-ofsetup-gettext 'customize-4)
-			     :format "%t:\n%h%v"
-			     :doc ,(gnus-ofsetup-gettext 'customize-5)
-			     ,@types)))
-
-  (widget-create 'info-link
-		 :help-echo (gnus-ofsetup-gettext 'customize-6)
-		 :tag "<Info> mail sources"
-		 (if (string-match "^ja" gnus-offline-lang)
-		     "(gnus-ja)Mail Sources"
-		   "(gnus)Mail Sources"))
-
-  (use-local-map widget-keymap)
-  (local-set-key "q" 'bury-buffer)
-  (widget-setup)
-  (goto-char (point-min))))
+    (widget-insert "\n\n")
+    (make-local-variable 'gnus-ofsetup-params)
+    (setq gnus-ofsetup-params
+	  (widget-create 'group
+			 `(set :inline t
+			       :greedy t
+			       :tag ,(gnus-ofsetup-gettext 'customize-4)
+			       :format "%t:\n%h%v"
+			       :doc ,(gnus-ofsetup-gettext 'customize-5)
+			       ,@types)))
+
+    (widget-create 'info-link
+		   :help-echo (gnus-ofsetup-gettext 'customize-6)
+		   :tag "<Info> mail sources"
+		   (if (string-match "^ja" gnus-offline-lang)
+		       "(gnus-ja)Mail Sources"
+		     "(gnus)Mail Sources"))
+
+    (use-local-map widget-keymap)
+    (local-set-key "q" 'bury-buffer)
+    (widget-setup)
+    (goto-char (point-min))))
 
 (defun gnus-ofsetup-customize-done (&rest ignore)
   "Apply changes and bury the buffer."