* nnshimbun.el (nnshimbun-request-expire-articles): Fix inhibiting the

[elisp/gnus.git-] / lisp / lpath.el

diff --git a/lisp/lpath.el b/lisp/lpath.el
index b8992a5..4d25272 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -13,6 +13,7 @@
 
 (maybe-fbind '(babel-fetch
               babel-wash create-image decode-coding-string display-graphic-p
+              display-time-event-handler
               find-image font-create-object gnus-mule-get-coding-system
               font-lock-set-defaults
               image-size image-type-available-p insert-image
@@ -35,7 +36,7 @@
              display-time-mail-function imap-password mail-mode-hook
              mc-pgp-always-sign
              nnoo-definition-alist
-             url-current-callback-func url-be-asynchronous 
+             url-current-callback-func url-be-asynchronous
              url-current-callback-data url-working-buffer
              url-current-mime-headers w3-meta-charset-content-type-regexp
              w3-meta-content-type-charset-regexp))
@@ -63,7 +64,7 @@
                     url-retrieve w3-form-encode-xwfu window-at
                     window-edges x-color-values x-popup-menu browse-url
                     frame-char-height frame-char-width))
-      (maybe-bind '(buffer-display-table 
+      (maybe-bind '(buffer-display-table
                    buffer-file-coding-system font-lock-defaults
                    global-face-data gnus-article-x-face-too-ugly
                    gnus-newsgroup-charset gnus-newsgroup-emphasis-alist
@@ -94,12 +95,26 @@
                 valid-image-instantiator-format-p w3-do-setup
                 window-pixel-height window-pixel-width)))
 
-(require 'custom)
-
-(defun md5 (a &optional b c)
-  )
+;; T-gnus.
+(let ((functions-variables
+       (cond
+       ((featurep 'xemacs)
+        '((propertize xml-parse-region)))
+       ((>= emacs-major-version 21)
+        '((function-max-args smiley-encode-buffer)))
+       ((boundp 'MULE)
+        '((charsetp
+           coding-system-get compose-mail file-name-extension
+           find-coding-systems-region function-max-args get-charset-property
+           propertize shell-command-to-string smiley-encode-buffer
+           xml-parse-region)))
+       (t
+        '((function-max-args
+           propertize smiley-encode-buffer xml-parse-region))))))
+  (maybe-fbind (car functions-variables))
+  (maybe-bind (car (cdr functions-variables))))
 
 (defun nnkiboze-score-file (a)
-)
+  )
 
 (provide 'lpath)