[Mew-dist 1876] mew-win32.el.

[Shuichi Kitaguchi]

北口＠奈良先端大 です。

Win32 関係の設定をいちいち ~/.emacs でやるのは面倒に思ったので、
mew-win32.el としてまとめてみました(mew-os2.el のまね(^^;)。

適当なディレクトリに放り込んだ後、
  (require 'mew-win32)
とでもやれば make-coding-system や define-proces-argument-editing、
mew-mime-content-type(不完全ですが)などの設定を行います。

間違いなどあれば、お教えください。

# coding-system *crlf2lf* の設定は頂きものです。


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==---
-------------- next part --------------
;; mew-win32.el  miscellaneous settings for win32
;;
;;                     Written by Shuichi Kitaguchi <kit at example.com>

(defconst mew-win32-version "mew-win32.el v0.01")



(setq mew-prog-tar        "tar.exe")
(setq mew-prog-compress   "compress.exe")
(setq mew-prog-gzip       "gzip.exe")
(setq mew-prog-shell      shell-file-name)
(setq mew-prog-shell-arg  shell-command-option)

(setq mew-prog-pgp        "pgp.exe")


(cond
 ((eq system-type 'windows-nt)
  (cond
   ((eq 20 emacs-major-version)		; Meadow
    )
   (t					; Mule for Win32
    (make-coding-system
     '*crlf2lf* 4
     ?= "No conversion." nil
     '([1 23 47 346 13 18 250 10 18 1881 5 4421 19 10
	  47 772 5892 49 58 0 0 14 772 49 22] .
	  [1 4 14 775 22]))
    (setq mew-cs-noconv-eol *crlf2lf*)
    
    (require 'win32-script)
    (define-process-argument-editing
      "/[^./]+$"
      'script-process-argument-editing-function 'last))
   )))


(defvar
  mew-mime-content-type
  (list
   (list 
    "multipart/*"
    nil
    nil
    nil
    (if (boundp 'mew-icon-multipart) mew-icon-multipart)
    )
   (list
    "audio/basic"
    "\\.au$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-audio) mew-icon-audio)
    )
   (list
    "image/gif"
    "\\.gif$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "image/jpeg"
    "\\.jpe?g$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "image/x-xwd"
    "\\.xwd$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "image/x-xbm"
    "\\.xbm$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "image/x-bmp"
    "\\.bmp$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "image/.*"
    "^$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-image) mew-icon-image)
    )
   (list
    "video/mpeg"
    "\\.mpe?g$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-video) mew-icon-video)
    )
   (list
    "application/postscript"
    "\\.ps$"
    "quoted-printable"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-application/postscript) 
	mew-icon-application/postscript)
    )
   (list
    "application/pgp-keys"
    "\\.pka$"
    nil
    '(mew-mime-pgp-keys () nil)
    (if (boundp 'mew-icon-unknown) mew-icon-unknown)
    )
   (list
    "application/octet-stream"
    "\\.[Ll][Zz][Hh]$"
    "base64"
    '("xv.exe" () t)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.[Zz][Ii][Pp]$"
    "base64"
    '("xv.exe" () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.tar\\.?g?z?$"
    "base64"
    '(mew-mime-application/octet-stream () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.tgz$"
    "base64"
    '("xv.exe" () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.gz$"
    "base64"
    '("xv.exe" () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.Z$"
    "base64"
    '("xv.exe" () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "application/octet-stream"
    "\\.pgp$"
    "base64"
    '(mew-mime-application/octet-stream () nil)
    (if (boundp 'mew-icon-application/octet-stream)
	mew-icon-application/octet-stream)
    )
   (list
    "message/external-body" 
    "\\.ext$"
    nil
    '(mew-mime-external-body () nil)
    (if (boundp 'mew-icon-message/external-body)
	mew-icon-message/external-body)
    )
   (list
    "message/rfc822"
    "^[0-9]+$"
    nil
    '(mew-mime-message/rfc822 () nil)
    (if (boundp 'mew-icon-message/rfc822) mew-icon-message/rfc822)
    )
   (list
    "message/delivery-status"
    "^$"
    nil
    '(mew-mime-text/plain () nil)
    (if (boundp 'mew-icon-text) mew-icon-text)
    )
   (list
    "text/richtext"
    "\\.rtf$"
    nil
    '(mew-mime-text/plain () nil)
    (if (boundp 'mew-icon-text) mew-icon-text)
    )
   (list
    "text/plain"
    ".*"
    nil
    '(mew-mime-text/plain () nil)
    (if (boundp 'mew-icon-text) mew-icon-text)
    )
   (list
    "text/.*"
    "^$"
    nil
    '(mew-mime-text/plain () nil)
    (if (boundp 'mew-icon-text) mew-icon-text)
    )
   (list
    ".*" 
    "^$"
    nil
    '(mew-mime-application/octet-stream () nil)
    (if (boundp 'mew-icon-unknown) mew-icon-unknown)
    )
   )
 "(content-type filename encoding (program (options ...) async) icon)"
 )


(provide 'mew-win32)