X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flpath.el;h=920e1e33bc2a0a2d0887b6a0c60d45410a3aaec2;hb=1744f2fbe4c382d63068903cd867804bd2485d3e;hp=0529e9a8e6dfb07d82030774df9d99179cabfc25;hpb=04ba5250e9e47ebe40860a0902d4ef6405ca143f;p=elisp%2Fgnus.git-

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 0529e9a..920e1e3 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -21,9 +21,10 @@
 	       url-generic-parse-url url-http-file-exists-p
 	       url-insert-file-contents vcard-pretty-print w32-focus-frame
 	       w3m-charset-to-coding-system w3m-region x-focus-frame))
-(maybe-bind '(filladapt-mode
-	      mc-pgp-always-sign rmail-insert-mime-forwarded-message-function
-	      url-current-object url-package-name url-package-version
+(maybe-bind '(eudc-protocol
+	      filladapt-mode mc-pgp-always-sign
+	      rmail-insert-mime-forwarded-message-function url-current-object
+	      url-package-name url-package-version
 	      w3-meta-charset-content-type-regexp
 	      w3-meta-content-type-charset-regexp
 	      w3m-cid-retrieve-function-alist w3m-current-buffer
@@ -33,8 +34,8 @@
 (if (featurep 'xemacs)
     (progn
       (maybe-fbind '(delete-overlay
-		     event-click-count event-end event-start
-		     find-coding-systems-for-charsets
+		     detect-coding-string eudc-expand-inline event-click-count
+		     event-end event-start find-coding-systems-for-charsets
 		     find-coding-systems-region find-coding-systems-string
 		     mail-abbrevs-setup mouse-minibuffer-check
 		     mouse-movement-p mouse-scroll-subr overlay-lists
@@ -85,16 +86,6 @@
        (cond
 	((featurep 'xemacs)
 	 '(frame-char-height frame-char-width))
-	((>= emacs-major-version 21)
-	 '(function-max-args smiley-encode-buffer))
-	((boundp 'MULE)
-	 '(charsetp
-	   coding-system-base coding-system-get coding-system-list
-	   coding-system-to-mime-charset compose-mail
-	   file-name-extension find-coding-systems-for-charsets
-	   find-coding-systems-region function-max-args get-charset-property
-	   read-passwd ;; See the Mule23@1934 file.
-	   smiley-encode-buffer smtpmail-send-it))
 	(t
 	 '(function-max-args smiley-encode-buffer))))
       (common-fns
@@ -103,11 +94,6 @@
        (cond
 	((featurep 'xemacs)
 	 '(font-lock-defaults))
-	((>= emacs-major-version 21)
-	 nil)
-	((boundp 'MULE)
-	 '(adaptive-fill-first-line-regexp
-	   default-enable-multibyte-characters enable-multibyte-characters))
 	(t
 	 nil)))
       (common-vars