X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flpath.el;h=519625c2b264986068559bf3f9e96151d2dbd31d;hb=11dce356dee90fe9e71c190f459e18ff939c71af;hp=d1e9a66ed00523f557ebe0daa2bea6814d4ee3fb;hpb=30d9f23f0291edcefeca1958befadb992d2982b5;p=elisp%2Fgnus.git-

diff --git a/lisp/lpath.el b/lisp/lpath.el
index d1e9a66..519625c 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -37,29 +37,44 @@
 		     find-charset-region
 		     find-coding-systems-region get-charset-property
 		     coding-system-get w3-region
+		     w3-coding-system-for-mime-charset 
 		     rmail-summary-exists rmail-select-summary
 		     rmail-update-summary url-retrieve
-		     temp-directory
-		     ))
+		     temp-directory babel-fetch babel-wash
+		     find-coding-systems-for-charsets sc-cite-regexp
+		     vcard-pretty-print image-type-available-p
+		     put-image create-image  display-graphic-p
+		     find-image insert-image
+		     make-overlay overlay-put))
       (maybe-bind '(global-face-data
 		    mark-active transient-mark-mode mouse-selection-click-count
 		    mouse-selection-click-count-buffer buffer-display-table
 		    font-lock-defaults user-full-name user-login-name
 		    gnus-newsgroup-name gnus-article-x-face-too-ugly
-		    gnus-newsgroup-charset
-		    mail-mode-hook enable-multibyte-characters
+		    gnus-newsgroup-charset gnus-newsgroup-emphasis-alist
+		    mail-mode-hook
 		    adaptive-fill-first-line-regexp adaptive-fill-regexp
 		    url-current-mime-headers buffer-file-coding-system
 		    w3-image-mappings url-current-mime-type
+		    w3-meta-content-type-charset-regexp
+		    w3-meta-charset-content-type-regexp
 		    url-current-callback-func url-current-callback-data
-		    url-be-asynchronous temporary-file-directory)))
+		    url-be-asynchronous temporary-file-directory
+		    babel-translations babel-history
+		    display-time-mail-function imap-password
+		    )))
   (maybe-bind '(mail-mode-hook
 		enable-multibyte-characters browse-url-browser-function
 		adaptive-fill-first-line-regexp adaptive-fill-regexp
-		url-current-mime-headers help-echo-owns-message))
-  (maybe-fbind '(color-instance-rgb-components temp-directory
+		url-current-mime-headers help-echo-owns-message
+		w3-meta-content-type-charset-regexp
+		w3-meta-charset-content-type-regexp
+		babel-translations babel-history
+		display-time-mail-function imap-password))
+  (maybe-fbind '(color-instance-rgb-components
+		 temp-directory
 		 glyph-width annotation-glyph window-pixel-width glyph-height
-		 window-pixel-height
+		 window-pixel-height map-extents
 		 make-color-instance color-instance-name specifier-instance
 		 device-type device-class get-popup-menu-response event-object
 		 x-defined-colors read-color add-submenu set-font-family
@@ -76,11 +91,15 @@
 		 mm-copy-tree url-view-url w3-prepare-buffer
 		 mule-write-region-no-coding-system char-int
 		 annotationp delete-annotation make-image-specifier
-		 make-annotation
+		 make-annotation events-to-keys
 		 w3-do-setup w3-region
+		 w3-coding-system-for-mime-charset 
 		 rmail-summary-exists rmail-select-summary rmail-update-summary
 		 url-generic-parse-url valid-image-instantiator-format-p
-		 )))
+		 babel-fetch babel-wash babel-as-string sc-cite-regexp
+		 put-image create-image display-graphic-p
+		 find-image insert-image
+		 vcard-pretty-print image-type-available-p)))
 
 (setq load-path (cons "." load-path))
 (require 'custom)