From e21542e19d7b0a2c9d34bcc312997c098a2b58ba Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 14 Jan 2003 20:06:12 +0000 Subject: [PATCH] Checkdoc. --- elmo/elmo-archive.el | 4 ++-- elmo/elmo-dop.el | 8 ++++---- wl/wl-acap.el | 10 +++++----- wl/wl-draft.el | 17 ++++++++--------- wl/wl-folder.el | 10 +++++----- wl/wl.el | 8 ++++---- 6 files changed, 28 insertions(+), 29 deletions(-) diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index 5d86809..341428b 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -309,7 +309,7 @@ TYPE specifies the archiver's symbol." (not (eobp))) ; for GNU tar 981010 (setq file-list (nconc file-list (list (string-to-int (match-string 1))))))) - (error "%s does not exist." file)) + (error "%s does not exist" file)) (if nonsort (cons (or (elmo-max-of-list file-list) 0) (if killed @@ -522,7 +522,7 @@ TYPE specifies the archiver's symbol." (elmo-mapcar-list-of-list (function (lambda (x) (if (file-exists-p - (expand-file-name + (expand-file-name (concat elmo-archive-basename (elmo-archive-get-suffix (elmo-archive-folder-archive-type-internal diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 2ea9ebd..666e91f 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -88,12 +88,12 @@ Automatically loaded/saved.") (unless (or (null elmo-dop-queue) (vectorp (car elmo-dop-queue))) (if (y-or-n-p "\ -Saved queue is old version(2.6). Clear all pending operations? ") +Saved queue is old version(2.6). Clear all pending operations? ") (progn (setq elmo-dop-queue nil) (message "All pending operations are cleared.") (elmo-dop-queue-save)) - (error "Please use 2.6 or earlier."))) + (error "Please use 2.6 or earlier"))) (elmo-dop-queue-merge) (let ((queue-all elmo-dop-queue) queue @@ -131,7 +131,7 @@ Saved queue is old version(2.6). Clear all pending operations? ") (elmo-dop-queue-fname (car queue)))) (elmo-folder-open folder) (unless (elmo-folder-plugged-p folder) - (error "Unplugged."))) + (error "Unplugged"))) (elmo-dop-queue-arguments (car queue))) (elmo-folder-close folder)) (quit (setq failure t)) @@ -165,7 +165,7 @@ Saved queue is old version(2.6). Clear all pending operations? ") (memq (elmo-dop-queue-method que) elmo-dop-queue-merge-method-list) (setq match-queue - (car (delete + (car (delete nil (mapcar (lambda (nqueue) diff --git a/wl/wl-acap.el b/wl/wl-acap.el index c72a3d9..8ecd7c2 100644 --- a/wl/wl-acap.el +++ b/wl/wl-acap.el @@ -116,7 +116,7 @@ If nil, default acap port is used." proc entries settings folder-top type caches msgdb-dir) (if (null (car service)) (if (setq caches - (delq + (delq nil (mapcar (lambda (dirent) @@ -133,7 +133,7 @@ If nil, default acap port is used." (expand-file-name "acap" elmo-msgdb-directory))))))) - (if (y-or-n-p "No ACAP service found. Try cache? ") + (if (y-or-n-p "No ACAP service found. Try cache? ") (let (selected rpath alist) (setq alist (mapcar @@ -149,8 +149,8 @@ If nil, default acap port is used." alist)) msgdb-dir (file-name-directory selected) entries (elmo-object-load selected))) - (error "No ACAP service found.")) - (error "No ACAP service found.")) + (error "No ACAP service found")) + (error "No ACAP service found")) (setq proc (acap-open (car service) wl-acap-user (upcase (symbol-name @@ -162,7 +162,7 @@ If nil, default acap port is used." "/~/") '((RETURN ("*")))))) (when entries - (elmo-object-save + (elmo-object-save (expand-file-name (concat "acap/" (car service) "/" wl-acap-user "/" wl-acap-cache-filename) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 164b509..c62b622 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -308,7 +308,7 @@ e.g. (mail-position-on-field "To")) (defun wl-draft-strip-subject-re (subject) - "Remove \"Re:\" from subject lines. Shamelessly copied from Gnus." + "Remove \"Re:\" from SUBJECT string. Shamelessly copied from Gnus." (if (string-match wl-subject-prefix-regexp subject) (substring subject (match-end 0)) subject)) @@ -719,7 +719,7 @@ Reply to author if WITH-ARG is non-nil." (insert cite-title "\n")) (mail-indent-citation))) -(defvar wl-draft-buffer nil "Draft buffer to yank content") +(defvar wl-draft-buffer nil "Draft buffer to yank content.") (defun wl-draft-yank-to-draft-buffer (buffer) "Yank BUFFER content to `wl-draft-buffer'." (set-buffer wl-draft-buffer) @@ -771,7 +771,7 @@ Reply to author if WITH-ARG is non-nil." (switch-to-buffer sum-buf)))))))) (defun wl-draft-delete (editing-buffer) - "kill the editing draft buffer and delete the file corresponds to it." + "Kill the editing draft buffer and delete the file corresponds to it." (save-excursion (when editing-buffer (set-buffer editing-buffer) @@ -1336,7 +1336,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (kill-buffer sending-buffer)))))) (defun wl-draft-mime-bcc-field () - "Return the MIME-Bcc field body. The field is deleted." + "Return the MIME-Bcc field body. The field is deleted." (prog1 (std11-field-body wl-draft-mime-bcc-field-name) (wl-draft-delete-field wl-draft-mime-bcc-field-name))) @@ -1707,10 +1707,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" ;; insert symbol-value: string (symbol . nil) ;; do nothing nil ;; do nothing - ) -" + )" (unless (eq major-mode 'wl-draft-mode) - (error "wl-draft-create-header must be use in wl-draft-mode.")) + (error "`wl-draft-create-header' must be use in wl-draft-mode")) (let ((halist header-alist) field value) (while halist @@ -1745,7 +1744,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (defun wl-draft-prepare-edit () (unless (eq major-mode 'wl-draft-mode) - (error "wl-draft-create-header must be use in wl-draft-mode.")) + (error "`wl-draft-create-header' must be use in wl-draft-mode")) (let (change-major-mode-hook) (wl-draft-editor-mode) (when wl-draft-write-file-function @@ -1875,7 +1874,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (cdar condition)) (setq condition (cdr condition))))) (unless elmo-nntp-default-function - (error "wl-draft-nntp-send: posting-function is nil.")) + (error "wl-draft-nntp-send: posting-function is nil")) (if (not (elmo-plugged-p elmo-nntp-default-server elmo-nntp-default-port)) (wl-draft-set-sent-message 'news 'unplugged (cons elmo-nntp-default-server diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 73adcec..262db0d 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -332,7 +332,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'." (or (, hashtb) wl-folder-elmo-folder-hashtb)))) (defmacro wl-folder-get-elmo-folder (entity &optional no-cache) - "Get elmo folder structure from entity." + "Get elmo folder structure from ENTITY." (` (if (, no-cache) (elmo-make-folder (elmo-string (, entity))) (or (wl-folder-elmo-folder-cache-get (, entity)) @@ -350,7 +350,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'." (forward-line 1)) (defun wl-folder-prev-entity-skip-invalid (&optional hereto) - "move to previous entity. skip unsubscribed or removed entity." + "Move to previous entity. skip unsubscribed or removed entity." (interactive) (if hereto (end-of-line)) @@ -2076,7 +2076,7 @@ If FOLDER is multi, return comma separated string (cross post)." nil))) (defun wl-folder-guess-mailing-list-by-refile-rule (entity) - "Return ML address guess by FOLDER. + "Return ML address guess by ENTITY. Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'." (let ((flist (elmo-folder-get-primitive-list @@ -2114,7 +2114,7 @@ Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'." (elmo-string-matched-member tokey wl-subscribed-mailing-list t))))) (defun wl-folder-guess-mailing-list-by-folder-name (entity) - "Return ML address guess by FOLDER name's last hierarchy. + "Return ML address guess by ENTITY name's last hierarchy. Use `wl-subscribed-mailing-list'." (let ((flist (elmo-folder-get-primitive-list @@ -2713,7 +2713,7 @@ Use `wl-subscribed-mailing-list'." folder)))) ;; Sticky folder exists. (wl-summary-sticky-buffer-name - (elmo-folder-name-internal folder)) + (elmo-folder-name-internal folder)) (concat wl-summary-buffer-name (symbol-name this-command)))) diff --git a/wl/wl.el b/wl/wl.el index ea1807b..c4ca68d 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -705,7 +705,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' to your mail address.")) + (unless wl-from (error "Please set `wl-from' to your mail address")) ;; Message-ID (when wl-insert-message-id (let ((message-id (funcall wl-message-id-function)) @@ -713,10 +713,10 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (unless (string-match "^<\\([^@]*\\)@\\([^@]*\\)>$" message-id) (cond ((string-match "@" wl-message-id-domain) - (error "Please remove `@' from `wl-message-id-domain'.")) + (error "Please remove `@' from `wl-message-id-domain'")) (t (error - "Check around `wl-message-id-function' to get valid Message-ID string.")))) + "Check around `wl-message-id-function' to get valid Message-ID string")))) (setq domain (match-string 2 message-id)) (if (or (not (string-match "[^.]\\.[^.]" domain)) (string= domain "localhost.localdomain")) @@ -778,7 +778,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (defun wl-check-variables-2 () (if (< wl-message-buffer-cache-size 1) - (error "`wl-message-buffer-cache-size' must be larger than 0.")) + (error "`wl-message-buffer-cache-size' must be larger than 0")) (when wl-message-buffer-prefetch-depth (if (not (< wl-message-buffer-prefetch-depth wl-message-buffer-cache-size)) -- 1.7.10.4