mh-e: use user-error rather than debug-ignored-errors

* lisp/mh-e/mh-alias.el (mh-alias-grab-from-field):
* lisp/mh-e/mh-utils.el (mh-get-msg-num): Use user-error.
(debug-ignored-errors): No longer modify.

diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index e2f747cf92dd3a947e96f7e947dd4e3c0d574d0a..82602eecf27336be3d8334034026c3d58b6126ba 100644 (file)
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -589,7 +589,7 @@ filing messages."
       (set-buffer (get-buffer-create mh-temp-buffer))
       (insert-file-contents (mh-msg-filename (mh-get-msg-num t))))
      ((eq major-mode 'mh-folder-mode)
-      (error "Cursor not pointing to a message")))
+      (user-error "Cursor not pointing to a message")))
     (let* ((address (or (mh-extract-from-header-value)
                         (error "Message has no From: header")))
            (alias (mh-alias-suggest-alias address)))

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index 3bc5fef51a806f0d3597a2e55d2cfd67e6562d6c..1ed2e0f8713039285328495d3713122d17374a85 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -349,11 +349,9 @@ the cursor is not pointing to a message."
            (string-to-number (buffer-substring (match-beginning 1)
                                                (match-end 1))))
           (error-if-no-message
-           (error "Cursor not pointing to message"))
+           (user-error "Cursor not pointing to message"))
           (t nil))))
 
-(add-to-list 'debug-ignored-errors "^Cursor not pointing to message$")
-
 \f
 
 ;;; Folder Cache and Access