+ (when (eq news-method 'nnspool)
+ (insert (format "%s %s %s\n"
+ "(add-hook"
+ "'after-getting-news-hook"
+ "'gnus-offline-nnspool-hangup-line)"))
+ (insert (format "%s %s %s\n"
+ "(add-hook"
+ "'gnus-before-startup-hook"
+ "(lambda () (setq nnmail-spool-file nil)
+ (setq mail-sources nil)))")))
+
+ ;; Write stting about mail-source.el
+ (insert "(setq gnus-offline-mail-source '"
+ (prin1-to-string mail-source) ")\n")
+ (insert "(setq mail-sources gnus-offline-mail-source)\n")
+ (if save-passwd
+ (insert "(add-hook 'gnus-setup-news-hook
+ (lambda ()
+ (add-to-list 'gnus-variable-list 'mail-source-password-cache)))\n"))
+
+ ;;
+ (write-region (point-min) (point-max) gnus-offline-setting-file))
+ (kill-buffer "* Setting")))
+
+ (defmacro gnus-ofsetup-prepare (list)
+ (let ((forms (symbol-value list)))
+ `(progn ,@forms))))
+
+(defvar gnus-ofsetup-resource-en
+ '((prepare-miee-1
+ . "Making directories failed. Set mail/news spool directories properly.")
+ (completing-read-symbol-1 . " (TAB to completion): ")
+ (setup-1 . "Method for offline News reading")
+ (setup-2 . "Agent directory: ")
+ (setup-3 . "Dialup program (give a null string if you do not use): ")
+ (setup-4 . "Dialup program options: ")
+ (setup-5 . "Hangup program (give a null string if you do not use): ")
+ (setup-6 . "Hangup program options: ")
+ (setup-7 . "Select MTA type for sending mail")
+ (setup-8 . "Use MIEE post/send message ")
+ (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 . "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 . "Do you save password information to newsrc file? ")
+
+ (param-news-method-1 . "News Method")
+ (param-news-method-2 . "Gnus Agent")
+ (param-news-method-3 . "nnspool")
+ (param-news-method-4 . "\
+Method to fetch news articles.")
+ (param-dialup-program-1 . "Dialup Program")
+ (param-dialup-program-2 . "Use program..")
+ (param-dialup-program-3 . "Don't use a program.")
+ (param-dialup-program-4 . "\
+Program which does dial.")
+ (param-dialup-program-arg-1 . "Dialup Program Arguments")
+ (param-dialup-program-arg-2 . "Argument")
+ (param-dialup-program-arg-3 . "\
+Program arguments of gnus-offline-dialup-program.")
+ (param-hangup-program-1 . "Hangup Program")
+ (param-hangup-program-2 . "Use program..")
+ (param-hangup-program-3 . "Don't use a program.")
+ (param-hangup-program-4 . "\
+Program which does hangup.")
+ (param-hangup-program-arg-1 . "Hangup Program Arguments")
+ (param-hangup-program-arg-2 . "Argument")
+ (param-hangup-program-arg-3 . "\
+Program arguments of gnus-offline-hangup-program.")
+ (param-interval-1 . "Interval between Jobs")
+ (param-interval-2 . "\
+Interval time(minutes) to do online jobs.
+If set to 0 , timer call is disabled.")
+ (param-drafts-queue-type-1 . "Drafts Queue Type")
+ (param-drafts-queue-type-2 . "Gnus Draft for queuing.")
+ (param-drafts-queue-type-3 . "I prefer MIEE for queuing.")
+ (param-drafts-queue-type-4 . "\
+Type of queue used for draft messages.
+
+If the select method for news is nnspool, you must choose MIEE.
+MIEE is another library for offline messaging. It isn't part of
+Semi-gnus. If you want to know about MIEE, see README-offline.{en,ja}.")
+ (param-mail-spool-1 . "Mail Spool Directory for MIEE")
+ (param-news-spool-1 . "News Spool Directory for MIEE")
+ (param-MTA-type-1 . "MTA Type")
+ (param-MTA-type-2 . "Use smtp.el")
+ (param-MTA-type-3 . "Use sendmail")
+ (param-MTA-type-4 . "\
+Type of MTA used for sending mail.")
+ (param-save-passwd-1 . "Save Password in Startup File")
+ (param-save-passwd-2 . "OK, I'm sure it's safe.")
+ (param-save-passwd-3 . "No way, it's too dangerous!")
+ (param-save-passwd-4 . "\
+Whether you want your POP passwords written in .newsrc.eld or not.")
+ (param-mail-source-1 . "Mail Sources")
+ (param-mail-source-2 . "\
+Information of mail sources. Actually, a list of `Mail Source Specifiers'.
+
+The format of this variable is just the same as `mail-sources' (or
+`nnmail-spool-file' which seems obsolete).
+
+`Mail Source Specifiers' can take a lot of keywords. For example,
+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:
+
+ (pop :program \"movemail -pf po:%u %t %p\")
+
+If you want to know more about mail source specifiers and keywords,
+click the button below.")
+ (customize-1 . "Customize the Gnus Offline Parameters, and press ")
+ (customize-2 . "done")
+ (customize-3 . "Push me when done customizing.")
+ (customize-4 . "Parameters")
+ (customize-5 . "\
+These parameters will be saved in ~/.gnus-offline.el.
+
+Note: Touching these parameters may require Gnus or even Emacs to be
+restarted.")
+ (customize-6 . "Push me to learn more.")
+ (customize-done-1 . "(No changes need to be saved)")
+ (customize-done-2
+ . "Invalid parameters. Check the news method and drafts queue type.")))
+
+(defvar gnus-ofsetup-resource-ja
+ '((prepare-miee-1
+ . "\e$B%G%#%l%/%H%j$,:n$l$^$;$s!#%9%W!<%k$N@_Dj$r@5$7$/$7$F$/$@$5$$!#\e(B")
+ (completing-read-symbol-1 . "(TAB \e$B$GJd40$7$^$9\e(B): ")
+ (setup-1 . "\e$B%*%U%i%$%s$G%K%e!<%9$rFI$`J}K!$rA*$s$G$/$@$5$$\e(B ")
+ (setup-2 . "Gnus Agent \e$B$N%G%#%l%/%H%j\e(B: ")
+ (setup-3
+ . "\e$B%@%$%d%k@\B3%W%m%0%i%`L>\e(B (\e$B;H$o$J$$>l9g$O6uJ8;zNs$rJV$7$F2<$5$$\e(B): ")
+ (setup-4 . "\e$B%@%$%d%k@\B3%W%m%0%i%`$N0z?t\e(B: ")
+ (setup-5
+ . "\e$B%@%$%d%k@ZCG%W%m%0%i%`L>\e(B (\e$B;H$o$J$$>l9g$O6uJ8;zNs$rJV$7$F2<$5$$\e(B): ")
+ (setup-6 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`$N0z?t\e(B: ")
+ (setup-7 . "\e$B%a!<%kAw?.$K;H$&\e(B MTA \e$B$rA*$s$G2<$5$$\e(B ")
+ (setup-8 . "\e$B%a%C%;!<%8$NAw?.$K\e(B MIEE \e$B$r;H$$$^$9$+\e(B? ")
+ (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<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 . "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")
+ (param-dialup-program-4 . "\
+\e$B<+F0%@%$%d%k@\B3$K;H$&%W%m%0%i%`!#\e(B")
+ (param-dialup-program-arg-3 . "\
+\e$B%@%$%d%k@\B3%W%m%0%i%`$KEO$90z?t!#\e(B")
+ (param-hangup-program-4 . "\
+\e$B<+F0%@%$%d%k@ZCG$K;H$&%W%m%0%i%`!#\e(B")
+ (param-hangup-program-arg-3 . "\
+\e$B%@%$%d%k@ZCG%W%m%0%i%`$KEO$90z?t!#\e(B")
+ (param-interval-2 . "\
+\e$BAw<u?.%8%g%V$r9T$&4V3V!#J,C10L$G;XDj$7$^$9!#\e(B
+
+\e$B$3$l$r\e(B 0 \e$B$K@_Dj$9$k$H<+F0Aw<u?.5!G=$O%*%U$K$J$j$^$9!#\e(B")
+ (param-drafts-queue-type-4 . "\
+\e$B%I%i%U%H5-;v$rJ]B8$9$k%-%e!<$N<oN`$r;XDj$7$^$9!#\e(B
+
+\e$B%K%e!<%9$N9VFI<jCJ$,\e(B nnspool \e$B$N>l9g!"\e(BMIEE \e$B$r;XDj$9$kI,MW$,$"$j$^$9!#\e(B
+MIEE \e$B$O%*%U%i%$%s$G$N%a!<%k\e(B/\e$B%K%e!<%9Aw?.5!G=$rDs6!$9$k%i%$%V%i%j$G$9$,!"\e(B
+Semi-gnus \e$B$K$OIUB0$7$F$$$^$;$s!#\e(BMIEE \e$B$K$D$$$FCN$j$?$$>l9g$O\e(B
+README-offline.{en,ja} \e$B$r;2>H$7$F$/$@$5$$!#\e(B")
+ (param-MTA-type-4 . "\
+MTA \e$B$O%a!<%k$NAw?.$r<u$1;}$D%W%m%0%i%`$G$9!#$=$N<oN`$r;XDj$7$^$9!#\e(B")
+ (param-save-passwd-4 . "\
+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")
+ (param-mail-source-2 . "\
+\e$B%a!<%k<hF@@h$d<hF@J}K!$r;XDj$7$^$9!#\e(B
+
+\e$B$3$N%*%W%7%g%s$N=q<0$O\e(B `mail-sources' \e$B$H$$$&JQ?t$HF1$8$G$"$j!"\e(B
+`mail source specifier' \e$B$H8F$P$l$k$b$N$N%j%9%H$H$7$F5-=R$7$^$9!#\e(B
+
+\e$B3F!9$N\e(B `mail source specifier' \e$B$K$O?'!9$J%-!<%o!<%I$r;XDj$9$k$3$H$,\e(B
+\e$B$G$-$^$9!#Nc$($P%a!<%k$N<hF@$K$O\e(B pop3.el \e$B$NBe$o$j$K30It%W%m%0%i%`\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\")
+
+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
+\e$B$X$N%j%s%/$K$J$C$F$$$^$9!#\e(B)" )
+
+ (customize-1
+ . "Gnus Offline \e$B$N%Q%i%a!<%?!#=*$o$C$?$i1&$N%\%?%s$r2!$7$F$/$@$5$$!#\e(B")
+ (customize-2 . "done")
+ (customize-3 . "\e$B@_Dj$7=*$o$C$?$i%\%/$r2!$7$F$M!#\e(B")
+ (customize-4 . "\e$B%Q%i%a!<%?\e(B")
+ (customize-5 . "\
+\e$B$3$l$i$N%Q%i%a!<%?$O\e(B ~/.gnus-offline.el \e$B$KJ]B8$5$l$^$9!#\e(B
+
+\e$BCm0U\e(B: \e$B$3$l$i$N%Q%i%a!<%?$NJQ99$O>l9g$K$h$C$F$O\e(B Gnus (\e$B$5$i$K>l9g$K\e(B
+\e$B$h$C$F$O\e(B Emacs) \e$B$N:F5/F0$rI,MW$H$9$k$3$H$,$"$j$^$9!#\e(B")
+ (customize-6 . "\e$B$b$C$HCN$j$?$$>l9g$O%\%/$r2!$7$F$M!#\e(B")
+ (customize-done-1 . "(\e$BJ]B8$9$Y$-JQ99$O$"$j$^$;$s\e(B)")
+ (customize-done-2
+ . "\e$B%K%e!<%99VFI<jCJ$H%I%i%U%H5-;v<h$j07$$<jCJ$N@_Dj$r8+D>$7$F$/$@$5$$!#\e(B")
+ ))
+
+(defvar gnus-ofsetup-resource-ja_complete
+ (append
+ gnus-ofsetup-resource-ja
+ '((param-news-method-1 . "\e$B%K%e!<%99VFIJ}K!\e(B")
+ (param-news-method-2 . "Gnus Agent")
+ (param-news-method-3 . "nnspool")
+ (param-dialup-program-1 . "\e$B%@%$%d%k@\B3%W%m%0%i%`\e(B")
+ (param-dialup-program-2 . "\e$B%W%m%0%i%`$r;H$&\e(B..")
+ (param-dialup-program-3 . "\e$B%W%m%0%i%`$O;XDj$7$J$$\e(B")
+ (param-dialup-program-arg-1 . "\e$B%@%$%d%k@\B3%W%m%0%i%`$N0z?t\e(B")
+ (param-dialup-program-arg-2 . "\e$B0z?t\e(B")
+ (param-hangup-program-1 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`\e(B")
+ (param-hangup-program-2 . "\e$B%W%m%0%i%`$r;H$&\e(B..")
+ (param-hangup-program-3 . "\e$B%W%m%0%i%`$O;XDj$7$J$$\e(B")
+ (param-hangup-program-arg-1 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`$N0z?t\e(B")
+ (param-hangup-program-arg-2 . "\e$B0z?t\e(B")
+ (param-interval-1 . "\e$B<+F0Aw<u?.%8%g%V$N4V3V\e(B")
+ (param-drafts-queue-type-1 . "\e$B%I%i%U%H5-;v$rJ]B8$9$k%-%e!<$N<oN`\e(B")
+ (param-drafts-queue-type-2 . "Gnus Draft \e$B$N5!G=$rMxMQ$9$k\e(B")
+ (param-drafts-queue-type-3 . "MIEE \e$B$N5!G=$rMxMQ$9$k\e(B")
+ (param-mail-spool-1 . "MIEE \e$B$,;H$&%a!<%k$N%9%W!<%k%G%#%l%/%H%j\e(B")
+ (param-news-spool-1 . "MIEE \e$B$,;H$&%K%e!<%9$N%9%W!<%k%G%#%l%/%H%j\e(B")
+ (param-MTA-type-1 . "MTA \e$B$N<oN`\e(B")
+ (param-MTA-type-2 . "smtp.el \e$B$r;H$&\e(B")
+ (param-MTA-type-3 . "sendmail \e$B$r;H$&\e(B")
+ (param-save-passwd-1
+ . "\e$B%U%!%$%k$K\e(B POP \e$B%Q%9%o!<%I$rJ]B8$9$k\e(B")
+ (param-save-passwd-2 . "\e$B0BA4$J$N$GJ]B8$9$k\e(B")
+ (param-save-passwd-3 . "\e$B4m81$@$+$i$d$a$H$/\e(B")
+ (param-mail-source-1 . "\e$B%a!<%k<hF@@h$N>pJs\e(B"))))
+
+(defsubst gnus-ofsetup-gettext (symbol &optional lang)
+ (setq lang (or lang gnus-offline-lang))
+ (or
+ (cdr (assq symbol (symbol-value
+ (intern (format "gnus-ofsetup-resource-%s" lang)))))
+ (cdr (assq symbol gnus-ofsetup-resource-en))))
+
+(defun gnus-ofsetup-completing-read-symbol (msg &rest syms)
+ (intern
+ (completing-read (concat
+ msg
+ (gnus-ofsetup-gettext 'completing-read-symbol-1))
+ (mapcar
+ #'(lambda (sym)
+ (list (symbol-name sym)))
+ syms)
+ nil t nil)))
+
+(defun gnus-setup-for-offline (&optional force)
+ "*Set up Gnus for offline environment."
+ (interactive "P")
+ (unless (and (file-exists-p gnus-offline-setting-file) (not force))
+ (let (news-method
+ mail-method agent-directory drafts-queue-type news-spool mail-spool
+ use-miee MTA-type dialup-program dialup-program-arguments
+ hangup-program hangup-program-arguments interval
+ num-of-address i n mail-source save-passwd)
+ (setq news-method
+ (gnus-ofsetup-completing-read-symbol
+ (gnus-ofsetup-gettext 'setup-1)
+ 'nnagent 'nnspool))
+ ;; Setting for gnus-agent.
+ (if (eq news-method 'nnagent)
+ (setq agent-directory
+ (read-from-minibuffer
+ (gnus-ofsetup-gettext 'setup-2) "~/News/agent")))
+ (setq mail-method 'nnmail)
+ (setq dialup-program
+ (read-file-name
+ (gnus-ofsetup-gettext 'setup-3)
+ nil nil t))
+ (if (string-match "^[ \t]*$" dialup-program)
+ (setq dialup-program nil)
+ (setq dialup-program-arguments
+ (delete "" (split-string
+ (read-from-minibuffer
+ (gnus-ofsetup-gettext 'setup-4))
+ "[\t ]+"))))
+ (setq hangup-program
+ (read-file-name
+ (gnus-ofsetup-gettext 'setup-5)
+ nil nil t))
+ (if (string-match "^[ \t]*$" hangup-program)
+ (setq hangup-program nil)
+ (setq hangup-program-arguments
+ (delete "" (split-string
+ (read-from-minibuffer
+ (gnus-ofsetup-gettext 'setup-6))
+ "[\t ]+"))))
+ (setq MTA-type (gnus-ofsetup-completing-read-symbol
+ (gnus-ofsetup-gettext 'setup-7)
+ 'smtp 'sendmail))
+ (if (eq news-method 'nnspool)
+ (setq use-miee t)
+ (setq use-miee (y-or-n-p (gnus-ofsetup-gettext 'setup-8))))
+ (if use-miee
+ (progn
+ ;; Setting for MIEE.
+ (setq news-spool
+ (read-from-minibuffer
+ (gnus-ofsetup-gettext 'setup-9)
+ "/usr/spool/news.out"))
+ (setq mail-spool
+ (read-from-minibuffer
+ (gnus-ofsetup-gettext 'setup-10)
+ "/usr/spool/mail.out"))
+ (setq drafts-queue-type 'miee)
+ (gnus-ofsetup-prepare gnus-ofsetup-prepare-for-miee))
+ ;; Set drafts type gnus-agent.
+ (setq drafts-queue-type 'agent))
+ ;; Create a list of mail source specifiers.
+ (setq num-of-address
+ (read-from-minibuffer (gnus-ofsetup-gettext 'setup-11)))
+ (setq i (setq n (string-to-int num-of-address)))
+ ;;
+ (while (> i 0)
+ (let* ((j (- n (1- i)))
+ (type (gnus-ofsetup-completing-read-symbol
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-12))
+ 'pop 'imap 'file 'directory 'maildir))
+ user server authentication stream islisp source
+ prog args program path)
+ ;; Prepare.
+ (when (or (string= type "pop") (string= type "imap"))
+ (setq user (read-from-minibuffer
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-13))))
+ (setq server (read-from-minibuffer
+ (format "<%d of %d> %s" j n
+ (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-15))
+ 'password 'apop))
+ (setq islisp (y-or-n-p
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-16))))
+ (unless islisp
+ (setq prog (read-file-name
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-17))
+ exec-directory "movemail"))
+ (setq args (read-from-minibuffer
+ (format "<%d of %d> %s" j n
+ (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-19))
+ 'kerberos4 'starttls 'ssl 'network))
+ (setq authentication (gnus-ofsetup-completing-read-symbol
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-14))
+ 'kerberos4 'digest-md5 'cram-md5 'login
+ 'anonymous)))
+ (when (string= type "file")
+ (setq path (read-file-name
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-20)))))
+ (when (or (string= type "directory") (string= type "maildir"))
+ (setq path (read-file-name
+ (format "<%d of %d> %s" j n
+ (gnus-ofsetup-gettext 'setup-21)))))
+ ;; Now set a mail source specifier.
+ (setq source (list type))
+ (let (value)
+ (dolist (symbol '(path user server authentication stream program))
+ (when (setq value (symbol-value symbol))
+ (setq source (nconc source
+ (list (make-symbol (format ":%s" symbol))
+ value))))))
+ (setq mail-source (nconc mail-source (list source))))
+ (setq i (1- i)))
+ (setq save-passwd
+ (y-or-n-p (gnus-ofsetup-gettext 'setup-22)))
+ ;;
+ (gnus-ofsetup-prepare gnus-ofsetup-update-setting-file)))