* 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.

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index 5dab59b270f..53bae76cc07 100644
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -284,7 +284,7 @@ When you want to widen the view to all your messages again, use
                         mh-show-seq-tool-bar-map))))
              (push 'widen mh-view-ops)))
           (t
-           (error "No messages in sequence \"%s\"" (symbol-name sequence))))))
+           (error "No messages in sequence %s" (symbol-name sequence))))))
 
 ;;;###mh-autoload
 (defun mh-put-msg-in-seq (range sequence)
@@ -304,7 +304,7 @@ use."
   (interactive (list (mh-interactive-range "Add messages from")
                      (mh-read-seq-default "Add to" nil)))
   (unless (mh-valid-seq-p sequence)
-    (error "Can't put message in invalid sequence \"%s\"" sequence))
+    (error "Can't put message in invalid sequence %s" sequence))
   (let* ((internal-seq-flag (mh-internal-seq sequence))
          (original-msgs (mh-seq-msgs (mh-find-seq sequence)))
          (folders (list mh-current-folder))
@@ -432,7 +432,7 @@ containing the current message."
                     (t (intern input))))
          (msgs (mh-seq-to-msgs seq)))
     (if (and (null msgs) not-empty)
-        (error "No messages in sequence \"%s\"" seq))
+        (error "No messages in sequence %s" seq))
     seq))
 
 
@@ -549,7 +549,7 @@ should be replaced with:
           ((assoc (intern input) seq-list)
            (cdr (assoc (intern input) seq-list)))
           ((setq msg-list (mh-translate-range folder input)) msg-list)
-          (t (error "No messages in range \"%s\"" input)))))
+          (t (error "No messages in range %s" input)))))
 
 ;;;###mh-autoload
 (defun mh-translate-range (folder expr)
@@ -1176,7 +1176,7 @@ children."
                           (mh-message-id (mh-container-message kid)))
                  (let ((kid-message (mh-container-message kid)))
                    (return (mh-message-subject kid-message)))))
-             (error "This can't happen!")))))
+             (error "This can't happen")))))
 
 (defun mh-thread-rewind-pruning ()
   "Restore the thread tree to its state before pruning."