Mercurial > emacs

diff lisp/gnus/message.el @ 110039:459fd421257a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-group-completing-read: Add 'substring to completion-styles for group selection; imap.el, mailcap.el, message.el, mm-util.el, nnheader.el, nnmail.el, pop3.el: Remove references to outdated systems; References to win32 w32 mswindows ms-windows emx were probably cargo-culted, and are removed for clarity; By Lars Magne Ingebrigtsen <larsi@gnus.org>.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 30 Aug 2010 23:24:56 +0000
parents 9604de1a8d28
children 07b5be82cf7a
line wrap: on
line diff
--- a/lisp/gnus/message.el	Mon Aug 30 22:34:52 2010 +0200
+++ b/lisp/gnus/message.el	Mon Aug 30 23:24:56 2010 +0000
@@ -5433,7 +5433,7 @@
 	   (* 25 25)))
   (let ((tm (current-time)))
     (concat
-     (if (or (memq system-type '(ms-dos emx))
+     (if (or (eq system-type 'ms-dos)
 	     ;; message-number-base36 doesn't handle bigints.
 	     (floatp (user-uid)))
 	 (let ((user (downcase (user-login-name))))
@@ -6451,9 +6451,7 @@
       (setq buffer-file-name (expand-file-name
 			      (concat
 			      (if (memq system-type
-					'(ms-dos ms-windows windows-nt
-						 cygwin cygwin32 win32 w32
-						 mswindows))
+					'(ms-dos windows-nt cygwin))
 				  "message"
 				"*message*")
 			       (format-time-string "-%Y%m%d-%H%M%S"))