projects / elisp / gnus.git- / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Synch with Oort Gnus.
[elisp/gnus.git-] / lisp / gnus-ofsetup.el
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 15a3eeb..4125f8a 100644 (file)
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -145,7 +145,7 @@
                          "(add-hook"
                          "'gnus-before-startup-hook"
                          "(lambda () (setq nnmail-spool-file nil)
                          "(add-hook"
                          "'gnus-before-startup-hook"
                          "(lambda () (setq nnmail-spool-file nil)
-           (setq mail-sources nil)))")))
+          (setq mail-sources nil)))")))
 
        ;; Write stting about mail-source.el
        (insert "(setq gnus-offline-mail-source '"
 
        ;; Write stting about mail-source.el
        (insert "(setq gnus-offline-mail-source '"
@@ -251,7 +251,7 @@ if you want to use movemail instead of pop3.el which comes with
 Gnus, you can set a specifier using the kerword :program as shown
 below:
 
 Gnus, you can set a specifier using the kerword :program as shown
 below:
 
-          (pop :program \"movemail -pf po:%u %t %p\")
+         (pop :program \"movemail -pf po:%u %t %p\")
 
 If you want to know more about mail source specifiers and keywords,
 click the button below.")
 
 If you want to know more about mail source specifiers and keywords,
 click the button below.")
@@ -334,7 +334,7 @@ POP \e$B%Q%9%o!<%I$r\e(B .newsrc.eld \e$B$KJ]B8$9$k$+H]$+$r;XDj$7$^$9!#\e(B")
 (movemail \e$B$J$I\e(B) \e$B$r;H$$$?$$!"$H$$$&>l9g$K$O!"\e(B:program \e$B$r$$$&%-!<%o!<\e(B
 \e$B%I$r;XDj$7$F0J2<$NMM$K5-=R$7$^$9!#\e(B
 
 (movemail \e$B$J$I\e(B) \e$B$r;H$$$?$$!"$H$$$&>l9g$K$O!"\e(B:program \e$B$r$$$&%-!<%o!<\e(B
 \e$B%I$r;XDj$7$F0J2<$NMM$K5-=R$7$^$9!#\e(B
 
-        (pop :program \"movemail -pf po:%u %t %p\")
+       (pop :program \"movemail -pf po:%u %t %p\")
 
 mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
 \e$BCN$j$?$$>l9g$O!"0J2<$N%\%?%s$r%/%j%C%/$7$F$/$@$5$$!#\e(B(Info \e$B$N3:Ev2U=j\e(B
 
 mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
 \e$BCN$j$?$$>l9g$O!"0J2<$N%\%?%s$r%/%j%C%/$7$F$/$@$5$$!#\e(B(Info \e$B$N3:Ev2U=j\e(B
@@ -629,7 +629,7 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
      (choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1)
             :value ,(if (memq 'mail-source-password-cache gnus-variable-list)
                         t
      (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))
             (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 \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
                                   (const :format "" ,(nth 0 entry))
                                   ,(nth 1 entry)))
                        params)))
                                   (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)
                   :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."
 
 (defun gnus-ofsetup-customize-done (&rest ignore)
   "Apply changes and bury the buffer."