projects / elisp / gnus.git- / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Synch to No Gnus 200411120157.
[elisp/gnus.git-] / lisp / gnus-ofsetup.el
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 15a3eeb..5bfc6df 100644 (file)
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -35,8 +35,6 @@
 
 (eval-when-compile (require 'cl))
 
 
 (eval-when-compile (require 'cl))
 
-(require 'read-passwd)
-
 (eval-and-compile
   (defvar gnus-offline-lang
     (cond ((and (featurep 'meadow)
 (eval-and-compile
   (defvar gnus-offline-lang
     (cond ((and (featurep 'meadow)
@@ -145,7 +143,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 +249,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 +332,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
@@ -503,7 +501,7 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
                          exec-directory "movemail"))
              (setq args (read-from-minibuffer
                          (format "<%d of %d> %s" j n
                          exec-directory "movemail"))
              (setq args (read-from-minibuffer
                          (format "<%d of %d> %s" j n
-                                 (gnus-ofsetup-gettext 'setup-18) "-pf")))
+                                 (gnus-ofsetup-gettext 'setup-18)) "-pf"))
              (setq program (format "%s %s %s %s %s"
                                    prog args "po:%u" "%t" "%p"))))
          (when (string= type "imap")
              (setq program (format "%s %s %s %s %s"
                                    prog args "po:%u" "%t" "%p"))))
          (when (string= type "imap")
@@ -629,7 +627,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 +649,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."
@@ -753,8 +751,6 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
   '(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news))
 (eval-after-load "message"
   '(add-hook 'message-send-hook 'gnus-offline-message-add-header))
   '(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news))
 (eval-after-load "message"
   '(add-hook 'message-send-hook 'gnus-offline-message-add-header))
-(setq mail-source-read-passwd 'read-pw-read-passwd)
-(add-hook 'gnus-setup-news-hook 'read-pw-set-mail-source-passwd-cache)
 
 (provide 'gnus-ofsetup)
 
 
 (provide 'gnus-ofsetup)