diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-02 18:05:57 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-02 18:05:57 +0000 |
| commit | e05b1e72bec5633a06181487bc236c906a9e7657 (patch) | |
| tree | 7330d0c2ae433cd085a2ed9aade26bdd60056ed1 /lisp/url/url-imap.el | |
| parent | d87fefad371af0bca0b4bed3268c1f3414d5f900 (diff) | |
| download | emacs-e05b1e72bec5633a06181487bc236c906a9e7657.tar.gz | |
(top-level): Don't require cl when compiling.
(url-imap): Use signal rather than check-type.
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) |