2001-07-26 15:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el(message-set-auto-save-file-name): More
	poor-system-types.

	* mailcap.el (mailcap-parse-mimetypes): poor-system-types.

	* gnus-ems.el (nnheader-file-name-translation-alist): M$Windows-NT
	supports +.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0058a04..12aa2e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2001-07-26 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el(message-set-auto-save-file-name): More
+       poor-system-types.
+
+       * mailcap.el (mailcap-parse-mimetypes): poor-system-types.
+
+       * gnus-ems.el (nnheader-file-name-translation-alist): M$Windows-NT
+       supports +.
+
 2001-07-26 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-decode.el (mm-readable-p): New.

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 62c2695..f8c872a 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -84,7 +84,10 @@
            (append nnheader-file-name-translation-alist
                    (mapcar (lambda (c) (cons c ?_))
                            '(?: ?* ?\" ?< ?> ??))
-                   '((?+ . ?-))))))))
+                   (if (string-match "windows-nt\\|cygwin32"
+                                     (symbol-name system-type))
+                       nil
+                     '((?+ . ?-)))))))))
 
 (defvar gnus-tmp-unread)
 (defvar gnus-tmp-replied)

diff --git a/lisp/mailcap.el b/lisp/mailcap.el
index 4c6b238..aaa8104 100644 (file)
--- a/lisp/mailcap.el
+++ b/lisp/mailcap.el
@@ -287,6 +287,10 @@ Nil means your home directory."
                 directory)
   :group 'mailcap)
 
+(defvar mailcap-poor-system-types
+  '(ms-dos ms-windows windows-nt win32 w32 mswindows)
+  "Systems that don't have a Unix-like directory hierarchy.")
+
 ;;;
 ;;; Utility functions
 ;;;
@@ -363,7 +367,7 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
     (cond
      (path nil)
      ((getenv "MAILCAPS") (setq path (getenv "MAILCAPS")))
-     ((memq system-type '(ms-dos ms-windows windows-nt))
+     ((memq system-type mailcap-poor-system-types)
       (setq path '("~/.mailcap" "~/mail.cap" "~/etc/mail.cap")))
      (t (setq path
              ;; This is per RFC 1524, specifically
@@ -860,7 +864,7 @@ If FORCE, re-parse even if already parsed."
     (cond
      (path nil)
      ((getenv "MIMETYPES") (setq path (getenv "MIMETYPES")))
-     ((memq system-type '(ms-dos ms-windows windows-nt))
+     ((memq system-type mailcap-poor-system-types)
       (setq path '("~/mime.typ" "~/etc/mime.typ")))
      (t (setq path
              ;; mime.types seems to be the normal name, definitely so

diff --git a/lisp/message.el b/lisp/message.el
index 71aabe7..aca33f5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3949,7 +3949,10 @@ than 988 characters long, and if they are not, trim them until they are."
        (setq message-draft-article
              (nndraft-request-associate-buffer "drafts"))
       (setq buffer-file-name (expand-file-name
-                             (if (eq system-type 'windows-nt)
+                             (if (memq system-type 
+                                       '(ms-dos ms-windows windows-nt 
+                                                cygwin32 win32 w32 
+                                                mswindows))
                                  "message"
                                "*message*")
                              message-auto-save-directory))