[Mew-Win32 00068] CRLF to LF.

[Shuichi Kitaguchi]

北口です。

OS/2 の方に「全部 LF にしてもいいか?」と聞くと「もともと OS/2 の
MH が LF だったので LF の方がいい」ということなので、早速いじって
みました。mew に投げる前にテストをしたいので、お願いします。

IM の方は先の坂本さんのメールにあったように MsgStore.pm に修正
を加えて、Mew の方はこのメールに添付してある mew-win32.el を
使って下さい。これで全て LF になると思います。


# よく見ると、Mule for Win32 で burst したら LF になって
# いたのでは...

--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--
-------------- next part --------------
;;; mew-win32.el --- Settings for Mew on Win32

;; Author:  Shuichi Kitaguchi <kit at example.com>
;; Created: Dec 05, 1997
;; Revised: Jan 10, 1998

;;; Code:

(defconst mew-win32-version "mew-win32.el 0.16")

;; programs.
(setq mew-prog-mime-encode "mewencode.exe")
(setq mew-prog-mime-decode "mewdecode.exe")
(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-pgp         "pgp.exe")

(setq mew-prog-utime       "utime.exe")
(setq mew-touch-folder-p   t)
(setq mew-ext-prog-url     "fiber.exe")

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


;; browse-url.
(defun browse-url-client (url)
  (interactive (browse-url-interactive-arg "URL: "))
  (x-set-selection 'PRIMARY url )
  (start-process "WWW Browser" nil
		 mew-ext-prog-url url))
(setq browse-url-browser-function 'browse-url-client)


;; Emacs version dependent variables.
(cond
; ((string-match "XEmacs\\|Lucid" emacs-version)	; XEmacs?
;  (setq mew-prog-shell-arg  shell-command-switch)
  
;  (make-coding-system 'no-conv 'no-conversion "Do no conversion")
;  (setq mew-cs-noconv-eol 'no-conv-unix))

 ((eq 20 emacs-major-version)		; Meadow
  (setq mew-prog-shell-arg  shell-command-switch)
  
  (make-coding-system 'no-conv 0 ?T "Do no conversion")
  (setq mew-cs-noconv-eol 'no-conv-unix)
  
  (require 'mw32script)
  (mw32script-init))
 (t					; Mule for Win32
  (setq mew-prog-shell-arg  shell-command-option)
  
  (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 'mw32script)
  (mw32script-init)))


(defvar mew-prog-plain '(mew-mime-text/plain () nil))
(defvar mew-prog-text '(mew-mime-text/plain () nil))
(defvar mew-prog-audio '("fiber.exe" () t))
(defvar mew-prog-gif '("fiber.exe" () t))
(defvar mew-prog-jpeg '("fiber.exe" () t))
(defvar mew-prog-xwd '("fiber.exe" () t))
(defvar mew-prog-xbm '("fiber.exe" () t))
(defvar mew-prog-bmp '("fiber.exe" () t))
(defvar mew-prog-image '("fiber.exe" () t))
(defvar mew-prog-mpeg '("fiber.exe" () t))
(defvar mew-prog-rfc822 '(mew-mime-message/rfc822 () nil))
(defvar mew-prog-external-body '(mew-mime-external-body () nil))
(defvar mew-prog-delivery-status '(mew-mime-text/plain () nil))
(defvar mew-prog-postscript '("fiber.exe" () t))
(defvar mew-prog-pgp-keys '(mew-mime-pgp-keys () nil))
(defvar mew-prog-octet-stream '("fiber.exe" () t))

(provide 'mew-win32)

;;; Copyright Notice:

;; Copyright (C) 1996, 1997 Mew developing team.
;; All rights reserved.

;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions
;; are met:
;; 
;; 1. Redistributions of source code must retain the above copyright
;;    notice, this list of conditions and the following disclaimer.
;; 2. Redistributions in binary form must reproduce the above copyright
;;    notice, this list of conditions and the following disclaimer in the
;;    documentation and/or other materials provided with the distribution.
;; 3. All advertising materials mentioning features or use of this software
;;    must display the following acknowledgement:
;;       This product includes software developed by 
;;       Mew developing team and its contributors.
;; 4. Neither the name of the team nor the names of its contributors
;;    may be used to endorse or promote products derived from this software
;;    without specific prior written permission.
;; 
;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS'' AND
;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
;; PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE TEAM OR CONTRIBUTORS BE
;; LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

;;; mew-win32.el ends here