+++ /dev/null
-;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
-
-;; Copyright (C) 1998, 2001 Tatsuya Ichikawa
-
-;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
-;; Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
-;;
-;; This file is part of Semi-gnus.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-;;
-
-;;; Commentary:
-
-;; How to use.
-;;
-;; M-x load[RET]gnus-ofsetup
-;; M-x gnus-setup-for-offline
-;;
-
-;;; Code:
-
-(eval-when-compile (require 'cl))
-
-(require 'read-passwd)
-
-(eval-and-compile
- (defvar gnus-offline-lang
- (cond ((and (featurep 'meadow)
- (string= current-language-environment "Japanese"))
- "ja_complete")
- ((and (boundp 'current-language-environment)
- (string= current-language-environment "Japanese"))
- "ja")
- (t
- "en"))
- "This variable decides which language will be used for display."))
-
-(eval-when-compile
- (require 'gnus)
- (require 'gnus-offline))
-
-(defvar gnus-offline-setting-file
- (let ((user (user-login-name))
- (real-user (user-real-login-name)))
- (if (string= user real-user)
- "~/.gnus-offline.el"
- ;; Seems it is after "su".
- (let ((file (concat "~" user "/.gnus-offline.el"))
- (real-file (concat "~" real-user "/.gnus-offline.el")))
- (cond ((file-exists-p real-file)
- real-file)
- ((file-exists-p file)
- file)
- (t
- real-file))))))
-
-(eval-when-compile
- (defvar gnus-ofsetup-prepare-for-miee
- '(;; Spool directory setting - MIEE.
- (setq mail-spool (or mail-spool "/usr/spool/mail.out"))
- (setq news-spool (or news-spool "/usr/spool/news.out"))
- (condition-case nil
- (progn
- (if (not (file-exists-p mail-spool))
- (make-directory mail-spool t))
- (if (not (file-exists-p news-spool))
- (make-directory news-spool t)))
- (error
- (error (gnus-ofsetup-gettext 'prepare-miee-1))))))
-
- (defvar gnus-ofsetup-update-setting-file
- '((save-excursion
- (set-buffer (get-buffer-create "* Setting"))
- (erase-buffer)
- (insert ";;\n")
- (insert ";; This file is created by gnus-ofsetup.el\n")
- (insert ";; Creation date : " (current-time-string) "\n")
- (insert ";;\n")
-
- ;; write Basic setting
- (insert "(setq gnus-offline-news-fetch-method '"
- (prin1-to-string news-method) ")\n")
- (insert "(setq gnus-offline-mail-fetch-method '"
- (prin1-to-string mail-method) ")\n")
-
- ;; write dialup/hangup program and options.
- (insert "(setq gnus-offline-dialup-program "
- (prin1-to-string dialup-program) ")\n")
- (if (stringp dialup-program)
- (insert "(setq gnus-offline-dialup-program-arguments '"
- (prin1-to-string dialup-program-arguments) ")\n"))
- (insert "(setq gnus-offline-hangup-program "
- (prin1-to-string hangup-program) ")\n")
- (if (stringp hangup-program)
- (insert "(setq gnus-offline-hangup-program-arguments '"
- (prin1-to-string hangup-program-arguments) ")\n"))
-
- (if (integerp interval)
- (insert "(setq gnus-offline-interval-time "
- (prin1-to-string interval) ")\n"))
-
- ;; write setting about MIEE.
- (when use-miee
- (insert "(setq sendmail-to-spool-directory "
- (prin1-to-string mail-spool) ")\n")
- (insert "(setq news-spool-request-post-directory "
- (prin1-to-string news-spool) ")\n")
- (insert "(if (not (boundp 'miee-version))
- (load \"miee\"))\n")
- (insert "(setq message-send-news-function 'gnspool-request-post)\n"))
-
- ;; write setting about nnspool and gnus-agent.
- (if (eq news-method 'nnspool)
- (insert "(message-offline-state)\n")
- (insert "(setq gnus-agent-directory "
- (prin1-to-string agent-directory) ")\n"))
-
- ;; write setting about queue type -- MIEE or nnagent.
- (insert "(setq gnus-offline-drafts-queue-type '"
- (prin1-to-string drafts-queue-type) ")\n")
- (insert "(setq gnus-offline-MTA-type '"
- (prin1-to-string MTA-type) ")\n")
-
- ;; Write setting about hooks.
- (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)))
- (load gnus-offline-setting-file))
-
-
-;; Suppport for customizing gnus-ofsetup parameters.
-
-(defvar sendmail-to-spool-directory)
-(defvar news-spool-request-post-directory)
-
-(defun gnus-ofsetup-find-parameters ()
- "Return the each current value of gnus-offline parameters."
- `((news-method
- (choice :tag ,(gnus-ofsetup-gettext 'param-news-method-1)
- :value ,gnus-offline-news-fetch-method
- (const :tag ,(gnus-ofsetup-gettext 'param-news-method-2)
- nnagent)
- (const :tag ,(gnus-ofsetup-gettext 'param-news-method-3)
- nnspool))
- ,(gnus-ofsetup-gettext 'param-news-method-4))
-
- (dialup-program
- (choice :tag ,(gnus-ofsetup-gettext 'param-dialup-program-1)
- :value ,gnus-offline-dialup-program
- (string :tag ,(gnus-ofsetup-gettext 'param-dialup-program-2))
- (const :tag ,(gnus-ofsetup-gettext
- 'param-dialup-program-3) nil))
- ,(gnus-ofsetup-gettext 'param-dialup-program-4))
-
- (dialup-program-arguments
- (repeat :tag ,(gnus-ofsetup-gettext 'param-dialup-program-arg-1)
- :value ,gnus-offline-dialup-program-arguments
- (string :tag ,(gnus-ofsetup-gettext
- 'param-dialup-program-arg-2)))
- ,(gnus-ofsetup-gettext 'param-dialup-program-arg-3))
-
- (hangup-program
- (choice :tag ,(gnus-ofsetup-gettext 'param-hangup-program-1)
- :value ,gnus-offline-hangup-program
- (string :tag ,(gnus-ofsetup-gettext 'param-hangup-program-2))
- (const :tag ,(gnus-ofsetup-gettext 'param-hangup-program-3)
- nil))
- ,(gnus-ofsetup-gettext 'param-hangup-program-4))
-
- (hangup-program-arguments
- (repeat :tag ,(gnus-ofsetup-gettext 'param-hangup-program-arg-1)
- :value ,gnus-offline-hangup-program-arguments
- (string :tag ,(gnus-ofsetup-gettext
- 'param-hangup-program-arg-2)))
- ,(gnus-ofsetup-gettext 'param-hangup-program-arg-3))
-
- (interval
- (integer :tag ,(gnus-ofsetup-gettext 'param-interval-1)
- :value ,gnus-offline-interval-time)
- ,(gnus-ofsetup-gettext 'param-interval-2))
-
- (drafts-queue-type
- (choice :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-1)
- :value ,gnus-offline-drafts-queue-type
- (const :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-2)
- agent)
- (const :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-3)
- miee))
- ,(gnus-ofsetup-gettext 'param-drafts-queue-type-4))
-
- (mail-spool
- (directory :tag ,(gnus-ofsetup-gettext 'param-mail-spool-1)
- :value ,(cond ((and (boundp 'sendmail-to-spool-directory)
- sendmail-to-spool-directory)
- sendmail-to-spool-directory)
- (t
- "/usr/spool/mail.out"))))
-
- (news-spool
- (directory :tag ,(gnus-ofsetup-gettext 'param-news-spool-1)
- :value ,(cond ((and (boundp 'news-spool-request-post-directory)
- news-spool-request-post-directory)
- news-spool-request-post-directory)
- (t
- "/usr/spool/news.out"))))
-
- (MTA-type
- (choice :tag ,(gnus-ofsetup-gettext 'param-MTA-type-1)
- :value ,gnus-offline-MTA-type
- (const :tag ,(gnus-ofsetup-gettext 'param-MTA-type-2) smtp)
- (const :tag ,(gnus-ofsetup-gettext 'param-MTA-type-3)
- sendmail))
- ,(gnus-ofsetup-gettext 'param-MTA-type-4))
-
- (save-passwd
- (choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1)
- :value ,(if (memq 'mail-source-password-cache gnus-variable-list)
- t
- 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))
-
- (mail-source
- (sexp :tag ,(gnus-ofsetup-gettext 'param-mail-source-1)
- :value ,gnus-offline-mail-source)
- ,(gnus-ofsetup-gettext 'param-mail-source-2))))
-
-(defvar gnus-ofsetup-params)
-
-(defun gnus-ofsetup-customize ()
- "Edit the gnus-offline parameters."
- (interactive)
- (let* ((params (gnus-ofsetup-find-parameters))
- (types (mapcar #'(lambda (entry)
- `(cons :format "%v%h\n"
- :doc ,(nth 2 entry)
- (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
- :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))))
-
-(defun gnus-ofsetup-customize-done (&rest ignore)
- "Apply changes and bury the buffer."
- (interactive)
- (let ((params (widget-value gnus-ofsetup-params))
- (news-method gnus-offline-news-fetch-method)
- (mail-method gnus-offline-mail-fetch-method)
- (agent-directory gnus-agent-directory)
- (dialup-program gnus-offline-dialup-program)
- (dialup-program-arguments gnus-offline-dialup-program-arguments)
- (hangup-program gnus-offline-hangup-program)
- (hangup-program-arguments gnus-offline-hangup-program-arguments)
- (drafts-queue-type gnus-offline-drafts-queue-type)
- (interval gnus-offline-interval-time)
- (use-miee (and (boundp 'miee-version)
- (or (eq gnus-offline-news-fetch-method 'nnspool)
- (eq gnus-offline-drafts-queue-type 'miee))))
- (mail-spool (or (and (boundp 'sendmail-to-spool-directory)
- sendmail-to-spool-directory)
- "/usr/spool/mail.out"))
- (news-spool (or (and (boundp 'news-spool-request-post-directory)
- news-spool-request-post-directory)
- "/usr/spool/news.out"))
- (MTA-type gnus-offline-MTA-type)
- (mail-source gnus-offline-mail-source)
- (save-passwd (and (memq 'mail-source-password-cache gnus-variable-list)
- t)))
- (if (null params)
- (gnus-message 4 (gnus-ofsetup-gettext 'customize-done-1))
- (let (symbol value)
- (dolist (elem params)
- (setq symbol (car elem)
- value (cdr elem))
- (set symbol value)
- (cond ((eq symbol 'news-method)
- (if (eq value 'nnspool)
- (setq use-miee t)))
- ((eq symbol 'drafts-queue-type)
- (setq use-miee (eq value 'miee)))
- ((eq symbol 'save-passwd)
- (if value
- (add-to-list 'gnus-variable-list
- 'mail-source-password-cache)
- (setq gnus-variable-list
- (delq 'mail-source-password-cache
- gnus-variable-list)))))))
- (if (and (eq news-method 'nnspool)
- (not (eq drafts-queue-type 'miee)))
- (error (gnus-ofsetup-gettext 'customize-done-2)))
- (if use-miee
- (gnus-ofsetup-prepare gnus-ofsetup-prepare-for-miee))
- (gnus-ofsetup-prepare gnus-ofsetup-update-setting-file)
- (load gnus-offline-setting-file)))
- (bury-buffer)
- (switch-to-buffer gnus-group-buffer))
-
-
-;;; Code for making Gnus and Gnus Offline cooperate with each other.
-
-;; Advice.
-(defadvice gnus (around gnus-ofsetup-advice activate preactivate)
- "Setup offline environment when Gnus is invoked."
- (require 'gnus-offline) ad-do-it (gnus-offline-setup))
-
-;; Miscellaneous settings.
-
-(setq gnus-nntp-service nil)
-(setq gnus-nntp-server nil)
-(eval-after-load "gnus-start"
- '(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)
-
-;;; gnus-ofsetup.el ends here
projects / elisp / gnus.git- / blobdiff