X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-ofsetup.el;h=4125f8a40beef5d937b017bfb3cd3829a06bc63b;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=a10a275e3c2f4e6bde413421e352bfa7de0f26d6;hpb=2cc5659442ce551b395b9aeebe213947e415ac6d;p=elisp%2Fgnus.git- diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index a10a275..4125f8a 100644 --- a/lisp/gnus-ofsetup.el +++ b/lisp/gnus-ofsetup.el @@ -1,6 +1,6 @@ ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News. -;; Copyright (C) 1998 Tatsuya Ichikawa +;; Copyright (C) 1998, 2001 Tatsuya Ichikawa ;; Author: Tatsuya Ichikawa ;; Tsukamoto Tetsuo @@ -34,7 +34,6 @@ ;;; Code: (eval-when-compile (require 'cl)) -(eval-when-compile (require 'gnus-clfns)) (require 'read-passwd) @@ -146,7 +145,7 @@ "(add-hook" "'gnus-before-startup-hook" "(lambda () (setq nnmail-spool-file nil) - (setq mail-sources nil)))"))) + (setq mail-sources nil)))"))) ;; Write stting about mail-source.el (insert "(setq gnus-offline-mail-source '" @@ -252,7 +251,7 @@ 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\") + (pop :program \"movemail -pf po:%u %t %p\") If you want to know more about mail source specifiers and keywords, click the button below.") @@ -335,7 +334,7 @@ POP パスワードを .newsrc.eld に保存するか否かを指定します。") (movemail など) を使いたい、という場合には、:program をいうキーワー ドを指定して以下の様に記述します。 - (pop :program \"movemail -pf po:%u %t %p\") + (pop :program \"movemail -pf po:%u %t %p\") mail source specifier とか上記のようなキーワードについてもっとよく 知りたい場合は、以下のボタンをクリックしてください。(Info の該当箇所 @@ -526,17 +525,13 @@ mail source specifier とか上記のようなキーワードについてもっとよく (format "<%d of %d> %s" j n (gnus-ofsetup-gettext 'setup-21))))) ;; Now set a mail source specifier. - (setq source `(,type)) - (mapc - #'(lambda (sym) - (when (symbol-value sym) - (setq source - (nconc source - (list - (make-symbol - (format ":%s" sym)) - (symbol-value sym)))))) - '(path user server authentication stream program)) + (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 @@ -634,7 +629,7 @@ mail source specifier とか上記のようなキーワードについてもっとよく (choice :tag ,(gnus-ofsetup-gettext 'param-save-passwd-1) :value ,(if (memq 'mail-source-password-cache gnus-variable-list) t - nil) + 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)) @@ -656,36 +651,36 @@ mail source specifier とか上記のようなキーワードについてもっとよく (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 + (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 " 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)))) + (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 " 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." @@ -715,24 +710,23 @@ mail source specifier とか上記のようなキーワードについてもっとよく t))) (if (null params) (gnus-message 4 (gnus-ofsetup-gettext 'customize-done-1)) - (mapc #'(lambda (el) - (let ((sym (car el)) - (val (cdr el))) - (set sym val) - (cond ((eq sym 'news-method) - (if (eq val 'nnspool) - (setq use-miee t))) - ((eq sym 'drafts-queue-type) - (setq use-miee - (if (eq val 'miee) t nil))) - ((eq sym 'save-passwd) - (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) + (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)))