Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Glenn Morris 2017-04-17 20:10:28 -04:00
parent d0397f4a57
commit 2e3a33659f
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/mh-e/mh-alias.el
View file

@ -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)))

4
lisp/mh-e/mh-utils.el
View file

@ -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