[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2e3a336 2/3: mh-e: use user-error rather than debug
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 2e3a336 2/3: mh-e: use user-error rather than debug-ignored-errors |
Date: |
Mon, 17 Apr 2017 20:16:43 -0400 (EDT) |
branch: master
commit 2e3a33659fb85330ec76a67b2113472e7e0b546a
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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.
---
lisp/mh-e/mh-alias.el | 2 +-
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 e2f747c..82602ee 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 3bc5fef..1ed2e0f 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