;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
;;;
-;;; $Id: gnus-ofsetup.el,v 1.1.2.18 1999-05-13 02:36:22 yamaoka Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.18.2.1 1999-07-20 15:01:20 czkmt Exp $
;;;
;;; Copyright (C) 1998 Tatsuya Ichikawa
;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
(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)
(setq gnus-offline-news-spool-directory news-spool)
(setq gnus-offline-drafts-queue-type 'miee)
- ;; Load MIEE.
- (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)))
+ (gnus-ofsetup-prepare-for-miee)))
;; Set drafts type gnus-agent.
(setq gnus-offline-drafts-queue-type 'agent))
(setq save-passwd
(y-or-n-p "Do you save password information to newsrc 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))
+ (gnus-ofsetup-write-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)
+ (progn
+ (insert "(setq gnus-offline-interval-time ")
+ (insert (prin1-to-string gnus-offline-interval-time))
+ (insert ")\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-use-miee ")
- (insert (prin1-to-string gnus-offline-use-miee))
+ (insert "(setq gnus-offline-news-spool-directory ")
+ (insert (prin1-to-string gnus-offline-news-spool-directory))
(insert ")\n")
- (insert "(setq gnus-offline-dialup-program ")
- (insert (prin1-to-string gnus-offline-dialup-program))
+ (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")
-
- ;; 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 "(setq pop3-fma-movemail-type '")
+ (insert (prin1-to-string pop3-fma-movemail-type))
(insert ")\n")
- (if (stringp gnus-offline-hangup-program)
+ (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 gnus-offline-hangup-program-arguments '")
- (insert (prin1-to-string gnus-offline-hangup-program-arguments))
- (insert ")\n")))
+ (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 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)
+ (kill-buffer "* Setting"))
- ;; 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")
+;;; Suppport for customizing gnus-ofsetup parameters.
- ;; 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")
+(autoload 'gnus-custom-mode "gnus-cus" nil t)
+
+(defun gnus-ofsetup-parameters ()
+ "Return alist of gnus-offline configuration parameters."
+ `((news-method
+ (choice :tag "News Method" :value ,gnus-offline-news-fetch-method
+ (const :tag "Gnus Agent" nnagent)
+ (const :tag "nnspool" nnspool)) "\
+Method to fetch news articles.")
+
+ (dialup-program
+ (choice :tag "Dialup Program" :value ,gnus-offline-dialup-program
+ (string :tag "Use Program..")
+ (const :tag "Don't auto-dial." nil)) "\
+Program which does dial.")
+
+ (dialup-prog-args
+ (repeat :tag "Dialup Program Arguments"
+ :value ,gnus-offline-dialup-program-arguments
+ (string :tag "Argument"))"\
+Program arguments of gnus-offline-dialup-program.")
+
+ (hangup-program
+ (choice :tag "Hangup Program" :value ,gnus-offline-hangup-program
+ (string :tag "Use Program..")
+ (const :tag "Don't auto-hangup." nil)) "\
+Program which does hangup.")
+
+ (hangup-prog-args
+ (repeat :tag "Hangup Program Arguments"
+ :value ,gnus-offline-hangup-program-arguments
+ (string :tag "Argument")) "\
+Program arguments of gnus-offline-hangup-program.")
+
+ (interval
+ (integer :tag "Interval between Jobs"
+ :value ,gnus-offline-interval-time) "\
+Interval time(minutes) to do online jobs.
+If set to 0 , timer call is disabled.")
+
+ (draft-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)) "\
+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}.")
+
+ (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)
+ sendmail-to-spool-directory)
+ sendmail-to-spool-directory)
+ (t "~/"))))
+
+ (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)
+ news-spool-request-post-directory)
+ news-spool-request-post-directory)
+ (t "~/"))))
+
+ (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
+ (choice :tag "Save Password in Startup File"
+ :value ,(if (memq 'mail-source-password-cache gnus-variable-list)
+ t
+ nil)
+ (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'.
+
+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.")))
+
+(defun gnus-ofsetup-customize ()
+ "Edit the gnus-offline parameters."
+ (interactive)
+ (let* ((params (gnus-ofsetup-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)
+ (widget-insert "Customize the Gnus Offline Parameters, and press ")
+ (widget-create 'push-button
+ :tag "done"
+ :help-echo "Push me when done customizing."
+ :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 "Parameters"
+ :format "%t:\n%h%v"
+ :doc "\
+These paramerters 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"
+ "(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))
+ (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)))
+ (save-passwd (and (memq 'mail-source-password-cache gnus-variable-list)
+ t)))
+ (if (null params)
+ (gnus-message 4 "(No changes need to be saved)")
+ (mapcar (lambda (el)
+ (let ((sym (car el))
+ (val (cdr el)))
+ (set (cdr (assq sym combi)) 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
+ (if (eq val 'miee) t nil)))
+ ((eq sym 'save-password)
+ (if val
+ (add-to-list 'gnus-variable-list
+ 'mail-source-password-cache)
+ (setq gnus-variable-list
+ (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)))
+ (error "Invalid parameters. Check the news method and drafts queue type."))
+ (if gnus-offline-use-miee
+ (gnus-ofsetup-prepare-for-miee))
+ (gnus-ofsetup-write-setting-file)))
+ (bury-buffer)
+ (switch-to-buffer gnus-group-buffer))
- (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 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)
- (kill-buffer "* Setting"))
- )
- (load gnus-offline-setting-file))
;; gnus-ofsetup.el Ends here.
projects / elisp / gnus.git- / commitdiff