;;; dgnushack.el --- a hack to set the load path for byte-compiling
-;; Copyright (C) 1994-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1994-2012 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Version: 4.19
(defalias 'efs-re-read-dir 'ignore)
(defalias 'ange-ftp-re-read-dir 'ignore)
(defalias 'define-mail-user-agent 'ignore)
+(defalias 'debbugs-gnu-summary-mode 'ignore)
+(defvar debbugs-gnu-bug-number nil)
(eval-and-compile
(unless (featurep 'xemacs)
(unless (fboundp 'url-retrieve-synchronously)
(defalias 'url-retrieve-synchronously 'url-retrieve))
(unless (fboundp 'url-queue-retrieve)
- (defun url-queue-retrieve (url callback &optional cbargs silent)
+ (defun url-queue-retrieve (url callback &optional cbargs silent
+ inhibit-cookies)
(url-retrieve url callback cbargs)))
(autoload 'Info-directory "info" nil t)
(autoload 'Info-index "info" nil t)
(error (princ "failed\n")))))
(setq path (cdr path))))))
+(unless (fboundp 'with-demoted-errors)
+ (defmacro with-demoted-errors (&rest body)
+ "Run BODY and demote any errors to simple messages.
+If `debug-on-error' is non-nil, run BODY without catching its errors.
+This is to be used around code which is not expected to signal an error
+but which should be robust in the unexpected case that an error is signaled."
+ (declare (debug t) (indent 0))
+ (let ((err (make-symbol "err")))
+ `(condition-case ,err
+ (progn ,@body)
+ (error (message "Error: %S" ,err) nil)))))
+
;;; dgnushack.el ends here