(pgg-fetch-key-function): Nil if w3 is not installed.
+2002-10-09 Simon Josefsson <jas@extundo.com>
+
+ * pgg.el (pgg-insert-url-with-w3): Ignore errors.
+ (pgg-fetch-key-function): Nil if w3 is not installed.
+
2002-10-08 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* gnus-agent.el (gnus-agent-fetch-selected-article): Bind
2002-10-08 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* gnus-agent.el (gnus-agent-fetch-selected-article): Bind
;;; @ utility functions
;;;
;;; @ utility functions
;;;
-(defvar pgg-fetch-key-function (function pgg-fetch-key-with-w3))
+(defvar pgg-fetch-key-function (if (fboundp 'url-insert-file-contents)
+ function pgg-fetch-key-with-w3))
(defun pgg-invoke (func scheme &rest args)
(progn
(defun pgg-invoke (func scheme &rest args)
(progn
(defvar pgg-insert-url-function (function pgg-insert-url-with-w3))
(defun pgg-insert-url-with-w3 (url)
(defvar pgg-insert-url-function (function pgg-insert-url-with-w3))
(defun pgg-insert-url-with-w3 (url)
- (require 'w3)
- (require 'url)
- (let (buffer-file-name)
- (url-insert-file-contents url)))
+ (ignore-errors
+ (require 'w3)
+ (require 'url)
+ (let (buffer-file-name)
+ (url-insert-file-contents url))))
(defvar pgg-insert-url-extra-arguments nil)
(defvar pgg-insert-url-program nil)
(defvar pgg-insert-url-extra-arguments nil)
(defvar pgg-insert-url-program nil)