Changes committed gnus/lisp (ChangeLog lpath.el nnmail.el)

Modified: ChangeLog lpath.el nnmail.el

* nnmail.el (nnmail-pathname-coding-system): Default to the `file-name'
  coding system in XEmacs; add a workaround for XEmacs.

* lpath.el: Fbind coding-system-aliasee.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1979 gnus/lisp/ChangeLog:7.1980
--- ChangeLog:7.1979	Wed Jan 14 01:52:01 2009
+++ ChangeLog	Fri Jan 16 09:03:16 2009
@@ -1,3 +1,10 @@
+2009-01-16  Katsumi Yamaoka  <[email protected]>
+
+	* nnmail.el (nnmail-pathname-coding-system): Default to the `file-name'
+	coding system in XEmacs; add a workaround for XEmacs.
+
+	* lpath.el: Fbind coding-system-aliasee.
+
 2009-01-14  Katsumi Yamaoka  <[email protected]>
 
 	* mm-util.el (mm-coding-system-priorities): Protect against nil value
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.50 gnus/lisp/lpath.el:7.51
--- lpath.el:7.50	Mon Jan  5 23:09:39 2009
+++ lpath.el	Fri Jan 16 09:03:16 2009
@@ -30,16 +30,17 @@
     (defun split-line (&optional arg))
     (maybe-fbind
      '(clear-string
-       custom-autoload delete-annotation delete-extent device-connection
-       dfw-device events-to-keys find-face font-lock-set-defaults
-       get-char-table glyph-height glyph-width help-buffer int-to-char
-       ldap-search-entries mail-aliases-setup make-annotation make-event
-       make-glyph make-network-process map-extents message-xmas-redefine
-       put-char-table run-mode-hooks set-extent-property set-itimer-function
-       set-keymap-default-binding temp-directory ucs-to-char
-       unicode-precedence-list unicode-to-char url-generic-parse-url
-       url-http-file-exists-p valid-image-instantiator-format-p
-       vcard-pretty-print w3-coding-system-for-mime-charset window-pixel-height
+       coding-system-aliasee custom-autoload delete-annotation delete-extent
+       device-connection dfw-device events-to-keys find-face
+       font-lock-set-defaults get-char-table glyph-height glyph-width
+       help-buffer int-to-char ldap-search-entries mail-aliases-setup
+       make-annotation make-event make-glyph make-network-process map-extents
+       message-xmas-redefine put-char-table run-mode-hooks set-extent-property
+       set-itimer-function set-keymap-default-binding temp-directory
+       ucs-to-char unicode-precedence-list unicode-to-char
+       url-generic-parse-url url-http-file-exists-p
+       valid-image-instantiator-format-p vcard-pretty-print
+       w3-coding-system-for-mime-charset window-pixel-height
        window-pixel-width))
     (maybe-bind
      '(eudc-protocol
@@ -102,9 +103,9 @@
 
   (unless (featurep 'file-coding)
     (maybe-fbind
-     '(coding-system-base
-       coding-system-change-eol-conversion coding-system-list coding-system-p
-       find-coding-system))
+     '(coding-system-aliasee
+       coding-system-base coding-system-change-eol-conversion coding-system-list
+       coding-system-p find-coding-system))
     (maybe-bind
      '(buffer-file-coding-system
        coding-system-for-read coding-system-for-write
Index: nnmail.el
diff -u gnus/lisp/nnmail.el:7.46 gnus/lisp/nnmail.el:7.47
--- nnmail.el:7.46	Fri Oct  3 03:52:25 2008
+++ nnmail.el	Fri Jan 16 09:03:16 2009
@@ -628,7 +628,14 @@
   mm-text-coding-system
   "Coding system used in reading inbox")
 
-(defvar nnmail-pathname-coding-system nil
+(defvar nnmail-pathname-coding-system
+  ;; This causes Emacs 22.2 and 22.3 to issue a useless warning.
+  ;;(if (and (featurep 'xemacs) (featurep 'file-coding))
+  (if (featurep 'xemacs)
+      (if (featurep 'file-coding)
+	  ;; Work around a bug in many XEmacs 21.5 betas.
+	  ;; Cf. http://thread.gmane.org/gmane.emacs.gnus.general/68134
+	  (setq file-name-coding-system (coding-system-aliasee 'file-name))))
   "*Coding system for file name.")
 
 (defun nnmail-find-file (file)