;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
;;;
-;;; $Id: gnus-ofsetup.el,v 1.1.2.19.4.1 1999-08-04 08:19:12 yamaoka Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.19.4.2 1999-08-16 10:10:38 czkmt Exp $
;;;
;;; Copyright (C) 1998 Tatsuya Ichikawa
;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
;;; Code:
+(eval-when-compile
+ (require 'poe)
+ (make-local-variable 'byte-compile-warnings)
+ (setq byte-compile-warnings nil))
+
(defvar gnus-offline-setting-file "~/.gnus-offline.el")
-(defvar gnus-offline-use-miee nil)
-(defvar gnus-offline-news-fetch-method nil)
-(defvar gnus-offline-mail-fetch-method nil)
-(defvar gnus-offline-hangup-program nil)
-(defvar gnus-offline-dialup-program nil)
-(defvar gnus-offline-mail-spool-directory nil)
-(defvar gnus-offline-news-spool-directory nil)
-(defvar pop3-fma-spool-file-alist nil)
-(defvar pop3-fma-movemail-type nil)
-(defvar pop3-fma-movemail-arguments nil)
-(defvar use-miee nil)
-(defvar address nil)
-(defvar mail-source nil)
-(defvar options nil)
-
-;;; To silence byte compiler
-(and
- (fboundp 'eval-when-compile)
- (eval-when-compile
- (save-excursion
- (beginning-of-defun)
- (eval-region (point-min) (point)))
- (let (case-fold-search)
- (mapcar
- (function
- (lambda (symbol)
- (unless (boundp symbol)
- (make-local-variable symbol)
- (eval (list 'setq symbol nil)))))
- '(:group
- :prefix :type
- sendmail-to-spool-directory
- news-spool-request-post-directory
- nnspool-version
- nnagent-version
- msspool-news-server
- msspool-news-service
- gnspool-get-news
- mail-spool-send
- news-spool-post
- gnus-agent-handle-level
- ))
- (make-local-variable 'byte-compile-warnings)
- (setq byte-compile-warnings nil))))
+
+(defun gnus-ofsetup-completing-read-symbol (msg &rest syms)
+ (intern
+ (completing-read (concat msg " (TAB to completion): ")
+ (mapcar
+ (lambda (sym)
+ (list (symbol-name sym)))
+ syms)
+ nil t nil)))
(defun gnus-setup-for-offline ()
"*Set up Gnus for offline environment."
(interactive)
-
- (if (not (file-exists-p gnus-offline-setting-file))
- (progn
- (let ((news-method
- (completing-read
- "Method for offline News reading (TAB to completion): "
- '(("gnus-agent" 1) ("nnspool" 2))
- nil t nil))
- (mail-method 'nnmail)
- (program
- (read-file-name "Dialup/Hangup program(type nil or null string you do not use): "))
- (mta-type
- (completing-read
- "Select MTA type for sending mail (TAB to completion): "
- '(("smtp" 1) ("sendmail" 2))
- nil t nil))
- (num-of-address
- (read-from-minibuffer "How many e-mail address do you have: "))
- )
- (if (string-equal news-method "nnspool")
- (setq use-miee t)
- (setq use-miee (y-or-n-p "Use MIEE post/send message ")))
- ;;
- ;; Set variables.
- (if (string-equal news-method "gnus-agent")
- (setq gnus-offline-news-fetch-method 'nnagent)
- (setq gnus-offline-news-fetch-method 'nnspool))
- ;;
- (setq gnus-offline-mail-fetch-method mail-method)
- (setq gnus-offline-use-miee use-miee)
-
- ;; Set programs.
- (if (or (string-equal program "nil")
- (string-equal program ""))
- (progn
- (setq gnus-offline-hangup-program nil)
- (setq gnus-offline-dialup-program nil))
- (let ((options
- (read-from-minibuffer "Dialup program options: ")))
- (setq gnus-offline-dialup-program-arguments
- (split-string options "[\t ]+")))
- (let ((options
- (read-from-minibuffer "Hangup program options: ")))
- (setq gnus-offline-hangup-program-arguments
- (split-string options "[\t ]+")))
- (setq gnus-offline-hangup-program program)
- (setq gnus-offline-dialup-program program))
-
- ;; Set spool directory for outgoing messages.
- (if use-miee
- (progn
- ;; Setting for MIEE with nnspool.
- (let ((news-spool
- (read-from-minibuffer
- "News spool directory for sending: "
- "/usr/spool/news.out"))
- (mail-spool
- (read-from-minibuffer
- "Mail spool directory for sending: "
- "/usr/spool/mail.out")))
- (setq gnus-offline-mail-spool-directory mail-spool)
- (setq gnus-offline-news-spool-directory news-spool)
- (setq gnus-offline-drafts-queue-type 'miee)
-
- (gnus-ofsetup-prepare-for-miee)))
-
- ;; Set drafts type gnus-agent.
- (setq gnus-offline-drafts-queue-type 'agent))
-
- ;; Setting for gnus-agent.
- (if (eq gnus-offline-news-fetch-method 'nnagent)
- (let ((agent-directory
- (read-from-minibuffer "Agent directory: " "~/News/agent")))
- (setq gnus-agent-directory agent-directory)))
-
- ;; Determin MTA type.
- (if (string-equal mta-type "smtp")
- (setq gnus-offline-MTA-type 'smtp)
- (setq gnus-offline-MTA-type 'sendmail)
- )
- ;;
- ;; Set E-Mail Address and pop3 movemail type.
- (setq i (string-to-int num-of-address))
- (setq address nil)
- (if (not (locate-library "mail-source"))
- (progn
- (while (> i 0)
- (setq address
- (append address
- (list
- (list
- (concat "po:"
- (read-from-minibuffer
- "Email address (user@mailhost): "))
- (completing-read
- "Authentification Method (TAB to completion): "
- '(("pass" 1) ("apop" 2)) nil t nil)))))
- (setq i (- i 1)))
- ;; Replace "hoge" -> 'hoge
- (mapcar
- (lambda (x)
- (if (string-equal (nth 1 x) "pass")
- (setcar (cdr x) 'pass)
- (setcar (cdr x) 'apop)))
- address)
- (setq pop3-fma-spool-file-alist address)
- ;; Set movemail type.
- (let ((movemail-type
- (completing-read
- "Select movemail type for retreave mail (TAB to completion): "
- '(("exe" 1) ("lisp" 2))
- nil t nil))
- )
- (if (string-equal movemail-type "exe")
- (let ((options
- (read-from-minibuffer "movemail options: ")))
- (setq pop3-fma-movemail-arguments (split-string options "[\t ]+"))))
- (if (string-equal movemail-type "exe")
- (setq pop3-fma-movemail-type 'exe)
- (setq pop3-fma-movemail-type 'lisp))))
- ;;
- ;; Use mail-source.el
- (setq mail-source nil)
- (while (> i 0)
- (let ((user (read-from-minibuffer "Mail Account name : "))
- (server (read-from-minibuffer "Mail server : "))
- (auth (completing-read
- "Authentification Method (TAB to completion): "
- '(("password") ("apop")) nil t nil))
- (islisp (y-or-n-p "Do you use pop3.el to fetch mail? "))
- source)
- (if (not islisp)
- (let ((prog (read-file-name "movemail program name: "
- exec-directory "movemail"))
- (args (read-from-minibuffer "movemail options: "
- "-pf")))
- (setq source (list 'pop
- :user user
- :server server
- :program (format "%s %s %s %s %s"
- prog
- args
- "po:%u"
- "%t"
- "%p"))))
- (setq source (list 'pop
- :user user
- :server server)))
- (setq mail-source
- (nconc mail-source
- (list
- (if (string-equal "apop" auth)
- (nconc source '(:authentication apop))
- source)))))
- (setq i (1- i)))
- (setq gnus-offline-mail-source mail-source)))
-
- (setq save-passwd
- (y-or-n-p "Do you save password information to newsrc file? "))
-
- (gnus-ofsetup-write-setting-file)))
+ (unless (file-exists-p gnus-offline-setting-file)
+ (let (news-method
+ mail-method agent-directory drafts-queue-type news-spool mail-spool
+ send-news-function use-miee MTA-type dialup-program
+ dialup-program-arguments hangup-program hangup-program-arguments
+ sendmail-to-spool-directory news-spool-request-post-directory
+ address mail-source spool-file save-passwd)
+ (setq news-method
+ (gnus-ofsetup-completing-read-symbol
+ "Method for offline News reading"
+ 'nnagent 'nnspool))
+ ;; Setting for gnus-agent.
+ (if (eq news-method 'nnagent)
+ (setq agent-directory
+ (read-from-minibuffer "Agent directory: " "~/News/agent")))
+ (setq mail-method 'nnmail)
+ (setq dialup-program
+ (read-file-name
+ "Dialup program (or null string if you do not use): "
+ nil nil t))
+ (if (string-match "^[ \t]*$" dialup-program)
+ (setq dialup-program nil)
+ (setq dialup-program-arguments
+ (delete "" (split-string
+ (read-from-minibuffer "Dialup program options: ")
+ "[\t ]+"))))
+ (setq hangup-program
+ (read-file-name
+ "Hangup program (or null string if you do not use): "
+ nil nil t))
+ (if (string-match "^[ \t]*$" hangup-program)
+ (setq hangup-program nil)
+ (setq hangup-program-arguments
+ (delete "" (split-string
+ (read-from-minibuffer "Hangup program options: ")
+ "[\t ]+"))))
+ (setq MTA-type (gnus-ofsetup-completing-read-symbol
+ "Select MTA type for sending mail"
+ 'smtp 'sendmail))
+ (if (eq news-method 'nnspool)
+ (setq use-miee t)
+ (setq use-miee (y-or-n-p "Use MIEE post/send message ")))
+ (if use-miee
+ (progn
+ ;; Setting for MIEE.
+ (setq news-spool
+ (read-from-minibuffer
+ "News spool directory for sending: "
+ "/usr/spool/news.out"))
+ (setq mail-spool
+ (read-from-minibuffer
+ "Mail spool directory for sending: "
+ "/usr/spool/mail.out"))
+ (setq drafts-queue-type 'miee)
+ (gnus-ofsetup-prepare-for-miee))
+ ;; Set drafts type gnus-agent.
+ (setq drafts-queue-type 'agent))
+ ;; Set E-Mail Address and pop3 movemail type.
+ (setq num-of-address
+ (read-from-minibuffer "How many e-mail address do you have: "))
+ (setq i (string-to-int num-of-address))
+ (while (> i 0)
+ (let ((user (read-from-minibuffer "Mail Account name : "))
+ (server (read-from-minibuffer "Mail server : "))
+ (auth (completing-read
+ "Authentification Method (TAB to completion): "
+ '(("password") ("apop")) nil t nil))
+ (islisp (y-or-n-p "Do you use pop3.el to fetch mail? "))
+ source)
+ (if (not islisp)
+ (let ((prog (read-file-name "movemail program name: "
+ exec-directory "movemail"))
+ (args (read-from-minibuffer "movemail options: "
+ "-pf")))
+ (setq source (list 'pop
+ :user user
+ :server server
+ :program (format "%s %s %s %s %s"
+ prog
+ args
+ "po:%u"
+ "%t"
+ "%p"))))
+ (setq source (list 'pop
+ :user user
+ :server server)))
+ (setq mail-source
+ (nconc mail-source
+ (list
+ (if (string-equal "apop" auth)
+ (nconc source '(:authentication apop))
+ source)))))
+ (setq i (1- i)))
+ (setq save-passwd
+ (y-or-n-p "Do you save password information to newsrc file? "))
+ ;;
+ (gnus-ofsetup-update-setting-file)))
(load gnus-offline-setting-file))
(defun gnus-ofsetup-prepare-for-miee ()
- ;; Load MIEE.
- (if (not (boundp 'miee-version))
- (load "miee"))
- ;; Set news post function for MIEE.
- (setq message-send-news-function 'gnspool-request-post)
;; Spool directory setting - MIEE.
- (if (not (file-exists-p gnus-offline-mail-spool-directory))
- (make-directory gnus-offline-mail-spool-directory t))
- (setq sendmail-to-spool-directory
- gnus-offline-mail-spool-directory)
- (if (not (file-exists-p gnus-offline-news-spool-directory))
- (make-directory gnus-offline-news-spool-directory t))
- (setq news-spool-request-post-directory
- gnus-offline-news-spool-directory))
-
-(defun gnus-ofsetup-write-setting-file ()
- ;; Write to setting file.
- (setq tmp-buffer (get-buffer-create "* Setting"))
- (set-buffer "* Setting")
- (erase-buffer)
- (insert ";;\n");
- (insert ";; This file is created by gnus-ofsetup.el\n")
- (insert ";; Creation date : ")
- (insert (current-time-string))
- (insert "\n")
- (insert ";;\n")
-
- ;; write Basic setting
- (insert "(setq gnus-offline-news-fetch-method '")
- (insert (prin1-to-string gnus-offline-news-fetch-method))
- (insert ")\n")
- (insert "(setq gnus-offline-mail-fetch-method '")
- (insert (prin1-to-string gnus-offline-mail-fetch-method))
- (insert ")\n")
- (insert "(setq gnus-offline-use-miee ")
- (insert (prin1-to-string gnus-offline-use-miee))
- (insert ")\n")
- (insert "(setq gnus-offline-dialup-program ")
- (insert (prin1-to-string gnus-offline-dialup-program))
- (insert ")\n")
-
- ;; write dialup/hangup program and options.
- (if (stringp gnus-offline-dialup-program)
- (progn
- (insert "(setq gnus-offline-dialup-program-arguments '")
- (insert (prin1-to-string gnus-offline-dialup-program-arguments))
- (insert ")\n")))
- (insert "(setq gnus-offline-hangup-program ")
- (insert (prin1-to-string gnus-offline-hangup-program))
- (insert ")\n")
- (if (stringp gnus-offline-hangup-program)
- (progn
- (insert "(setq gnus-offline-hangup-program-arguments '")
- (insert (prin1-to-string gnus-offline-hangup-program-arguments))
- (insert ")\n")))
-
- (if (boundp 'gnus-offline-interval-time)
+ (setq mail-spool (or mail-spool "/usr/spool/mail.out"))
+ (setq news-spool (or news-spool "/usr/spool/news.out"))
+ (condition-case nil
(progn
- (insert "(setq gnus-offline-interval-time ")
- (insert (prin1-to-string gnus-offline-interval-time))
- (insert ")\n")))
+ (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 "Making directories failed. Set mail/news spool directories properly."))))
+
+(defun gnus-ofsetup-update-setting-file ()
+ ;; Write to 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 (boundp '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")
+
+ ;; Offline setting for gnus-nntp-*
+ (insert "(setq gnus-nntp-service nil)\n")
+ (insert "(setq gnus-nntp-server nil)\n")
+
+ ;; Write setting about hooks.
+ (insert "(add-hook 'gnus-group-mode-hook 'gnus-offline-processed-by-timer t)\n")
+ (insert "(add-hook 'gnus-group-mode-hook 'gnus-offline-error-check t)\n")
+ (insert "(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news)\n")
+ (insert "(add-hook 'gnus-after-getting-news-hook 'gnus-offline-after-get-new-news)\n")
+ (when (eq news-method 'nnspool)
+ (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n")
+ (insert "(add-hook 'gnus-before-startup-hook (lambda () (setq nnmail-spool-file nil)))\n"))
+ (insert "(add-hook 'message-send-hook 'gnus-offline-message-add-header)\n")
+ (insert "(autoload 'gnus-offline-setup \"gnus-offline\")\n")
+ (insert "(add-hook 'gnus-load-hook 'gnus-offline-setup)\n")
- ;; write setting about MIEE.
- (if gnus-offline-use-miee
- (progn
- (insert "(setq gnus-offline-mail-spool-directory ")
- (insert (prin1-to-string gnus-offline-mail-spool-directory))
- (insert ")\n")
- (insert "(setq gnus-offline-news-spool-directory ")
- (insert (prin1-to-string gnus-offline-news-spool-directory))
- (insert ")\n")
- (insert "(setq sendmail-to-spool-directory gnus-offline-mail-spool-directory)\n")
- (insert "(setq news-spool-request-post-directory gnus-offline-news-spool-directory)\n")
- (insert "(load \"miee\")\n")
- (insert "(setq message-send-news-function '")
- (insert (prin1-to-string message-send-news-function))
- (insert ")\n")))
-
- ;; write setting about nnspool and gnus-agent.
- (if (equal gnus-offline-news-fetch-method 'nnspool)
- (insert "(message-offline-state)\n")
- (insert "(setq gnus-agent-directory ")
- (insert (prin1-to-string gnus-agent-directory))
- (insert ")\n"))
-
- ;; write setting about queue type -- MIEE or nnagent.
- (insert "(setq gnus-offline-drafts-queue-type '")
- (insert (prin1-to-string gnus-offline-drafts-queue-type))
- (insert ")\n")
- (insert "(setq gnus-offline-MTA-type '")
- (insert (prin1-to-string gnus-offline-MTA-type))
- (insert ")\n")
-
- ;; Offline setting for gnus-nntp-*
- (insert "(setq gnus-nntp-service nil)\n")
- (insert "(setq gnus-nntp-server nil)\n")
-
- ;; Write setting about hooks.
- (insert "(add-hook 'gnus-group-mode-hook 'gnus-offline-processed-by-timer t)\n")
- (insert "(add-hook 'gnus-group-mode-hook 'gnus-offline-error-check t)\n")
- (insert "(add-hook 'gnus-after-getting-new-news-hook 'gnus-offline-after-get-new-news)\n")
- (insert "(add-hook 'gnus-after-getting-news-hook 'gnus-offline-after-get-new-news)\n")
- (if (eq gnus-offline-news-fetch-method 'nnspool)
- (progn
- (insert "(add-hook 'after-getting-news-hook 'gnus-offline-nnspool-hangup-line)\n")
- (insert "(add-hook 'gnus-before-startup-hook (lambda () (setq nnmail-spool-file nil)))\n")))
- (insert "(add-hook 'message-send-hook 'gnus-offline-message-add-header)\n")
- (insert "(autoload 'gnus-offline-setup \"gnus-offline\")\n")
- (insert "(add-hook 'gnus-load-hook 'gnus-offline-setup)\n")
-
- (if (not (locate-library "mail-source"))
- (progn
- ;; Write setting about pop3-fma.
- (insert "(require 'pop3-fma)\n")
- (insert "(add-hook 'message-send-hook 'pop3-fma-message-add-header)\n")
- (insert "(setq pop3-fma-spool-file-alist '")
- (insert (prin1-to-string pop3-fma-spool-file-alist))
- (insert ")\n")
- (insert "(setq pop3-fma-movemail-type '")
- (insert (prin1-to-string pop3-fma-movemail-type))
- (insert ")\n")
- (if save-passwd
- (insert "(add-hook 'gnus-setup-news-hook \n (lambda ()\n (setq pop3-fma-save-password-information t)\n (add-to-list 'gnus-variable-list 'pop3-fma-password)))\n"))
- (if (eq pop3-fma-movemail-type 'exe)
- (progn
- (insert "(setq pop3-fma-movemail-arguments '")
- (insert (prin1-to-string pop3-fma-movemail-arguments))
- (insert ")\n"))))
;; Write stting about mail-source.el
- (insert "(setq gnus-offline-mail-source '")
- (insert (prin1-to-string gnus-offline-mail-source))
- (insert ")\n")
+ (insert "(setq gnus-offline-mail-source '"
+ (prin1-to-string mail-source) ")\n")
(insert "(setq nnmail-spool-file gnus-offline-mail-source)\n")
(insert "(require 'read-passwd)\n")
(insert "(setq mail-source-read-passwd 'read-pw-read-passwd)\n")
(insert "(add-hook 'gnus-setup-news-hook 'read-pw-set-mail-source-passwd-cache)\n")
(if save-passwd
- (insert "(add-hook 'gnus-setup-news-hook \n (lambda ()\n (add-to-list 'gnus-variable-list 'mail-source-password-cache)))\n"))
- )
- (write-region (point-min) (point-max) gnus-offline-setting-file)
+ (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"))
(autoload 'gnus-custom-mode "gnus-cus" nil t)
-(defun gnus-ofsetup-parameters ()
- "Return alist of gnus-offline configuration parameters."
+(defun gnus-ofsetup-find-parameters ()
+ "Return the each current value of gnus-offline parameters."
`((news-method
(choice :tag "News Method" :value ,gnus-offline-news-fetch-method
(const :tag "Gnus Agent" nnagent)
(const :tag "Don't auto-dial." nil)) "\
Program which does dial.")
- (dialup-prog-args
+ (dialup-program-arguments
(repeat :tag "Dialup Program Arguments"
:value ,gnus-offline-dialup-program-arguments
(string :tag "Argument"))"\
(const :tag "Don't auto-hangup." nil)) "\
Program which does hangup.")
- (hangup-prog-args
+ (hangup-program-arguments
(repeat :tag "Hangup Program Arguments"
:value ,gnus-offline-hangup-program-arguments
(string :tag "Argument")) "\
Interval time(minutes) to do online jobs.
If set to 0 , timer call is disabled.")
- (draft-type
+ (drafts-queue-type
(choice :tag "Drafts Queue Type" :value ,gnus-offline-drafts-queue-type
(const :tag "Gnus Draft for queuing." agent)
(const :tag "I prefer MIEE for queuing." miee)) "\
(mail-spool
(directory :tag "Mail Spool Directory for MIEE"
- :value ,(cond (gnus-offline-mail-spool-directory
- gnus-offline-mail-spool-directory)
- ((and (boundp 'sendmail-to-spool-directory)
+ :value ,(cond ((and (boundp 'sendmail-to-spool-directory)
sendmail-to-spool-directory)
sendmail-to-spool-directory)
- (t "~/"))))
+ (t "/usr/spool/mail.out"))))
(news-spool
(directory :tag "News Spool Directory for MIEE"
- :value ,(cond (gnus-offline-news-spool-directory
- gnus-offline-news-spool-directory)
- ((and (boundp 'news-spool-request-post-directory)
+ :value ,(cond ((and (boundp 'news-spool-request-post-directory)
news-spool-request-post-directory)
news-spool-request-post-directory)
- (t "~/"))))
+ (t "/usr/spool/news.out"))))
- (mta-type
+ (MTA-type
(choice :tag "MTA Type" :value ,gnus-offline-MTA-type
(const :tag "Use smtp.el" smtp)
(const :tag "Use sendmail" sendmail)) "\
Type of MTA used for sending mail.")
- (save-password
+ (save-passwd
(choice :tag "Save Password in Startup File"
:value ,(if (memq 'mail-source-password-cache gnus-variable-list)
t
(const :tag "OK, I'm sure it's safe." t)
(const :tag "No way, it's too dangerous!" nil)) "\
Whether you want your POP passwords written in .newsrc.eld or not.")
-
+
(mail-source
(sexp :tag "Mail Sources" :value ,gnus-offline-mail-source) "\
Information of mail sources. Actually, a list of `Mail Source Specifiers'.
(defun gnus-ofsetup-customize ()
"Edit the gnus-offline parameters."
(interactive)
- (let* ((params (gnus-ofsetup-parameters))
+ (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)))
- ;; Ready.
(kill-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
(switch-to-buffer (gnus-get-buffer-create "*Gnus Offline Customize*"))
(gnus-custom-mode)
:tag "Parameters"
:format "%t:\n%h%v"
:doc "\
-These paramerters will be saved in ~/.gnus-offline.el.
+These parameters will be saved in ~/.gnus-offline.el.
Note: Touching these parameters may require Gnus or even Emacs to be
restarted."
,@types)))
-
+
(widget-create 'info-link
:help-echo "Push me to learn more."
:tag "<Info> mail sources"
"Apply changes and bury the buffer."
(interactive)
(let ((params (widget-value gnus-ofsetup-params))
- (combi '((news-method . gnus-offline-news-fetch-method)
- (dialup-program . gnus-offline-dialup-program)
- (dialup-prog-args . gnus-offline-dialup-program-arguments)
- (hangup-program . gnus-offline-hangup-program)
- (hangup-prog-args . gnus-offline-hangup-program-arguments)
- (interval . gnus-offline-interval-time)
- (draft-type . gnus-offline-drafts-queue-type)
- (mail-spool . gnus-offline-mail-spool-directory)
- (news-spool . gnus-offline-news-spool-directory)
- (mta-type . gnus-offline-MTA-type)
- (mail-source . gnus-offline-mail-source)
- (save-password . save-passwd)))
+ (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)
(mapcar (lambda (el)
(let ((sym (car el))
(val (cdr el)))
- (set (cdr (assq sym combi)) val)
+ (set sym val)
(cond ((eq sym 'news-method)
(if (eq val 'nnspool)
- (setq gnus-offline-use-miee t)))
- ((eq sym 'draft-type)
- (setq gnus-offline-use-miee
+ (setq use-miee t)))
+ ((eq sym 'drafts-queue-type)
+ (setq use-miee
(if (eq val 'miee) t nil)))
- ((eq sym 'save-password)
+ ((eq sym 'save-passwd)
(if val
(add-to-list 'gnus-variable-list
'mail-source-password-cache)
(delq 'mail-source-password-cache
gnus-variable-list)))))))
params)
- (if (and (eq gnus-offline-news-fetch-method 'nnspool)
- (not (eq gnus-offline-drafts-queue-type 'miee)))
+ (if (and (eq news-method 'nnspool)
+ (not (eq drafts-queue-type 'miee)))
(error "Invalid parameters. Check the news method and drafts queue type."))
- (if gnus-offline-use-miee
+ (if use-miee
(gnus-ofsetup-prepare-for-miee))
- (gnus-ofsetup-write-setting-file)))
+ (gnus-ofsetup-update-setting-file)
+ (load gnus-offline-setting-file)))
(bury-buffer)
(switch-to-buffer gnus-group-buffer))
projects / elisp / gnus.git- / commitdiff