Synch with Oorg Gnus.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 7f337e5..0c6667d 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -22,6 +22,8 @@
               mail-aliases-setup mm-copy-tree
               mule-write-region-no-coding-system put-image
               ring-elements
+              charsetp
+              coding-system-p
               propertize make-mode-line-mouse2-map
               rmail-select-summary rmail-summary-exists rmail-update-summary
               sc-cite-regexp set-font-family set-font-size temp-directory
@@ -35,11 +37,14 @@
 (maybe-bind '(adaptive-fill-first-line-regexp
              adaptive-fill-regexp babel-history babel-translations
              default-enable-multibyte-characters
+             enable-multibyte-characters
              display-time-mail-function imap-password mail-mode-hook
              filladapt-mode
              mc-pgp-always-sign
              gpg-unabbrev-trust-alist
              nnoo-definition-alist
+             current-language-environment
+             language-info-alist
              url-current-callback-func url-be-asynchronous
              url-current-callback-data url-working-buffer
              url-current-mime-headers w3-meta-charset-content-type-regexp
@@ -107,10 +112,10 @@
        ((>= 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
-           shell-command-to-string smiley-encode-buffer xml-parse-region)))
+        '((coding-system-get
+           compose-mail file-name-extension find-coding-systems-region
+           function-max-args get-charset-property shell-command-to-string
+           smiley-encode-buffer xml-parse-region)))
        (t
         '((function-max-args smiley-encode-buffer xml-parse-region))))))
   (maybe-fbind (car functions-variables))