* gnus-agent.el (gnus-agent-save-active): Bind nnheader-file-coding-system to

[gnus] / lisp / lpath.el

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 694d2c7..af440d1 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -38,15 +38,18 @@
                     mouse-scroll-subr overlay-lists posn-point posn-window
                     read-event set-buffer-multibyte
                     select-frame-set-input-focus select-safe-coding-system
-                    timer-set-function track-mouse window-edges))
+                    string-as-multibyte timer-set-function track-mouse
+                    window-edges))
       (maybe-bind '(adaptive-fill-first-line-regexp
                    buffer-display-table buffer-file-coding-system
                    current-language-environment cursor-in-non-selected-windows
                    default-enable-multibyte-characters
-                   enable-multibyte-characters gnus-agent-expire-current-dirs
-                   language-info-alist mark-active mouse-selection-click-count
+                   default-file-name-coding-system enable-multibyte-characters
+                   gnus-agent-expire-current-dirs anguage-info-alist
+                   line-spacing mark-active mouse-selection-click-count
                    mouse-selection-click-count-buffer pgg-parse-crc24
-                   temporary-file-directory timer-list transient-mark-mode)))
+                   temporary-file-directory timer-list tool-bar-mode
+                   transient-mark-mode)))
   (maybe-fbind '(bbdb-complete-name
                 delete-annotation delete-extent device-connection dfw-device
                 events-to-keys find-face font-lock-set-defaults frame-device
@@ -68,11 +71,14 @@
                 char-charset charsetp coding-system-get define-ccl-program
                 find-charset-region get-charset-property
                 pgg-parse-crc24-string))
+  (maybe-bind '(language-info-alist))
   (unless (featurep 'file-coding)
     (maybe-fbind '(coding-system-base
-                  coding-system-list coding-system-p decode-coding-region
-                  decode-coding-string detect-coding-region
-                  encode-coding-region encode-coding-string))))
+                  coding-system-change-eol-conversion coding-system-list
+                  coding-system-p decode-coding-region decode-coding-string
+                  detect-coding-region encode-coding-region
+                  encode-coding-string))
+    (maybe-bind '(file-name-coding-system))))
 
 (defun nnkiboze-score-file (a)
   )