Mercurial > emacs
changeset 86950:fed682f20285
(top-level): Don't require cl when compiling.
(url-imap): Use signal rather than check-type.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 02 Dec 2007 18:05:47 +0000 |
| parents | 5befb2f1ec98 |
| children | a90136f4f908 |
| files | lisp/url/url-imap.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-imap.el Sun Dec 02 18:05:36 2007 +0000 +++ b/lisp/url/url-imap.el Sun Dec 02 18:05:47 2007 +0000 @@ -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)