Commit e05b1e72 authored by Glenn Morris's avatar Glenn Morris
Browse files

(top-level): Don't require cl when compiling.

(url-imap): Use signal rather than check-type.
parent d87fefad
2007-12-02 Glenn Morris <rgm@gnu.org> 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. * url-news.el (top-level): Don't require cl when compiling.
(gnus-group-buffer): Define for compiler. (gnus-group-buffer): Define for compiler.
(url-news-fetch-message-id): Don't use `declare'. (url-news-fetch-message-id): Don't use `declare'.
......
...@@ -32,7 +32,6 @@ ...@@ -32,7 +32,6 @@
;;; Code: ;;; Code:
(eval-when-compile (require 'cl))
(require 'url-util) (require 'url-util)
(require 'url-parse) (require 'url-parse)
(require 'nnimap) (require 'nnimap)
...@@ -53,7 +52,8 @@ ...@@ -53,7 +52,8 @@
(nnimap-authenticator ,authenticator))))) (nnimap-authenticator ,authenticator)))))
(defun url-imap (url) (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 (save-excursion
(set-buffer (generate-new-buffer " *url-imap*")) (set-buffer (generate-new-buffer " *url-imap*"))
(mm-disable-multibyte) (mm-disable-multibyte)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment