git.chise.org Git - elisp/gnus.git-/blob - lisp/gnus-ofsetup.el

   1 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
   2 ;;;
   3 ;;; Copyright (C) 1998 Tatsuya Ichikawa
   4 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
   5 ;;;      Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
   6 ;;;
   7 ;;; This file is part of Semi-gnus.
   8 ;;;
   9 ;;; GNU Emacs is free software; you can redistribute it and/or modify
  10 ;;; it under the terms of the GNU General Public License as published by
  11 ;;; the Free Software Foundation; either version 2, or (at your option)
  12 ;;; any later version.
  13
  14 ;;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17 ;;; GNU General Public License for more details.
  18
  19 ;;; You should have received a copy of the GNU General Public License
  20 ;;; along with GNU Emacs; see the file COPYING.  If not, write to the
  21 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;;; Boston, MA 02111-1307, USA.
  23 ;;;
  24 ;;;; Commentary:
  25 ;;; How to use.
  26 ;;;
  27 ;;;      M-x load[RET]gnus-ofsetup
  28 ;;;      M-x gnus-setup-for-offline
  29 ;;;
  30
  31 ;;; Code:
  32
  33 (eval-when-compile (require 'cl))
  34
  35 (eval-and-compile
  36   (defvar gnus-offline-lang
  37     (cond ((and (featurep 'meadow)
  38                 (string= current-language-environment "Japanese"))
  39            "ja_complete")
  40           ((and (boundp 'current-language-environment)
  41                 (string= current-language-environment "Japanese"))
  42            "ja")
  43           (t
  44            "en"))
  45     "This variable decides which language will be used for display."))
  46
  47 (eval-when-compile
  48   (require 'gnus)
  49   (require 'gnus-offline))
  50
  51 (defvar gnus-offline-setting-file
  52   (let ((user (user-login-name))
  53         (real-user (user-real-login-name)))
  54     (if (string= user real-user)
  55         "~/.gnus-offline.el"
  56       ;; Seems it is after "su".
  57       (let ((file (concat "~" user "/.gnus-offline.el"))
  58             (real-file (concat "~" real-user "/.gnus-offline.el")))
  59         (cond ((file-exists-p real-file)
  60                real-file)
  61               ((file-exists-p file)
  62                file)
  63               (t
  64                real-file))))))
  65
  66 (eval-when-compile
  67   (defvar gnus-ofsetup-prepare-for-miee
  68     '(;; Spool directory setting - MIEE.
  69       (setq mail-spool (or mail-spool "/usr/spool/mail.out"))
  70       (setq news-spool (or news-spool "/usr/spool/news.out"))
  71       (condition-case nil
  72           (progn
  73             (if (not (file-exists-p mail-spool))
  74                 (make-directory mail-spool t))
  75             (if (not (file-exists-p news-spool))
  76                 (make-directory news-spool t)))
  77         (error
  78          (error (gnus-ofsetup-gettext 'prepare-miee-1))))))
  79
  80   (defvar gnus-ofsetup-update-setting-file
  81     '((save-excursion
  82         (set-buffer (get-buffer-create "* Setting"))
  83         (erase-buffer)
  84         (insert ";;\n")
  85         (insert ";; This file is created by gnus-ofsetup.el\n")
  86         (insert ";; Creation date : " (current-time-string) "\n")
  87         (insert ";;\n")
  88
  89         ;; write Basic setting
  90         (insert "(setq gnus-offline-news-fetch-method '"
  91                 (prin1-to-string news-method) ")\n")
  92         (insert "(setq gnus-offline-mail-fetch-method '"
  93                 (prin1-to-string mail-method) ")\n")
  94
  95         ;; write dialup/hangup program and options.
  96         (insert "(setq gnus-offline-dialup-program "
  97                 (prin1-to-string dialup-program) ")\n")
  98         (if (stringp dialup-program)
  99             (insert "(setq gnus-offline-dialup-program-arguments '"
 100                     (prin1-to-string dialup-program-arguments) ")\n"))
 101         (insert "(setq gnus-offline-hangup-program "
 102                 (prin1-to-string hangup-program) ")\n")
 103         (if (stringp hangup-program)
 104             (insert "(setq gnus-offline-hangup-program-arguments '"
 105                     (prin1-to-string hangup-program-arguments) ")\n"))
 106
 107         (if (integerp interval)
 108             (insert "(setq gnus-offline-interval-time "
 109                     (prin1-to-string interval) ")\n"))
 110
 111         ;; write setting about MIEE.
 112         (when use-miee
 113           (insert "(setq sendmail-to-spool-directory "
 114                   (prin1-to-string mail-spool) ")\n")
 115           (insert "(setq news-spool-request-post-directory "
 116                   (prin1-to-string news-spool) ")\n")
 117           (insert "(if (not (boundp 'miee-version))
 118     (load \"miee\"))\n")
 119           (insert "(setq message-send-news-function 'gnspool-request-post)\n"))
 120
 121         ;; write setting about nnspool and gnus-agent.
 122         (if (eq news-method 'nnspool)
 123             (insert "(message-offline-state)\n")
 124           (insert "(setq gnus-agent-directory "
 125                   (prin1-to-string agent-directory) ")\n"))
 126
 127         ;; write setting about queue type -- MIEE or nnagent.
 128         (insert "(setq gnus-offline-drafts-queue-type '"
 129                 (prin1-to-string drafts-queue-type) ")\n")
 130         (insert "(setq gnus-offline-MTA-type '"
 131                 (prin1-to-string MTA-type) ")\n")
 132
 133         ;; Offline setting for gnus-nntp-*
 134         (insert "(setq gnus-nntp-service nil)\n")
 135         (insert "(setq gnus-nntp-server nil)\n")
 136
 137         ;; Write setting about hooks.
 138         (insert (format "%s %s %s\n"
 139                         "(add-hook"
 140                         "'gnus-group-mode-hook"
 141                         "'gnus-offline-processed-by-timer t)"))
 142         (insert (format "%s %s %s\n"
 143                         "(add-hook"
 144                         "'gnus-group-mode-hook"
 145                         "'gnus-offline-error-check t)"))
 146         (insert (format "%s %s %s\n"
 147                         "(add-hook"
 148                         "'gnus-after-getting-new-news-hook"
 149                         "'gnus-offline-after-get-new-news)"))
 150         (when (eq news-method 'nnspool)
 151           (insert (format "%s %s %s\n"
 152                           "(add-hook"
 153                           "'after-getting-news-hook"
 154                           "'gnus-offline-nnspool-hangup-line)"))
 155           (insert (format "%s %s %s\n"
 156                           "(add-hook"
 157                           "'gnus-before-startup-hook"
 158                           "(lambda () (setq nnmail-spool-file nil)
 159            (setq mail-sources nil)))")))
 160         (insert (format "%s %s %s\n"
 161                         "(add-hook"
 162                         "'message-send-hook"
 163                         "'gnus-offline-message-add-header)"))
 164
 165         ;; Write stting about mail-source.el
 166         (insert "(setq gnus-offline-mail-source '"
 167                 (prin1-to-string mail-source) ")\n")
 168         (insert "(setq mail-sources gnus-offline-mail-source)\n")
 169         (insert "(require 'read-passwd)\n")
 170         (insert "(setq mail-source-read-passwd 'read-pw-read-passwd)\n")
 171         (insert (format "%s %s %s\n"
 172                         "(add-hook"
 173                         "'gnus-setup-news-hook"
 174                         "'read-pw-set-mail-source-passwd-cache)"))
 175         (if save-passwd
 176             (insert "(add-hook 'gnus-setup-news-hook
 177           (lambda ()
 178             (add-to-list 'gnus-variable-list 'mail-source-password-cache)))\n"))
 179
 180         ;;
 181         (write-region (point-min) (point-max) gnus-offline-setting-file))
 182       (kill-buffer "* Setting")))
 183
 184   (defmacro gnus-ofsetup-prepare (list)
 185     (let ((forms (symbol-value list)))
 186       `(progn ,@forms))))
 187
 188 (defvar gnus-ofsetup-resource-en
 189   '((prepare-miee-1
 190      . "Making directories failed. Set mail/news spool directories properly.")
 191     (completing-read-symbol-1 . " (TAB to completion): ")
 192     (setup-1 . "Method for offline News reading")
 193     (setup-2 . "Agent directory: ")
 194     (setup-3 . "Dialup program (give a null string if you do not use): ")
 195     (setup-4 . "Dialup program options: ")
 196     (setup-5 . "Hangup program (give a null string if you do not use): ")
 197     (setup-6 . "Hangup program options: ")
 198     (setup-7 . "Select MTA type for sending mail")
 199     (setup-8 . "Use MIEE post/send message ")
 200     (setup-9 . "News spool directory for sending: ")
 201     (setup-10 . "Mail spool directory for sending: ")
 202     (setup-11 . "How many e-mail address do you have: ")
 203     (setup-12 . "Mail Account name : ")
 204     (setup-13 . "Mail server : ")
 205     (setup-14 . "Authentification Method (TAB to completion): ")
 206     (setup-15 . "Do you use pop3.el to fetch mail? ")
 207     (setup-16 . "movemail program name: ")
 208     (setup-17 . "movemail options: ")
 209     (setup-18 . "Do you save password information to newsrc file? ")
 210     (param-news-method-1 . "News Method")
 211     (param-news-method-2 . "Gnus Agent")
 212     (param-news-method-3 . "nnspool")
 213     (param-news-method-4 . "\
 214 Method to fetch news articles.")
 215     (param-dialup-program-1 . "Dialup Program")
 216     (param-dialup-program-2 . "Use program..")
 217     (param-dialup-program-3 . "Don't use a program.")
 218     (param-dialup-program-4 . "\
 219 Program which does dial.")
 220     (param-dialup-program-arg-1 . "Dialup Program Arguments")
 221     (param-dialup-program-arg-2 . "Argument")
 222     (param-dialup-program-arg-3 . "\
 223 Program arguments of gnus-offline-dialup-program.")
 224     (param-hangup-program-1 . "Hangup Program")
 225     (param-hangup-program-2 . "Use program..")
 226     (param-hangup-program-3 . "Don't use a program.")
 227     (param-hangup-program-4 . "\
 228 Program which does hangup.")
 229     (param-hangup-program-arg-1 . "Hangup Program Arguments")
 230     (param-hangup-program-arg-2 . "Argument")
 231     (param-hangup-program-arg-3 . "\
 232 Program arguments of gnus-offline-hangup-program.")
 233     (param-interval-1 . "Interval between Jobs")
 234     (param-interval-2 . "\
 235 Interval time(minutes) to do online jobs.
 236 If set to 0 , timer call is disabled.")
 237     (param-drafts-queue-type-1 . "Drafts Queue Type")
 238     (param-drafts-queue-type-2 . "Gnus Draft for queuing.")
 239     (param-drafts-queue-type-3 . "I prefer MIEE for queuing.")
 240     (param-drafts-queue-type-4 . "\
 241 Type of queue used for draft messages.
 242
 243 If the select method for news is nnspool, you must choose MIEE.
 244 MIEE is another library for offline messaging. It isn't part of
 245 Semi-gnus. If you want to know about MIEE, see README-offline.{en,ja}.")
 246     (param-mail-spool-1 . "Mail Spool Directory for MIEE")
 247     (param-news-spool-1 . "News Spool Directory for MIEE")
 248     (param-MTA-type-1 . "MTA Type")
 249     (param-MTA-type-2 . "Use smtp.el")
 250     (param-MTA-type-3 . "Use sendmail")
 251     (param-MTA-type-4 . "\
 252 Type of MTA used for sending mail.")
 253     (param-save-passwd-1 . "Save Password in Startup File")
 254     (param-save-passwd-2 . "OK, I'm sure it's safe.")
 255     (param-save-passwd-3 . "No way, it's too dangerous!")
 256     (param-save-passwd-4 . "\
 257 Whether you want your POP passwords written in .newsrc.eld or not.")
 258     (param-mail-source-1 . "Mail Sources")
 259     (param-mail-source-2 . "\
 260 Information of mail sources. Actually, a list of `Mail Source Specifiers'.
 261
 262 The format of this variable is just the same as `mail-sources' (or
 263 `nnmail-spool-file' which seems obsolete).
 264
 265 `Mail Source Specifiers' can take a lot of keywords. For example,
 266 if you want to use movemail instead of pop3.el which comes with
 267 Gnus, you can set a specifier using the kerword :program as shown
 268 below:
 269
 270           (pop :program \"movemail -pf po:%u %t %p\")
 271
 272 If you want to know more about mail source specifiers and keywords,
 273 click the button below.")
 274     (customize-1 . "Customize the Gnus Offline Parameters, and press ")
 275     (customize-2 . "done")
 276     (customize-3 . "Push me when done customizing.")
 277     (customize-4 . "Parameters")
 278     (customize-5 . "\
 279 These parameters will be saved in ~/.gnus-offline.el.
 280
 281 Note: Touching these parameters may require Gnus or even Emacs to be
 282 restarted.")
 283     (customize-6 . "Push me to learn more.")
 284     (customize-done-1 . "(No changes need to be saved)")
 285     (customize-done-2
 286      . "Invalid parameters. Check the news method and drafts queue type.")))
 287
 288 (defvar gnus-ofsetup-resource-ja
 289   '((prepare-miee-1
 290      . "\e$B%G%#%l%/%H%j$,:n$l$^$;$s!#%9%W!<%k$N@_Dj$r@5$7$/$7$F$/$@$5$$!#\e(B")
 291     (completing-read-symbol-1 . "(TAB \e$B$GJd40$7$^$9\e(B): ")
 292     (setup-1 . "\e$B%*%U%i%$%s$G%K%e!<%9$rFI$`J}K!$rA*$s$G$/$@$5$$\e(B ")
 293     (setup-2 . "Gnus Agent \e$B$N%G%#%l%/%H%j\e(B: ")
 294     (setup-3
 295      . "\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): ")
 296     (setup-4 . "\e$B%@%$%d%k@\B3%W%m%0%i%`$N0z?t\e(B: ")
 297     (setup-5
 298      . "\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): ")
 299     (setup-6 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`$N0z?t\e(B: ")
 300     (setup-7 . "\e$B%a!<%kAw?.$K;H$&\e(B MTA \e$B$rA*$s$G2<$5$$\e(B ")
 301     (setup-8 . "\e$B%a%C%;!<%8$NAw?.$K\e(B MIEE \e$B$r;H$$$^$9$+\e(B? ")
 302     (setup-9 . "\e$B%K%e!<%9$N%9%W!<%k%G%#%l%/%H%j\e(B: ")
 303     (setup-10 . "\e$B%a!<%k$N%9%W!<%k%G%#%l%/%H%j\e(B: ")
 304     (setup-11 . "\e$B%a!<%k%"%+%&%s%H$N?t$rEz$($F$/$@$5$$\e(B: ")
 305     (setup-12 . "\e$B%a!<%k$N%"%+%&%s%HL>\e(B: ")
 306     (setup-13 . "\e$B$=$N%"%+%&%s%H$N$"$k%a!<%k%5!<%PL>\e(B: ")
 307     (setup-14 . "\e$B$=$N%5!<%P$G$NG'>ZJ}<0$O\e(B? (TAB \e$B$GJd40$7$^$9\e(B): ")
 308     (setup-15 . "\e$B%a!<%k$N<u?.$K$O\e(B pop3.el \e$B$r;H$$$^$9$+\e(B? ")
 309     (setup-16 . "movemail \e$B%W%m%0%i%`$NL>A0\e(B: ")
 310     (setup-17 . "movemail \e$B%W%m%0%i%`$KEO$90z?t\e(B: ")
 311     (setup-18 . "newsrc \e$B%U%!%$%k$K\e(B POP \e$B%Q%9%o!<%I$rJ]B8$7$^$9$+\e(B? ")
 312
 313     (param-news-method-4 . "\
 314 \e$B%K%e!<%95-;v$r<hF@$9$kJ}K!$G$9!#\e(B")
 315     (param-dialup-program-4 . "\
 316 \e$B<+F0%@%$%d%k@\B3$K;H$&%W%m%0%i%`!#\e(B")
 317     (param-dialup-program-arg-3 . "\
 318 \e$B%@%$%d%k@\B3%W%m%0%i%`$KEO$90z?t!#\e(B")
 319     (param-hangup-program-4 . "\
 320 \e$B<+F0%@%$%d%k@ZCG$K;H$&%W%m%0%i%`!#\e(B")
 321     (param-hangup-program-arg-3 . "\
 322 \e$B%@%$%d%k@ZCG%W%m%0%i%`$KEO$90z?t!#\e(B")
 323     (param-interval-2 . "\
 324 \e$BAw<u?.%8%g%V$r9T$&4V3V!#J,C10L$G;XDj$7$^$9!#\e(B
 325
 326 \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")
 327     (param-drafts-queue-type-4 . "\
 328 \e$B%I%i%U%H5-;v$rJ]B8$9$k%-%e!<$N<oN`$r;XDj$7$^$9!#\e(B
 329
 330 \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
 331 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
 332 Semi-gnus \e$B$K$OIUB0$7$F$$$^$;$s!#\e(BMIEE \e$B$K$D$$$FCN$j$?$$>l9g$O\e(B
 333 README-offline.{en,ja} \e$B$r;2>H$7$F$/$@$5$$!#\e(B")
 334     (param-MTA-type-4 . "\
 335 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")
 336     (param-save-passwd-4 . "\
 337 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")
 338     (param-mail-source-2 . "\
 339 \e$B%a!<%k<hF@@h$d<hF@J}K!$r;XDj$7$^$9!#\e(B
 340
 341 \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
 342 `mail source specifier' \e$B$H8F$P$l$k$b$N$N%j%9%H$H$7$F5-=R$7$^$9!#\e(B
 343
 344 \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
 345 \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
 346 (movemail \e$B$J$I\e(B) \e$B$r;H$$$?$$!"$H$$$&>l9g$K$O!"\e(B:program \e$B$r$$$&%-!<%o!<\e(B
 347 \e$B%I$r;XDj$7$F0J2<$NMM$K5-=R$7$^$9!#\e(B
 348
 349         (pop :program \"movemail -pf po:%u %t %p\")
 350
 351 mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
 352 \e$BCN$j$?$$>l9g$O!"0J2<$N%\%?%s$r%/%j%C%/$7$F$/$@$5$$!#\e(B(Info \e$B$N3:Ev2U=j\e(B
 353 \e$B$X$N%j%s%/$K$J$C$F$$$^$9!#\e(B)" )
 354
 355      (customize-1
 356       . "Gnus Offline \e$B$N%Q%i%a!<%?!#=*$o$C$?$i1&$N%\%?%s$r2!$7$F$/$@$5$$!#\e(B")
 357      (customize-2 . "done")
 358      (customize-3 . "\e$B@_Dj$7=*$o$C$?$i%\%/$r2!$7$F$M!#\e(B")
 359      (customize-4 . "\e$B%Q%i%a!<%?\e(B")
 360      (customize-5 . "\
 361 \e$B$3$l$i$N%Q%i%a!<%?$O\e(B ~/.gnus-offline.el \e$B$KJ]B8$5$l$^$9!#\e(B
 362
 363 \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
 364 \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")
 365      (customize-6 . "\e$B$b$C$HCN$j$?$$>l9g$O%\%/$r2!$7$F$M!#\e(B")
 366      (customize-done-1 . "(\e$BJ]B8$9$Y$-JQ99$O$"$j$^$;$s\e(B)")
 367      (customize-done-2
 368       . "\e$B%K%e!<%99VFI<jCJ$H%I%i%U%H5-;v<h$j07$$<jCJ$N@_Dj$r8+D>$7$F$/$@$5$$!#\e(B")
 369   ))
 370
 371 (defvar gnus-ofsetup-resource-ja_complete
 372   (append
 373    gnus-ofsetup-resource-ja
 374    '((param-news-method-1 . "\e$B%K%e!<%99VFIJ}K!\e(B")
 375      (param-news-method-2 . "Gnus Agent")
 376      (param-news-method-3 . "nnspool")
 377      (param-dialup-program-1 . "\e$B%@%$%d%k@\B3%W%m%0%i%`\e(B")
 378      (param-dialup-program-2 . "\e$B%W%m%0%i%`$r;H$&\e(B..")
 379      (param-dialup-program-3 . "\e$B%W%m%0%i%`$O;XDj$7$J$$\e(B")
 380      (param-dialup-program-arg-1 . "\e$B%@%$%d%k@\B3%W%m%0%i%`$N0z?t\e(B")
 381      (param-dialup-program-arg-2 . "\e$B0z?t\e(B")
 382      (param-hangup-program-1 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`\e(B")
 383      (param-hangup-program-2 . "\e$B%W%m%0%i%`$r;H$&\e(B..")
 384      (param-hangup-program-3 . "\e$B%W%m%0%i%`$O;XDj$7$J$$\e(B")
 385      (param-hangup-program-arg-1 . "\e$B%@%$%d%k@ZCG%W%m%0%i%`$N0z?t\e(B")
 386      (param-hangup-program-arg-2 . "\e$B0z?t\e(B")
 387      (param-interval-1 . "\e$B<+F0Aw<u?.%8%g%V$N4V3V\e(B")
 388      (param-drafts-queue-type-1 . "\e$B%I%i%U%H5-;v$rJ]B8$9$k%-%e!<$N<oN`\e(B")
 389      (param-drafts-queue-type-2 . "Gnus Draft \e$B$N5!G=$rMxMQ$9$k\e(B")
 390      (param-drafts-queue-type-3 . "MIEE \e$B$N5!G=$rMxMQ$9$k\e(B")
 391      (param-mail-spool-1 . "MIEE \e$B$,;H$&%a!<%k$N%9%W!<%k%G%#%l%/%H%j\e(B")
 392      (param-news-spool-1 . "MIEE \e$B$,;H$&%K%e!<%9$N%9%W!<%k%G%#%l%/%H%j\e(B")
 393      (param-MTA-type-1 . "MTA \e$B$N<oN`\e(B")
 394      (param-MTA-type-2 . "smtp.el \e$B$r;H$&\e(B")
 395      (param-MTA-type-3 . "sendmail \e$B$r;H$&\e(B")
 396      (param-save-passwd-1
 397       . "\e$B%U%!%$%k$K\e(B POP \e$B%Q%9%o!<%I$rJ]B8$9$k\e(B")
 398      (param-save-passwd-2 . "\e$B0BA4$J$N$GJ]B8$9$k\e(B")
 399      (param-save-passwd-3 . "\e$B4m81$@$+$i$d$a$H$/\e(B")
 400      (param-mail-source-1 . "\e$B%a!<%k<hF@@h$N>pJs\e(B"))))
 401
 402 (defsubst gnus-ofsetup-gettext (symbol &optional lang)
 403   (setq lang (or lang gnus-offline-lang))
 404   (or
 405    (cdr (assq symbol (symbol-value
 406                       (intern (format "gnus-ofsetup-resource-%s" lang)))))
 407    (cdr (assq symbol gnus-ofsetup-resource-en))))
 408
 409 (defun gnus-ofsetup-completing-read-symbol (msg &rest syms)
 410   (intern
 411    (completing-read (concat
 412                      msg
 413                      (gnus-ofsetup-gettext 'completing-read-symbol-1))
 414                     (mapcar
 415                      #'(lambda (sym)
 416                          (list (symbol-name sym)))
 417                      syms)
 418                     nil t nil)))
 419
 420 (defun gnus-setup-for-offline ()
 421   "*Set up Gnus for offline environment."
 422   (interactive)
 423   (unless (file-exists-p gnus-offline-setting-file)
 424     (let (news-method
 425           mail-method agent-directory drafts-queue-type news-spool mail-spool
 426           use-miee MTA-type dialup-program dialup-program-arguments
 427           hangup-program hangup-program-arguments interval
 428           num-of-address i mail-source save-passwd)
 429       (setq news-method
 430             (gnus-ofsetup-completing-read-symbol
 431              (gnus-ofsetup-gettext 'setup-1)
 432              'nnagent 'nnspool))
 433       ;; Setting for gnus-agent.
 434       (if (eq news-method 'nnagent)
 435           (setq agent-directory
 436                 (read-from-minibuffer
 437                  (gnus-ofsetup-gettext 'setup-2) "~/News/agent")))
 438       (setq mail-method 'nnmail)
 439       (setq dialup-program
 440             (read-file-name
 441              (gnus-ofsetup-gettext 'setup-3)
 442              nil nil t))
 443       (if (string-match "^[ \t]*$" dialup-program)
 444           (setq dialup-program nil)
 445         (setq dialup-program-arguments
 446               (delete "" (split-string
 447                           (read-from-minibuffer
 448                            (gnus-ofsetup-gettext 'setup-4))
 449                           "[\t ]+"))))
 450       (setq hangup-program
 451             (read-file-name
 452              (gnus-ofsetup-gettext 'setup-5)
 453              nil nil t))
 454       (if (string-match "^[ \t]*$" hangup-program)
 455           (setq hangup-program nil)
 456         (setq hangup-program-arguments
 457               (delete "" (split-string
 458                           (read-from-minibuffer
 459                            (gnus-ofsetup-gettext 'setup-6))
 460                           "[\t ]+"))))
 461       (setq MTA-type (gnus-ofsetup-completing-read-symbol
 462                       (gnus-ofsetup-gettext 'setup-7)
 463                       'smtp 'sendmail))
 464       (if (eq news-method 'nnspool)
 465           (setq use-miee t)
 466         (setq use-miee (y-or-n-p (gnus-ofsetup-gettext 'setup-8))))
 467       (if use-miee
 468           (progn
 469             ;; Setting for MIEE.
 470             (setq news-spool
 471                   (read-from-minibuffer
 472                    (gnus-ofsetup-gettext 'setup-9)
 473                    "/usr/spool/news.out"))
 474             (setq mail-spool
 475                   (read-from-minibuffer
 476                    (gnus-ofsetup-gettext 'setup-10)
 477                    "/usr/spool/mail.out"))
 478             (setq drafts-queue-type 'miee)
 479             (gnus-ofsetup-prepare gnus-ofsetup-prepare-for-miee))
 480         ;; Set drafts type gnus-agent.
 481         (setq drafts-queue-type 'agent))
 482       ;; Set E-Mail Address and pop3 movemail type.
 483       (setq num-of-address
 484             (read-from-minibuffer (gnus-ofsetup-gettext 'setup-11)))
 485       (setq i (string-to-int num-of-address))
 486       (while (> i 0)
 487         (let ((user (read-from-minibuffer (gnus-ofsetup-gettext 'setup-12)))
 488               (server (read-from-minibuffer
 489                        (gnus-ofsetup-gettext 'setup-13)))
 490               (auth (completing-read
 491                      (gnus-ofsetup-gettext 'setup-14)
 492                      '(("password") ("apop")) nil t nil))
 493               (islisp (y-or-n-p (gnus-ofsetup-gettext 'setup-15)))
 494               source)
 495           (if (not islisp)
 496               (let ((prog (read-file-name (gnus-ofsetup-gettext 'setup-16)
 497                                           exec-directory "movemail"))
 498                     (args (read-from-minibuffer
 499                            (gnus-ofsetup-gettext 'setup-17)
 500                            "-pf")))
 501                 (setq source `(pop
 502                                :user ,user
 503                                :server ,server
 504                                :program ,(format "%s %s %s %s %s"
 505                                                  prog
 506                                                  args
 507                                                  "po:%u"
 508                                                  "%t"
 509                                                  "%p"))))
 510             (setq source `(pop
 511                            :user ,user
 512                            :server ,server)))
 513           (setq mail-source
 514                 (nconc mail-source
 515                        (list
 516                         (if (string-equal "apop" auth)
 517                             (nconc source '(:authentication apop))
 518                           source)))))
 519         (setq i (1- i)))
 520       (setq save-passwd
 521             (y-or-n-p (gnus-ofsetup-gettext 'setup-18)))
 522       ;;
 523       (gnus-ofsetup-prepare gnus-ofsetup-update-setting-file)))
 524   (load gnus-offline-setting-file))
 525
 526
 527 ;; Suppport for customizing gnus-ofsetup parameters.
 528
 529 (defvar sendmail-to-spool-directory)
 530 (defvar news-spool-request-post-directory)
 531
 532 (defun gnus-ofsetup-find-parameters ()
 533   "Return the each current value of gnus-offline parameters."
 534   `((news-method
 535      (choice :tag ,(gnus-ofsetup-gettext 'param-news-method-1)
 536              :value ,gnus-offline-news-fetch-method
 537              (const :tag ,(gnus-ofsetup-gettext 'param-news-method-2)
 538                     nnagent)
 539              (const :tag ,(gnus-ofsetup-gettext 'param-news-method-3)
 540                     nnspool))
 541      ,(gnus-ofsetup-gettext 'param-news-method-4))
 542
 543     (dialup-program
 544      (choice :tag ,(gnus-ofsetup-gettext 'param-dialup-program-1)
 545              :value ,gnus-offline-dialup-program
 546              (string :tag ,(gnus-ofsetup-gettext 'param-dialup-program-2))
 547              (const :tag ,(gnus-ofsetup-gettext
 548                            'param-dialup-program-3) nil))
 549      ,(gnus-ofsetup-gettext 'param-dialup-program-4))
 550
 551     (dialup-program-arguments
 552      (repeat :tag ,(gnus-ofsetup-gettext 'param-dialup-program-arg-1)
 553              :value ,gnus-offline-dialup-program-arguments
 554              (string :tag ,(gnus-ofsetup-gettext
 555                             'param-dialup-program-arg-2)))
 556      ,(gnus-ofsetup-gettext 'param-dialup-program-arg-3))
 557
 558     (hangup-program
 559      (choice :tag ,(gnus-ofsetup-gettext 'param-hangup-program-1)
 560              :value ,gnus-offline-hangup-program
 561              (string :tag ,(gnus-ofsetup-gettext 'param-hangup-program-2))
 562              (const :tag ,(gnus-ofsetup-gettext 'param-hangup-program-3)
 563                     nil))
 564      ,(gnus-ofsetup-gettext 'param-hangup-program-4))
 565
 566     (hangup-program-arguments
 567      (repeat :tag ,(gnus-ofsetup-gettext 'param-hangup-program-arg-1)
 568              :value ,gnus-offline-hangup-program-arguments
 569              (string :tag ,(gnus-ofsetup-gettext
 570                             'param-hangup-program-arg-2)))
 571      ,(gnus-ofsetup-gettext 'param-hangup-program-arg-3))
 572
 573     (interval
 574      (integer :tag ,(gnus-ofsetup-gettext 'param-interval-1)
 575               :value ,gnus-offline-interval-time)
 576      ,(gnus-ofsetup-gettext 'param-interval-2))
 577
 578     (drafts-queue-type
 579      (choice :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-1)
 580              :value ,gnus-offline-drafts-queue-type
 581              (const :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-2)
 582                     agent)
 583              (const :tag ,(gnus-ofsetup-gettext 'param-drafts-queue-type-3)
 584                     miee))
 585      ,(gnus-ofsetup-gettext 'param-drafts-queue-type-4))
 586
 587     (mail-spool
 588      (directory :tag ,(gnus-ofsetup-gettext 'param-mail-spool-1)
 589                 :value ,(cond ((and (boundp 'sendmail-to-spool-directory)
 590                                     sendmail-to-spool-directory)
 591                                sendmail-to-spool-directory)
 592                               (t
 593                                "/usr/spool/mail.out"))))
 594
 595     (news-spool
 596      (directory :tag ,(gnus-ofsetup-gettext 'param-news-spool-1)
 597                 :value ,(cond ((and (boundp 'news-spool-request-post-directory)
 598                                     news-spool-request-post-directory)
 599                                news-spool-request-post-directory)
 600                               (t
 601                                "/usr/spool/news.out"))))
 602
 603     (MTA-type
 604      (choice :tag ,(gnus-ofsetup-gettext 'param-MTA-type-1)
 605              :value ,gnus-offline-MTA-type
 606              (const :tag ,(gnus-ofsetup-gettext 'param-MTA-type-2) smtp)
 607              (const :tag ,(gnus-ofsetup-gettext 'param-MTA-type-3)
 608                     sendmail))
 609      ,(gnus-ofsetup-gettext 'param-MTA-type-4))
 610
 611     (save-passwd
 612      (choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1)
 613              :value ,(if (memq 'mail-source-password-cache gnus-variable-list)
 614                          t
 615                          nil)
 616              (const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-2) t)
 617              (const :tag ,(gnus-ofsetup-gettext 'param-save-passwd-3) nil))
 618      ,(gnus-ofsetup-gettext 'param-save-passwd-4))
 619
 620     (mail-source
 621      (sexp :tag ,(gnus-ofsetup-gettext 'param-mail-source-1)
 622            :value ,gnus-offline-mail-source)
 623      ,(gnus-ofsetup-gettext 'param-mail-source-2))))
 624
 625 (defvar gnus-ofsetup-params)
 626
 627 (defun gnus-ofsetup-customize ()
 628   "Edit the gnus-offline parameters."
 629   (interactive)
 630   (let* ((params (gnus-ofsetup-find-parameters))
 631          (types (mapcar #'(lambda (entry)
 632                             `(cons :format "%v%h\n"
 633                                    :doc ,(nth 2 entry)
 634                                    (const :format "" ,(nth 0 entry))
 635                                    ,(nth 1 entry)))
 636                         params)))
 637   (kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
 638   (switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
 639   (gnus-custom-mode)
 640   (widget-insert (gnus-ofsetup-gettext 'customize-1))
 641   (widget-create 'push-button
 642                    :tag (gnus-ofsetup-gettext 'customize-2)
 643                    :help-echo (gnus-ofsetup-gettext 'customize-3)
 644                    :action 'gnus-ofsetup-customize-done)
 645   (widget-insert "\n\n")
 646   (make-local-variable 'gnus-ofsetup-params)
 647   (setq gnus-ofsetup-params
 648         (widget-create 'group
 649                        `(set :inline t
 650                              :greedy t
 651                              :tag ,(gnus-ofsetup-gettext 'customize-4)
 652                              :format "%t:\n%h%v"
 653                              :doc ,(gnus-ofsetup-gettext 'customize-5)
 654                              ,@types)))
 655
 656   (widget-create 'info-link
 657                  :help-echo (gnus-ofsetup-gettext 'customize-6)
 658                  :tag "<Info> mail sources"
 659                  (if (string-match "^ja" gnus-offline-lang)
 660                      "(gnus-ja)Mail Sources"
 661                    "(gnus)Mail Sources"))
 662
 663   (use-local-map widget-keymap)
 664   (local-set-key "q" 'bury-buffer)
 665   (widget-setup)
 666   (goto-char (point-min))))
 667
 668 (defun gnus-ofsetup-customize-done (&rest ignore)
 669   "Apply changes and bury the buffer."
 670   (interactive)
 671   (let ((params (widget-value gnus-ofsetup-params))
 672         (news-method gnus-offline-news-fetch-method)
 673         (mail-method gnus-offline-mail-fetch-method)
 674         (agent-directory gnus-agent-directory)
 675         (dialup-program gnus-offline-dialup-program)
 676         (dialup-program-arguments gnus-offline-dialup-program-arguments)
 677         (hangup-program gnus-offline-hangup-program)
 678         (hangup-program-arguments gnus-offline-hangup-program-arguments)
 679         (drafts-queue-type gnus-offline-drafts-queue-type)
 680         (interval gnus-offline-interval-time)
 681         (use-miee (and (boundp 'miee-version)
 682                        (or (eq gnus-offline-news-fetch-method 'nnspool)
 683                            (eq gnus-offline-drafts-queue-type 'miee))))
 684         (mail-spool (or (and (boundp 'sendmail-to-spool-directory)
 685                              sendmail-to-spool-directory)
 686                         "/usr/spool/mail.out"))
 687         (news-spool (or (and (boundp 'news-spool-request-post-directory)
 688                              news-spool-request-post-directory)
 689                         "/usr/spool/news.out"))
 690         (MTA-type gnus-offline-MTA-type)
 691         (mail-source gnus-offline-mail-source)
 692         (save-passwd (and (memq 'mail-source-password-cache gnus-variable-list)
 693                           t)))
 694     (if (null params)
 695         (gnus-message 4 (gnus-ofsetup-gettext 'customize-done-1))
 696       (mapc #'(lambda (el)
 697                 (let ((sym (car el))
 698                       (val (cdr el)))
 699                   (set sym val)
 700                   (cond ((eq sym 'news-method)
 701                          (if (eq val 'nnspool)
 702                              (setq use-miee t)))
 703                         ((eq sym 'drafts-queue-type)
 704                          (setq use-miee
 705                                (if (eq val 'miee) t nil)))
 706                         ((eq sym 'save-passwd)
 707                          (if val
 708                              (add-to-list 'gnus-variable-list
 709                                           'mail-source-password-cache)
 710                            (setq gnus-variable-list
 711                                  (delq 'mail-source-password-cache
 712                                        gnus-variable-list)))))))
 713             params)
 714       (if (and (eq news-method 'nnspool)
 715                (not (eq drafts-queue-type 'miee)))
 716           (error (gnus-ofsetup-gettext 'customize-done-2)))
 717       (if use-miee
 718           (gnus-ofsetup-prepare gnus-ofsetup-prepare-for-miee))
 719       (gnus-ofsetup-prepare gnus-ofsetup-update-setting-file)
 720       (load gnus-offline-setting-file)))
 721   (bury-buffer)
 722   (switch-to-buffer gnus-group-buffer))
 723
 724
 725 ;;; Code for making Gnus and Gnus Offline cooperate with each other.
 726
 727 ;; advice.
 728 (defadvice gnus (around gnus-ofsetup-advice activate preactivate)
 729   "Setup offline environment when Gnus is invoked."
 730   (require 'gnus-offline) ad-do-it (gnus-offline-setup))
 731
 732 ;; gnus-ofsetup.el Ends here.