(setup-9 . "News spool directory for sending: ")
(setup-10 . "Mail spool directory for sending: ")
(setup-11 . "How many mail sources will get mails from? : ")
- (setup-12 . "Mail Account name : ")
- (setup-13 . "Mail server : ")
- (setup-14 . "Authentification Method ")
- (setup-15 . "Do you use pop3.el to fetch mail? ")
- (setup-16 . "movemail program name: ")
- (setup-17 . "movemail options: ")
- (setup-18 . "Do you save password information to newsrc file? ")
- (setup-19 . "What type of the mail source? ")
+ (setup-12 . "What type of the mail source? ")
+ (setup-13 . "Mail Account name : ")
+ (setup-14 . "Mail server : ")
+ (setup-15 . "Authentification Method ")
+ (setup-16 . "Do you use pop3.el to fetch mail? ")
+ (setup-17 . "movemail program name: ")
+ (setup-18 . "movemail options: ")
+ (setup-19 . "What network stream? ")
(setup-20 . "File: ")
(setup-21 . "Directory: ")
- (setup-22 . "What network stream? ")
+ (setup-22 . "Do you save password information to newsrc file? ")
(param-news-method-1 . "News Method")
(param-news-method-2 . "Gnus Agent")
(setup-9 . "\e$B%K%e!<%9$N%9%W!<%k%G%#%l%/%H%j\e(B: ")
(setup-10 . "\e$B%a!<%k$N%9%W!<%k%G%#%l%/%H%j\e(B: ")
(setup-11 . "\e$B@_Dj$9$k%a!<%k<hF@@h$N?t$O\e(B? (\e$B8e$GDI2C$G$-$^$9\e(B): ")
- (setup-12 . "\e$B%a!<%k$N%"%+%&%s%HL>\e(B: ")
- (setup-13 . "\e$B$=$N%"%+%&%s%H$N$"$k%a!<%k%5!<%PL>\e(B: ")
- (setup-14 . "\e$BG'>ZJ}<0$O\e(B? ")
- (setup-15 . "\e$B%a!<%k$N<u?.$K$O\e(B pop3.el \e$B$r;H$$$^$9$+\e(B? ")
- (setup-16 . "movemail \e$B%W%m%0%i%`$NL>A0\e(B: ")
- (setup-17 . "movemail \e$B%W%m%0%i%`$KEO$90z?t\e(B: ")
- (setup-18 . "newsrc \e$B%U%!%$%k$K\e(B POP \e$B%Q%9%o!<%I$rJ]B8$7$^$9$+\e(B? ")
- (setup-19 . "\e$B%a!<%k<hF@@h$N%?%$%W$O\e(B? ")
+ (setup-12 . "\e$B%a!<%k<hF@@h$N%?%$%W$O\e(B? ")
+ (setup-13 . "\e$B%a!<%k$N%"%+%&%s%HL>\e(B: ")
+ (setup-14 . "\e$B$=$N%"%+%&%s%H$N$"$k%a!<%k%5!<%PL>\e(B: ")
+ (setup-15 . "\e$BG'>ZJ}<0$O\e(B? ")
+ (setup-16 . "\e$B%a!<%k$N<u?.$K$O\e(B pop3.el \e$B$r;H$$$^$9$+\e(B? ")
+ (setup-17 . "movemail \e$B%W%m%0%i%`$NL>A0\e(B: ")
+ (setup-18 . "movemail \e$B%W%m%0%i%`$KEO$90z?t\e(B: ")
+ (setup-19 . "\e$B@\B3J}<0$O\e(B? ")
(setup-20 . "\e$B%U%!%$%k\e(B: ")
(setup-21 . "\e$B%G%#%l%/%H%j\e(B: ")
- (setup-22 . "\e$B@\B3J}<0$O\e(B? ")
+ (setup-22 . "newsrc \e$B%U%!%$%k$K\e(B POP \e$B%Q%9%o!<%I$rJ]B8$7$^$9$+\e(B? ")
(param-news-method-4 . "\
\e$B%K%e!<%95-;v$r<hF@$9$kJ}K!$G$9!#\e(B")
(let* ((j (- n (1- i)))
(type (gnus-ofsetup-completing-read-symbol
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-19))
+ (gnus-ofsetup-gettext 'setup-12))
'pop 'imap 'file 'directory 'maildir))
user server authentication stream islisp source
prog args program path)
(when (or (string= type "pop") (string= type "imap"))
(setq user (read-from-minibuffer
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-12))))
+ (gnus-ofsetup-gettext 'setup-13))))
(setq server (read-from-minibuffer
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-13)))))
+ (gnus-ofsetup-gettext 'setup-14)))))
(when (string= type "pop")
(setq authentication (gnus-ofsetup-completing-read-symbol
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-14))
+ (gnus-ofsetup-gettext 'setup-15))
'password 'apop))
(setq islisp (y-or-n-p
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-15))))
+ (gnus-ofsetup-gettext 'setup-16))))
(unless islisp
(setq prog (read-file-name
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-16))
+ (gnus-ofsetup-gettext 'setup-17))
exec-directory "movemail"))
(setq args (read-from-minibuffer
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-17) "-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 stream (gnus-ofsetup-completing-read-symbol
(format "<%d of %d> %s" j n
- (gnus-ofsetup-gettext 'setup-22))
+ (gnus-ofsetup-gettext 'setup-19))
'kerberos4 'ssl 'network))
(setq authentication (gnus-ofsetup-completing-read-symbol
(format "<%d of %d> %s" j n
(setq mail-source (nconc mail-source (list source))))
(setq i (1- i)))
(setq save-passwd
- (y-or-n-p (gnus-ofsetup-gettext 'setup-18)))
+ (y-or-n-p (gnus-ofsetup-gettext 'setup-22)))
;;
(gnus-ofsetup-prepare gnus-ofsetup-update-setting-file)))
(load gnus-offline-setting-file))