diff options
Diffstat (limited to 'lisp/url/url-imap.el')
| -rw-r--r-- | lisp/url/url-imap.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-imap.el b/lisp/url/url-imap.el index 5c5dff31f76..3b1d9e24dbc 100644 --- a/lisp/url/url-imap.el +++ b/lisp/url/url-imap.el @@ -32,7 +32,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'url-util) (require 'url-parse) (require 'nnimap) @@ -53,7 +52,8 @@ (nnimap-authenticator ,authenticator))))) (defun url-imap (url) - (check-type url vector "Need a pre-parsed URL.") + (unless (vectorp url) + (signal 'wrong-type-error (list "Need a pre-parsed URL." url))) (save-excursion (set-buffer (generate-new-buffer " *url-imap*")) (mm-disable-multibyte) |