291 |
;; If you write software that must work without the new custom, you |
;; If you write software that must work without the new custom, you |
292 |
;; can use this hack stolen from w3-cus.el: |
;; can use this hack stolen from w3-cus.el: |
293 |
(eval-and-compile |
(eval-and-compile |
294 |
(condition-case () |
(condition-case () |
295 |
(require 'custom) |
(require 'custom) |
296 |
(error nil)) |
(error nil)) |
297 |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
(if (and (featurep 'custom) (fboundp 'custom-declare-variable)) |
298 |
nil ;; We've got what we needed |
nil ;; We've got what we needed |
299 |
;; We have the old custom-library, hack around it! |
;; We have the old custom-library, hack around it! |
300 |
(defmacro defgroup (&rest args) |
(defmacro defgroup (&rest args) |
301 |
nil) |
nil) |
302 |
(defmacro defcustom (var value doc &rest args) |
(defmacro defcustom (var value doc &rest args) |
303 |
(` (defvar (, var) (, value) (, doc)))))) |
`(defvar ,var ,value ,doc)))) |
304 |
|
|
305 |
(eval-when-compile (require 'smtpmail)) |
(eval-when-compile (require 'smtpmail)) |
306 |
(autoload 'mail-do-fcc "sendmail") |
(autoload 'mail-do-fcc "sendmail") |