diff options
| -rw-r--r-- | lisp/url/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/url/url-imap.el | 4 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 86319844f90..68b32ef4224 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,5 +1,16 @@ 2007-12-02 Glenn Morris <rgm@gnu.org> + * url-about.el, url-handlers.el: Don't require cl when compiling. + + * url-dav.el (url-dav-delete-directory): Fix message typo. + + * url-history.el (top-level): Don't require cl when compiling. + (url-history-setup-save-timer, url-history-save-history): + Use condition-case rather than ignore-errors. + + * url-imap.el (top-level): Don't require cl when compiling. + (url-imap): Use signal rather than check-type. + * url-news.el (top-level): Don't require cl when compiling. (gnus-group-buffer): Define for compiler. (url-news-fetch-message-id): Don't use `declare'. 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) |