From f9c53c973d9f182683fee67a5ce6ca8bc7bd51a7 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Wed, 4 Jan 2006 02:08:12 +0000 Subject: * mh-alias.el (mh-alias-add-alias): Grand message and error string unification. Use single sentence if possible by using semicolon. Don't end message with punctuation. Don't need format with message. Quote messages as in docstrings: use `' around symbols, \" for option choices. Don't use quotes around %s. * mh-comp.el (mh-complete-word): Ditto. * mh-customize.el (mh-adaptive-cmd-note-flag-check) (mh-scan-format-file-check): Ditto. * mh-e.el (mh-refile-or-write-again, mh-previous-unread-msg) (mh-delete-a-msg, mh-refile-a-msg, mh-next-unread-msg) (mh-msg-num-width-to-column): Ditto. * mh-identity.el (mh-identity-field-handler): Ditto. * mh-index.el (mh-mairix-execute-search) (mh-swish-execute-search, mh-swish++-execute-search) (mh-namazu-execute-search): Ditto. * mh-init.el (mh-variant-set): Ditto. * mh-mime.el (mh-mh-to-mime-undo, mh-mml-forward-message) (mh-secure-message, mh-mime-display): Ditto. * mh-pick.el (mh-search-folder, mh-pick-construct-regexp): Ditto. * mh-seq.el (mh-narrow-to-seq, mh-put-msg-in-seq, mh-read-seq) (mh-read-range, mh-thread-container-subject): Ditto. * mh-utils.el (mh-x-image-scale-and-display) (mh-prompt-for-folder, mh-handle-process-error) (mh-list-to-string-1): Ditto. --- lisp/mh-e/mh-mime.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/mh-e/mh-mime.el') diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index d8102fe658..f7377d80b2 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -505,7 +505,7 @@ a prefix argument NOCONFIRM." ".orig"))))) (setq backup-strings (cdr backup-strings))) (or backup-strings - (error "Backup file for %s no longer exists!" buffer-file-name)) + (error "Backup file for %s no longer exists" buffer-file-name)) (or noconfirm (yes-or-no-p (format "Revert buffer from file %s? " backup-file)) @@ -585,7 +585,7 @@ MESSAGE number." mh-user-path (substring folder 1) msg) "message/rfc822" description))) - (t (error "The message number, %s is not a integer!" msg))))) + (t (error "The message number, %s, is not a integer" msg))))) (defvar mh-mml-cryptographic-method-history ()) @@ -633,9 +633,9 @@ IDENTITY is optionally the default-user-id to use." (let ((valid-methods (list "pgpmime" "pgp" "smime")) (valid-modes (list "sign" "encrypt" "signencrypt" "none"))) (if (not (member method valid-methods)) - (error "Method \"%s\" is invalid" method)) + (error "Method %s is invalid" method)) (if (not (member mode valid-modes)) - (error "Mode \"%s\" is invalid" mode)) + (error "Mode %s is invalid" mode)) (mml-unsecure-message) (if (not (string= mode "none")) (save-excursion @@ -967,7 +967,7 @@ parsed and then displayed." (mh-mime-display-part handles)) (t (mh-signature-highlight)))) (error - (message "Please report this error. The error message is:\n %s" + (message "Please report this error:\n %s" (error-message-string err)) (delete-region (point-min) (point-max)) (insert raw-message-data)))))) -- cgit v1.2.3