diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-04-17 20:10:28 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-04-17 20:10:28 -0400 |
| commit | 2e3a33659fb85330ec76a67b2113472e7e0b546a (patch) | |
| tree | 8abbed3179a257d6d06b059012b69ea4daaa6563 | |
| parent | d0397f4a5764d3be93be3e3d35bccc1bf27522cf (diff) | |
| download | emacs-2e3a33659fb85330ec76a67b2113472e7e0b546a.tar.gz emacs-2e3a33659fb85330ec76a67b2113472e7e0b546a.tar.bz2 emacs-2e3a33659fb85330ec76a67b2113472e7e0b546a.zip | |
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.
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-utils.el | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index e2f747cf92d..82602eecf27 100644 --- 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 3bc5fef51a8..1ed2e0f8713 100644 --- 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$") - ;;; Folder Cache and Access |