X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl.el;h=d97f640e9fc1f47f9f633553c15079d50c6a3699;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=5b6cb9d03f0e6fd51ddf645d23050feed2aaa5db;hpb=a926b5408e53558d49f1c5bde3d1c109f5fde59e;p=elisp%2Fwanderlust.git diff --git a/wl/wl.el b/wl/wl.el index 5b6cb9d..d97f640 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -1,4 +1,4 @@ -;;; wl.el -- Wanderlust bootstrap. +;;; wl.el --- Wanderlust bootstrap. ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi ;; Copyright (C) 1998,1999,2000 Masahiro MURATA @@ -36,7 +36,7 @@ ;; from x-face.el (unless (and (fboundp 'defgroup) - (fboundp 'defcustom)) + (fboundp 'defcustom)) (require 'backquote) (defmacro defgroup (&rest args)) (defmacro defcustom (symbol value &optional doc &rest args) @@ -50,8 +50,6 @@ (require 'wl-xmas)) (wl-on-emacs21 (require 'wl-e21)) - (wl-on-nemacs - (require 'wl-nemacs)) (t (require 'wl-mule))) @@ -72,11 +70,8 @@ (require 'cl) (require 'smtp) (require 'wl-score) - (unless wl-on-nemacs - (require 'wl-fldmgr)) - (if wl-use-semi - (require 'wl-mime) - (require 'tm-wl))) + (require 'wl-fldmgr) + (require 'wl-mime)) (defun wl-plugged-init (&optional make-alist) (setq elmo-plugged wl-plugged) @@ -99,7 +94,7 @@ (setq wl-plugged t)) ((eq arg 'off) (setq wl-plugged nil)) - (t (setq wl-plugged (null wl-plugged)))) + (t (setq wl-plugged (not wl-plugged)))) (elmo-set-plugged wl-plugged)) (setq elmo-plugged wl-plugged wl-modeline-plug-status wl-plugged) @@ -169,10 +164,8 @@ (if wl-on-xemacs (defun wl-plugged-setup-mouse () (define-key wl-plugged-mode-map 'button2 'wl-plugged-click)) - (if wl-on-nemacs - (defun wl-plugged-setup-mouse ()) - (defun wl-plugged-setup-mouse () - (define-key wl-plugged-mode-map [mouse-2] 'wl-plugged-click))))) + (defun wl-plugged-setup-mouse () + (define-key wl-plugged-mode-map [mouse-2] 'wl-plugged-click)))) (unless wl-plugged-mode-map (setq wl-plugged-mode-map (make-sparse-keymap)) @@ -281,10 +274,10 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (setq last (elmo-dop-queue-fname (car dop-queue)))) ;; first (while dop-queue (when (car dop-queue) - (setq ope (cons (elmo-dop-queue-method (car dop-queue)) - (length + (setq ope (cons (elmo-dop-queue-method-name (car dop-queue)) + (length (if (listp - (car + (car (elmo-dop-queue-arguments (car dop-queue)))) (car (elmo-dop-queue-arguments (car dop-queue)))))))) @@ -487,7 +480,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (save-excursion (beginning-of-line) (cond - ;; swtich variable + ;; switch variable ((bobp) (let (variable switch name) (goto-char cur-point) @@ -506,7 +499,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (delete-region (match-beginning 2) (match-end 2)) (insert (wl-plugged-string switch)) (set-buffer-modified-p nil))))) - ;; swtich plug + ;; switch plug ((looking-at "^\\( *\\)\\[\\([^]]+\\)\\]\\([^ \n]*\\)") (let* ((indent (length (elmo-match-buffer 1))) (switch (elmo-match-buffer 2)) @@ -648,8 +641,9 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (defun wl-exit () (interactive) (when (or (not wl-interactive-exit) - (y-or-n-p "Quit Wanderlust? ")) + (y-or-n-p "Do you really want to quit Wanderlust? ")) (elmo-quit) + (when wl-use-acap (funcall (symbol-function 'wl-acap-exit))) (wl-biff-stop) (run-hooks 'wl-exit-hook) (wl-save-status) @@ -665,28 +659,20 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (> (length (visible-frame-list)) 1)) (delete-frame)) (setq wl-init nil) - (unless wl-on-nemacs - (remove-hook 'kill-emacs-hook 'wl-save-status)) + (remove-hook 'kill-emacs-hook 'wl-save-status) t) (message "") ; empty minibuffer. ) (defun wl-init () (when (not wl-init) - (unless (featurep 'mime-setup) - (require 'mime-setup)) + (require 'mime-setup) (setq elmo-plugged wl-plugged) - (unless wl-on-nemacs - (add-hook 'kill-emacs-hook 'wl-save-status)) + (add-hook 'kill-emacs-hook 'wl-save-status) (wl-address-init) (wl-draft-setup) (wl-refile-alist-setup) - (if wl-use-semi - (progn - (require 'wl-mime) - (setq elmo-use-semi t)) - (require 'tm-wl) - (setq elmo-use-semi nil)) + (require 'wl-mime) ;; defined above. (wl-mime-setup) (fset 'wl-summary-from-func-internal @@ -704,8 +690,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (run-hooks 'wl-init-hook))) (defun wl-check-environment (no-check-folder) - (unless wl-from - (error "Please set `wl-from'")) + (unless wl-from (error "Please set `wl-from'")) ;; Message-ID (unless (string-match "[^.]\\.[^.]" (or wl-message-id-domain (if wl-local-domain @@ -755,11 +740,11 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (unless (elmo-folder-exists-p lost+found-folder) (elmo-folder-create lost+found-folder))) ;; tmp dir - (unless (file-exists-p wl-tmp-dir) + (unless (file-exists-p wl-temporary-file-directory) (if (y-or-n-p (format "Temp directory (to save multipart) %s does not exist, create it now? " - wl-tmp-dir)) - (make-directory wl-tmp-dir) + wl-temporary-file-directory)) + (make-directory wl-temporary-file-directory) (error "Temp directory is not created")))))) ;;;###autoload @@ -768,28 +753,31 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." If ARG (prefix argument) is specified, folder checkings are skipped." (interactive "P") (unless wl-init - (wl-load-profile)) - (elmo-init) - (let (demo-buf) + (wl-load-profile) + (wl-folder-init) + (elmo-init)) + (let (demo-buf check) (unless wl-init (if wl-demo (setq demo-buf (wl-demo))) - (condition-case nil - (progn - (message "Checking environment...") - (wl-check-environment arg) - (message "Checking environment...done")) - (error) - (quit))) + (setq check t)) (wl-init) (condition-case obj (progn + (if check + (condition-case nil + (progn + (message "Checking environment...") + (wl-check-environment arg) + (message "Checking environment...done")) + (error) + (quit))) (wl-plugged-init (wl-folder arg)) (unless arg (run-hooks 'wl-auto-check-folder-pre-hook) (wl-folder-auto-check) (run-hooks 'wl-auto-check-folder-hook)) (unless arg (wl-biff-start))) - (error + (error (if (buffer-live-p demo-buf) (kill-buffer demo-buf)) (signal (car obj)(cdr obj))) @@ -827,6 +815,8 @@ If ARG (prefix argument) is specified, folder checkings are skipped." wl-fldmgr-save-folders wl-fldmgr-set-petname wl-fldmgr-sort wl-fldmgr-subscribe wl-fldmgr-subscribe-region wl-fldmgr-unsubscribe wl-fldmgr-unsubscribe-region wl-fldmgr-yank ) + ("wl-acap" wl-acap-init) + ("wl-acap" :interactive t wl-acap-store) ("wl-fldmgr" (wl-fldmgr-mode-map keymap) wl-fldmgr-add-entity-hashtb)