* message.el (message-set-auto-save-file-name): Add support for the Cygwin

 Emacs; the system-type is `cygwin'.
* nnheader.el (nnheader-file-name-translation-alist): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b891b8..01317f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-20  Katsumi Yamaoka <yamaoka@jpl.org>
+       From \e$B>.4X\e(B \e$B5HB'\e(B (KOSEKI Yoshinori) <kose@meadowy.org>.
+
+       * message.el (message-set-auto-save-file-name): Add support for
+       the Cygwin Emacs; the system-type is `cygwin'.
+       * nnheader.el (nnheader-file-name-translation-alist): Ditto.
+
 2002-08-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.

diff --git a/lisp/message.el b/lisp/message.el
index 4a66322..6e9f71e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4527,7 +4527,7 @@ than 988 characters long, and if they are not, trim them until they are."
       (setq buffer-file-name (expand-file-name
                              (if (memq system-type
                                        '(ms-dos ms-windows windows-nt
-                                                cygwin32 win32 w32
+                                                cygwin cygwin32 win32 w32
                                                 mswindows))
                                  "message"
                                "*message*")

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index b5b29f4..4d230c1 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -70,14 +70,14 @@ Integer values will in effect be rounded up to the nearest multiple of
 (defvar nnheader-head-chop-length 2048
   "*Length of each read operation when trying to fetch HEAD headers.")
 
-(defvar nnheader-file-name-translation-alist 
+(defvar nnheader-file-name-translation-alist
   (let ((case-fold-search t))
     (cond
-     ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
+     ((string-match "windows-nt\\|os/2\\|emx\\|cygwin"
                    (symbol-name system-type))
       (append (mapcar (lambda (c) (cons c ?_))
                      '(?: ?* ?\" ?< ?> ??))
-             (if (string-match "windows-nt\\|cygwin32"
+             (if (string-match "windows-nt\\|cygwin"
                                (symbol-name system-type))
                  nil
                '((?+ . ?-)))))