/[emacs]/emacs/lisp/mail/feedmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/feedmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by gerd, Thu Sep 27 10:54:32 2001 UTC revision 1.16 by sds, Tue Nov 27 15:52:52 2001 UTC
# Line 291  Line 291 
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")

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26