[mew-dist 25944] Re: Style of `Operating...done'
Tatsuya Kinoshita
tats at example.com
2005年 1月 13日 (木) 16:47:33 JST
On August 30, 2001, [mew-dist 18612],
kazu (at iijlab.net) wrote:
> minibuffer に表示されるメッセージやエラーのメッセージでは、
>
> * 大文字で始める (変数名とかが最初に来なければ)
> * 最後に "." は付けない。(複数文の場合は、最後の文には "." を付けない)
> * can't などの短縮形は使わない
>
> ように昨日統一しました。まだおかしなところがあるかと思います。見つけた
> ら教えて下さい。
最新版を見直して、修正してみました。
--
木下達也
-------------- next part --------------
--- mew/contrib/mew-browse.el
+++ mew.tmp/contrib/mew-browse.el
@@ -90,8 +90,8 @@
(defvar mew-browse-noask t "*Ask or not when browse.")
(defvar mew-browse-append-file nil "*URL collection file.")
-(defvar mew-browse-append-always-file nil "*For dialup user")
-(defvar mew-browse-append-always-mailto nil "*For emacs19.28")
+(defvar mew-browse-append-always-file nil "*For dialup user.")
+(defvar mew-browse-append-always-mailto nil "*For emacs19.28.")
(defvar mew-browse-append-file-sort nil "*Sort URL file.")
(defun mew-browse-url (url &optional args)
@@ -159,11 +159,11 @@
(sort-lines nil (point-min) (point-max)))
(write-file file)
(kill-buffer (current-buffer))
- (message "Append %s to %s done." url file)
+ (message "Append %s to %s done" url file)
)))
(defun mew-browse-url-start (url)
- (message "Browse %s." url)
+ (message "Browse %s" url)
(cond
((string-match "^mailto:" url)
(mew-browse-url-mailto url))
--- mew/contrib/mew-caesar.el
+++ mew.tmp/contrib/mew-caesar.el
@@ -50,7 +50,7 @@
(mew-caesar-ext-prog
'ext)
(t
- (message "mew-caesar: program is not found.")
+ (message "mew-caesar: program is not found")
nil))
"mew-caesar function select.
Usually auto selected, which
@@ -122,7 +122,7 @@
"Open a new Caesar encrypt file into a buffer on \".\" in attachments."
(interactive)
(if (not (mew-attach-not-line012-1))
- (message "Can't find a new file here.")
+ (message "Cannot find a new file here")
(let* ((nums (mew-syntax-nums))
(subdir (mew-attach-expand-path mew-encode-syntax nums))
(attachdir (mew-attachdir))
@@ -133,7 +133,7 @@
;; attachdir / file
(setq filepath (mew-random-filename attachdir 1 nil mew-caesar-rot13-suffix))
(if (null filepath)
- (message "Could not make a text file, sorry.")
+ (message "Could not make a text file, sorry")
(setq file (file-name-nondirectory filepath))
(setq mew-encode-syntax
(mew-syntax-insert-entry
@@ -203,7 +203,7 @@
t t nil
mew-caesar-ext-prog-arg))))
(t
- (message "mew-caesar: program is not found.")))
+ (message "mew-caesar: program is not found")))
))
(provide 'mew-caesar)
--- mew/contrib/mew-nmz-fixer.el
+++ mew.tmp/contrib/mew-nmz-fixer.el
@@ -64,13 +64,13 @@
(progn
(setq mew-nmz-fixer-process nil)
(and interactive-p
- (message "Set %s to free." mew-nmz-prog-fixer)))
+ (message "Set %s to free" mew-nmz-prog-fixer)))
(if (not (and fld fixer))
(and interactive-p
- (message "Can not exec %s." mew-nmz-prog-fixer))
+ (message "Cannot exec %s" mew-nmz-prog-fixer))
(setq nmzdir (mew-nmz-expand-folder fld))
(if mew-nmz-fixer-process
- (message "Another fixer running.")
+ (message "Another fixer running")
(if (and
nmzdir
(file-exists-p nmzdir)
@@ -91,7 +91,7 @@
(list (mew-expand-folder fld) nmzdir))))
(set-process-sentinel mew-nmz-fixer-process 'mew-nmz-fixer-sentinel))
(and interactive-p
- (message "Can not exec %s at %s." mew-nmz-prog-fixer nmzdir)))))))))
+ (message "Cannot exec %s at %s" mew-nmz-prog-fixer nmzdir)))))))))
(defun mew-nmz-fixer-sentinel (process event)
(save-excursion
--- mew/mew-attach.el
+++ mew.tmp/mew-attach.el
@@ -756,7 +756,7 @@
(mew-attach-next)
(cond
((file-directory-p from)
- (message "Directory cannot be attached."))
+ (message "Directory cannot be attached"))
((or (eq action 'copy)
(eq action 'private)
(eq action 'move))
@@ -764,7 +764,7 @@
((eq action 'link)
(mew-attach-link from to))
(t
- (message "Nothing happened."))))))
+ (message "Nothing happened"))))))
(defun mew-draft-dnd-handle-file (uri action)
(let ((local-file (x-dnd-get-local-file-uri uri)))
--- mew/mew-imap.el
+++ mew.tmp/mew-imap.el
@@ -1394,7 +1394,7 @@
(when leftp
(mew-imap-message
pnm
- "%d message retrieved. %d messages are left due to an error."
+ "%d message retrieved. %d messages are left due to an error"
(- rttl lefts) lefts)
(mew-summary-folder-cache-save))))
(cond
--- mew/mew-nmz.el
+++ mew.tmp/mew-nmz.el
@@ -243,7 +243,7 @@
(t
(setq fld (mew-summary-folder-name))))
(if (not fld)
- (message "Nothing to do.")
+ (message "Nothing to do")
(let ((bufs (delq (current-buffer) (buffer-list))) ;; remove current folder
buf)
(save-excursion
@@ -255,11 +255,11 @@
(member fld (mew-vinfo-get-flds)))
(throw 'detect (buffer-name buf)))))))
(if (not fld)
- (message "Nothing to do.")
+ (message "Nothing to do")
(mew-summary-switch-to-folder fld)
(when (mew-sinfo-get-disp-msg)
(mew-summary-display 'redisplay))
- (message "Move to %s." fld)))))))
+ (message "Move to %s" fld)))))))
(defsubst mew-nmz-expand-folder (case:folder)
"Convert case:folder to the directory name of namazu's index."
@@ -313,22 +313,22 @@
(mew-input-folder (mew-sinfo-get-case) (mew-sinfo-get-folder)))))
(cond
((not (mew-which-exec mew-nmz-prog-mknmz))
- (message "Please install mknmz."))
+ (message "Please install mknmz"))
((or (mew-folder-virtualp fld) (mew-nmz-skip-folder-p fld))
- (and msgenb (message "Can't make namazu index in %s." fld))
+ (and msgenb (message "Cannot make namazu index in %s" fld))
(setq continue t))
((or (get-process procname) (get-process procname2))
- (and msgenb (message "Detect running mknmz/gcnmz process in %s." fld))
+ (and msgenb (message "Detect running mknmz/gcnmz process in %s" fld))
(setq continue t))
((mew-nmz-have-no-msgs flddir)
- (and msgenb (message "%s has no message." fld))
+ (and msgenb (message "%s has no message" fld))
(mew-nmz-index-delete nmzdir)
(setq continue t))
((and (not remove) (not force) (mew-nmz-index-new-p fld))
- (and msgenb (message "%s has a newer namazu index." fld))
+ (and msgenb (message "%s has a newer namazu index" fld))
(setq continue t))
((and (not remove) (file-exists-p (expand-file-name "NMZ.lock2" nmzdir)))
- (message "Something error in %s's index." fld)
+ (message "Something error in %s's index" fld)
(setq continue t))
((and flddir nmzdir (file-directory-p flddir))
(setq args (delq nil
@@ -380,7 +380,7 @@
(if mew-nmz-mknmz-all-folders
(mew-nmz-mknmz (car mew-nmz-mknmz-all-folders) 'all)
(ding)
- (message "All mknmz done.")))
+ (message "All mknmz done")))
(defun mew-nmz-mknmz-sentinel (process event)
(save-excursion
@@ -457,7 +457,7 @@
(setq mode-line-buffer-identification mew-nmz-gcnmz-line-id)
(set-buffer-modified-p nil)))))
(when (interactive-p)
- (message "gcnmz can't run on %s." fld))))
+ (message "gcnmz cannot run on %s" fld))))
(defun mew-nmz-gcnmz-sentinel (process event)
(when (buffer-name (process-buffer process))
@@ -514,8 +514,8 @@
(setq mew-nmz-mknmz-all-folders nil)
(when (interactive-p)
(if kill
- (message "All process of mknmz killed.")
- (message "No process of mknmz.")))))
+ (message "All process of mknmz killed")
+ (message "No process of mknmz")))))
(defun mew-nmz-mknmz-get-all-folders ()
(let ((protos (delq mew-folder-virtual (copy-sequence mew-folder-prefixes)))
@@ -631,7 +631,7 @@
(umsgs 0)
msgnums)
(if (not (file-exists-p ufname))
- (message "%s has no index file." (buffer-name))
+ (message "%s has no index file" (buffer-name))
(with-temp-buffer
(message "checking %s..." (file-name-nondirectory ufname))
(insert-file-contents ufname)
@@ -651,13 +651,13 @@
(forward-line))
(cond
((= umsgs 1)
- (message "%d message doesn't have index, %d marked."
+ (message "%d message does not have index, %d marked"
umsgs mmsgs))
((> umsgs 1)
- (message "%d messages don't have index, %d marked."
+ (message "%d messages do not have index, %d marked"
umsgs mmsgs))
(t
- (message "all messages have index.")))))))))
+ (message "all messages have index")))))))))
;;
;; "search Message-ID" functions.
@@ -682,7 +682,7 @@
(if mid
(setq pid (list mid) idh nil)
(if (not (or msg (mew-syntax-number)))
- (message "No message here.")
+ (message "No message here")
(save-excursion
(mew-nmz-setup)
(mew-summary-display nil)
@@ -718,7 +718,7 @@
refilefld))))))
(when killbuff (mew-kill-buffer mess))
(if (null pid)
- (message "No required header.")
+ (message "No required header")
(if (mew-syntax-number)
(while (not (mew-summary-message-number))
(forward-line -1)))
@@ -772,7 +772,7 @@
(if (not child) (setq range (nreverse range)))
))))
(if (null range)
- (message "No message found.")
+ (message "No message found")
(when (mew-virtual-p)
(save-excursion
(goto-char (point-min))
@@ -801,7 +801,7 @@
(re-search-forward ">" (save-excursion (end-of-line) (point)) t)
(setq end (point)))
(mew-nmz-search-msgid (buffer-substring start end))
- (message "No Message-ID."))))
+ (message "No Message-ID"))))
(defun mew-nmz-search-msgid-region (start end)
(interactive "r")
@@ -815,7 +815,7 @@
(when (eq major-mode 'mew-message-mode)
(mew-message-goto-summary))
(mew-nmz-search-parent nil pattern))
- (message "No Message-ID.")))
+ (message "No Message-ID")))
;;
;; "Search" functions.
@@ -829,9 +829,9 @@
pattern msgs msgsback threadmsgs total linenum msgtotal)
(cond
((eq (point-min) (point-max))
- (message "No messages in this buffer."))
+ (message "No messages in this buffer"))
((not (mew-nmz-indexed-folder-p fld))
- (message "No index in this folder."))
+ (message "No index in this folder"))
(t
(mew-nmz-setup)
(mew-sinfo-set-find-key nil) ;; force to ask a user
@@ -842,7 +842,7 @@
(list (mew-nmz-expand-folder fld)) pattern))))
(message "Namazu picking messages in %s...done" fld)
(if (null msgs)
- (message "No message to be marked.")
+ (message "No message to be marked")
(setq msgsback msgs)
(setq msgtotal (length msgs))
(if (= msgtotal 1)
@@ -918,7 +918,7 @@
"Another virtual mode with namazu."
(interactive)
(if (not (mew-summary-or-virtual-p))
- (message "This command cannot be used in this mode.")
+ (message "This command cannot be used in this mode")
(let* ((flds (mew-nmz-input-folders))
(pattern (mew-nmz-input-pick-pattern (mapconcat 'identity flds ",")))
(buf (generate-new-buffer mew-buffer-prefix))
@@ -927,10 +927,10 @@
(mew-nmz-setup)
(setq nmzdirs (mew-nmz-flds-to-indexs flds))
(if (null nmzdirs)
- (message "Please make namazu index.")
+ (message "Please make namazu index")
(setq fldmsgs (mew-nmz-multi-pick nmzdirs pattern nil))
(if (null fldmsgs)
- (message "No message pick.")
+ (message "No message pick")
(while fldmsgs
(setq pickflds (cons (car (car fldmsgs)) pickflds))
(setq scans (cons (car fldmsgs) scans))
@@ -984,7 +984,7 @@
(condition-case nil
(require 'w3m-namazu)
(file-error nil))))
- (message "Please install \"emacs-w3m\".")
+ (message "Please install \"emacs-w3m\"")
(mew-nmz-setup)
(if current-prefix-arg
;; rest indexes
@@ -1008,7 +1008,7 @@
(when (> (length pickflds) mew-nmz-db-max)
(setq mew-nmz-namazu-miss-folders
(nthcdr mew-nmz-db-max (nreverse pickflds)))
- (setq overmsg (format "Warning: %d indexes over."
+ (setq overmsg (format "Warning: %d indexes over"
(length mew-nmz-namazu-miss-folders))))
(setq nmzdirs nil)
(while (and pickflds (> i 0))
@@ -1535,7 +1535,7 @@
(unless mew-nmz-setup-p
(unless (and (mew-which-exec mew-nmz-prog-mknmz)
(mew-which-exec mew-nmz-prog))
- (error "Please install namazu."))
+ (error "Please install namazu"))
(message "mew-nmz setup...")
(mew-nmz-clean-up)
(let ((prefixes (delq mew-folder-virtual (copy-sequence mew-folder-prefixes)))
--- mew/mew-nntp.el
+++ mew.tmp/mew-nntp.el
@@ -576,7 +576,7 @@
(when recovered
(mew-nntp-message
pnm
- "%d message retrieved. %d messages are left due to an error."
+ "%d message retrieved. %d messages are left due to an error"
(- rttl lefts) lefts)
(mew-summary-folder-cache-save))))
(cond
--- mew/mew-pgp.el
+++ mew.tmp/mew-pgp.el
@@ -734,8 +734,8 @@
(setq cs (mew-charset-to-cs charset))
(setq doit t)
(mew-attach-clear))
- (message "Old PGP cannot be used for non-text.")))
- (message "Old PGP cannot be used if multipart exists."))
+ (message "Old PGP cannot be used for non-text")))
+ (message "Old PGP cannot be used if multipart exists"))
(setq doit t))
(when doit
(setq mew-inherit-encode-signer (or signer (mew-get-my-address)))
@@ -747,7 +747,7 @@
((eq type 'pgp-signature-encryption)
(mew-pgp-old-sign-encrypt cs))
(t
- (message "Not supported."))))))
+ (message "Not supported"))))))
(defun mew-old-pgp-sign (cs &optional syntax)
(let ((file1 (mew-make-temp-name))
--- mew/mew-pop.el
+++ mew.tmp/mew-pop.el
@@ -818,7 +818,7 @@
(when recovered
(mew-pop-message
pnm
- "%d message retrieved. %d messages are left due to an error."
+ "%d message retrieved. %d messages are left due to an error"
(- rttl lefts) lefts)
(mew-summary-folder-cache-save))))
(cond
--- mew/mew-summary4.el
+++ mew.tmp/mew-summary4.el
@@ -484,7 +484,7 @@
;; ((and (symbolp program) (eq program 'mew-mime-message/rfc822))
;; (funcall program cache stx))
(t
- (message "Not supported yet.")))
+ (message "Not supported yet")))
(mew-summary-display-postscript 'no-hook))
(select-window win))))
@@ -1107,7 +1107,7 @@
(if (mew-folder-node-p folder case)
(if (y-or-n-p "Collect a folder list now? ")
(mew-imap-update case)
- (mew-message-for-summary "Type '3\\[mew-status-update]' to collect a folder list."))
+ (mew-message-for-summary "Type '3\\[mew-status-update]' to collect a folder list"))
(mew-imap-folder-delete case folder)
(mew-imap-folder-insert case new-folder))
(mew-nmz-folder-index-rename case:folder case:new-folder)))))))))
--- mew/mew-virtual.el
+++ mew.tmp/mew-virtual.el
@@ -229,7 +229,7 @@
(defun mew-summary-virtual-old ()
"Obsoleted command."
(interactive)
- (mew-message-for-summary "This command was obsoleted. Use '\\[mew-summary-virtual]' to make Virtual mode."))
+ (mew-message-for-summary "This command was obsoleted. Use '\\[mew-summary-virtual]' to make Virtual mode"))
(provide 'mew-virtual)
Mew-dist メーリングリストの案内