From: kaoru Date: Sun, 26 Nov 2000 23:08:04 +0000 (+0000) Subject: Checkdoc. X-Git-Tag: wl-2_6-root~160 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dfe0b969cb22378366c6d5b1392fbf6ace8d6199;p=elisp%2Fwanderlust.git Checkdoc. --- diff --git a/wl/wl.el b/wl/wl.el index 23e5de5..e5b3926 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -626,7 +626,7 @@ 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 "Quit Wanderlust? ")) (elmo-quit) (wl-biff-stop) (run-hooks 'wl-exit-hook) @@ -701,6 +701,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (require 'mime-setup)) (unless wl-from (error "Please set `wl-from'")) + ;; Message-ID (unless (string-match "[^.]\\.[^.]" (or wl-message-id-domain (if wl-local-domain (concat (system-name) @@ -714,37 +715,39 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (system-name)))) (error "Please remove `@' from `wl-message-id-domain'")) (if (string= wl-local-domain "localdomain") - (error "Please set `wl-local-domain'.")) + (error "Please set `wl-local-domain'")) (if (string= wl-message-id-domain "localhost.localdomain") - (error "Please set `wl-message-id-domain'.")) + (error "Please set `wl-message-id-domain'")) + ;; folders (when (not no-check-folder) (if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir)) (error "%s is not allowed for draft folder" wl-draft-folder)) (unless (elmo-folder-exists-p wl-draft-folder) (if (y-or-n-p - (format "Draft Folder %s does not exist, create it?" + (format "Draft Folder %s does not exist, create it? " wl-draft-folder)) (elmo-create-folder wl-draft-folder) (error "Draft Folder is not created"))) (if (and wl-draft-enable-queuing (not (elmo-folder-exists-p wl-queue-folder))) (if (y-or-n-p - (format "Queue Folder %s does not exist, create it?" + (format "Queue Folder %s does not exist, create it? " wl-queue-folder)) (elmo-create-folder wl-queue-folder) (error "Queue Folder is not created")))) (when (not (eq no-check-folder 'wl-draft)) (unless (elmo-folder-exists-p wl-trash-folder) (if (y-or-n-p - (format "Trash Folder %s does not exist, create it?" + (format "Trash Folder %s does not exist, create it? " wl-trash-folder)) (elmo-create-folder wl-trash-folder) (error "Trash Folder is not created"))) (unless (elmo-folder-exists-p elmo-lost+found-folder) (elmo-create-folder elmo-lost+found-folder))) + ;; tmp dir (unless (file-exists-p wl-tmp-dir) (if (y-or-n-p - (format "Temp directory (to save multipart) %s does not exist, create it now?" + (format "Temp directory (to save multipart) %s does not exist, create it now? " wl-tmp-dir)) (make-directory wl-tmp-dir) (error "Temp directory is not created")))) @@ -752,7 +755,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." ;;;###autoload (defun wl (&optional arg) "Start Wanderlust -- Yet Another Message Interface On Emacsen. -If prefix argument is specified, folder checkings are skipped." +If ARG (prefix argument) is specified, folder checkings are skipped." (interactive "P") (or wl-init (wl-load-profile)) (unwind-protect @@ -760,7 +763,7 @@ If prefix argument is specified, folder checkings are skipped." (wl-plugged-init (wl-folder arg)) (sit-for 0)) (unwind-protect - (unless arg + (unless arg (run-hooks 'wl-auto-check-folder-pre-hook) (wl-folder-auto-check) (run-hooks 'wl-auto-check-folder-hook))