X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdgnushack.el;h=bd04d089b08e3a8421ecdfcca7860bd9f16dbf62;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=a4833162c2c8cad93522fe7cf763a4d4a0f8437a;hpb=edf5f9674c2b8f713c5f7ea1521c405cf0d86727;p=elisp%2Fgnus.git-

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index a483316..bd04d08 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -310,6 +310,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     (autoload 'c-mode "cc-mode" nil t)
     (autoload 'customize-apropos "cus-edit" nil t)
     (autoload 'customize-save-variable "cus-edit" nil t)
+    (autoload 'customize-set-variable "cus-edit" nil t)
     (autoload 'customize-variable "cus-edit" nil t)
     (autoload 'delete-annotation "annotations")
     (autoload 'dolist "cl-macs" nil nil 'macro)
@@ -317,6 +318,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     (autoload 'executable-find "executable")
     (autoload 'font-lock-fontify-buffer "font-lock" nil t)
     (autoload 'info "info" nil t)
+    (autoload 'mail-fetch-field "mail-utils")
     (autoload 'make-annotation "annotations")
     (autoload 'make-display-table "disp-table")
     (autoload 'pp "pp")
@@ -365,7 +367,8 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
   (autoload 'std11-unfold-region "nnheader"))
 
 (defconst dgnushack-unexporting-files
-  (append '("dgnushack.el" "dgnuspath.el" "dgnuskwds.el" "lpath.el")
+  (append '("dgnushack.el" "dgnuspath.el" "dgnuskwds.el" "lpath.el"
+	    "legacy-gnus-agent.el")
 	  (unless (or (condition-case code
 			  (require 'w3-parse)
 			(error
@@ -690,19 +693,4 @@ dgnushack-compile."
 	(while (setq file (pop files))
 	  (insert "info/" file "\n"))))))
 
-
-(define-compiler-macro describe-key-briefly (&whole form key &optional insert)
-  (if (condition-case nil
-	  (progn
-	    (describe-key-briefly '((())) nil)
-	    t)
-	(wrong-number-of-arguments nil);; Old Emacsen.
-	(error t))
-      form
-    (if insert
-	`(if ,insert
-	     (insert (funcall 'describe-key-briefly ,key))
-	   (funcall 'describe-key-briefly ,key))
-      `(funcall 'describe-key-briefly ,key))))
-
 ;;; dgnushack.el ends here