X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Flpath.el;h=af440d1c2c0fd7bb382b677ae6a7949e20ed8c46;hp=dd10062136c4ab0fdea28163baab5c47c003108f;hb=1c821fd1e79241aecefaf5273adbf6273446f5de;hpb=866d052667412dc9acb651a923de0a02b5bc5d72

diff --git a/lisp/lpath.el b/lisp/lpath.el
index dd1006213..af440d1c2 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -44,9 +44,9 @@
 		    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 line-spacing 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 tool-bar-mode
 		    transient-mark-mode)))
@@ -71,12 +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-change-eol-conversion coding-system-list
 		   coding-system-p decode-coding-region decode-coding-string
 		   detect-coding-region encode-coding-region
-		   encode-coding-string))))
+		   encode-coding-string))
+    (maybe-bind '(file-name-coding-system))))
 
 (defun nnkiboze-score-file (a)
   )