🚀 go-pugleaf

$B$3$s$P$s$O!"N)2V!w3y%vC+;T$G$9!#(B

In article <OKABE.97Sep25144843@tsphys.eng.niigata-u.ac.jp> okabe@tsphys.eng.niigata-u.ac.jp writes:

>IBM-PC MS-DOS kermit 3.14 beta-18 $B$r;H$C$F!$(BSolaris2.5J$B$K$D$J$$$G$$$^$9!%(B
>$B$=$3$G(BGNUS4.1$B$r;H$C$F$$$k$H!$$?$^$KJQ$J(Bcode$B$^$8$j$N5-;v$,$"$k$_$?$$$G!$(B
>$BJ8;z2=$1$7$^$9!%$=$N$?$S$K:F@\B3$7$FD>$7$F$$$k$N$G$9$,!$$3$l$O$J$s$H$+$J(B
>$B$i$J$$$G$7$g$&$+!%$;$a$F!$4JC1$KD>$;$kJ}K!$,$"$C$?$iCN$j$?$$$G$9!%(B

kermit $B$G$J$/!"(BGNUS$BB&$G$NJ}K!$G$9$,!"0JA0Ej9F$5$l$?5-;v$N(Belisp$B$r(B
$B;H$C$F$^$9!#(B

$B!A$3$3$+$i!A(B
;; jischeck.el 19960827
;;     By TAMURA Kent <kent@muraoka.info.waseda.ac.jp>
;; $B$3$N%3!<%I$NCx:n8"$rJ|4~$7$^$9!#(B

;; $B!{;H$$J}(B
;;   $B!&(Bload-path $B>e$K$3$N%U%!%$%k$rCV$/(B
;;   $B!&(B~/.emacs $B$K(B (load "jischeck") $B$rDI2C(B
;;   $B!&(BGNUS 4.1 $B$b$7$/$O(B Gnus 5.0.15 $B$N>l9g!"5-;vCf$K(B JIS X 0208 $B$G(B
;;     $BL$Dj5A$J%3!<%I$,$"$l$P!"$=$l$r<+F0E*$K%2%?$KCV$-49$($k(B



;; JIS X 0208-1983 $B$GL58z$JHO0O(B($B?tCM$O(B ISO-2022-JP $B$G$NCM(B):
;;  1,2 Byte$BL\$,(B 0x00-0x20, 0x7f-0xff
;;  1 Byte$BL\(B:  0x29-0x2f, 0x75-0x7e
;;
;; $B:Y$+$$$H$3$m$G$O(B:
;;  222f-2239, 2242-2249, 2251-225b, 226b-2271, 227a-227d
;;  2321-232f, 233a-2340, 235b-2360, 237b-237e
;;  2474-247e,
;;  2577-257e,
;;  2639-2640, 2659-267e,
;;  2742-2750, 2772-277e,
;;  2841-287e,
;;  4f54-4f7e,
;;  7425-747e,

;; $B$3$N(B Lisp $B%3!<%I$N<jH4$-(B:
;;   1976 1983 $B$N6hJL$r$7$F$$$J$$(B(1983 $B$H9M$($k(B)
;;   $B>e5-!V:Y$+$$$H$3$m!W$r=hM}$7$F$$$J$$(B($B$a$s$I$/$5$$$s$@$b$s(B)
;;       (PC98$BJ8;z$rDY$9$@$1$J$i!"$3$N%3!<%I$G=<J,(B)

(defun jischeck-isnot-jisx0208 (ch)
  "CH $B$,(B JIS X 0208 $B$NL$Dj5A%3!<%I$N>l9g!"(Bt $B$rJV$9!#(B"
  (if (or (eq lc-jp (char-leading-char ch))
	  (eq lc-jpold (char-leading-char ch)))
      (let ((b (char-component ch 1))
	    (b2 (char-component ch 2)))
	(or (<= b ?\xa0)
	    (<= ?\xff b)
	    (and (<= ?\xa9 b) (<= b ?\xaf))
	    (and (<= ?\xf5 b) (<= b ?\xfe))))))
  
(defun jischeck-convert (from to)
  "$B%]%$%s%H(B FROM $B$+$i(B TO $B$^$G$NNN0h$N!"(BJIS X 0208 $B$NL$Dj5A(B\n\
$B%3!<%I$r%2%?$KCV$-49$($k!#(B"
  (save-excursion
    (save-restriction
      (narrow-to-region from to)
      (goto-char (point-min))
      (while (< (point) (point-max))
	(let ((ch (char-after (point))))
	  (if (jischeck-isnot-jisx0208 ch)
	      (progn
		(delete-char 1)
		(insert-char ?$B".(B 1))
	    (forward-char)))))))

(defun jischeck-convert-region ()
  "$B%j!<%8%g%sCf$N(B JIS X 0208 $B$NL$Dj5A%3!<%I$r%2%?$KCV$-49$($k!#(B"
  (interactive)
  (jischeck-convert (mark) (point)))

(defun jischeck-convert-buffer ()
  "$B%P%C%U%!Fb$9$Y$F$N(B JIS X 0208 $B$NL$Dj5A%3!<%I$r%2%?$KCV$-49$($k!#(B"
  (interactive)
  (jischeck-convert (point-min) (point-max)))


;; for GNUS 4.1 / Gnus 5.0.15
(add-hook 'gnus-article-prepare-hook 'jischeck-convert-buffer)
;;; for GNUS 4.1 by tati(Thu Jan 23 23:33:50 JST 1997)
(add-hook 'gnus-summary-prepare-hook'jischeck-convert-buffer)

;; for mh-e
;(add-hook 'mh-show-mode-hook 'jischeck-convert-buffer)

;; for any file
;(add-hook 'find-file-hooks 'jischeck-convert-buffer)
$B!A$3$3$^$G!A(B



--
--
tati@tky.3web.ne.jp				$BN)2V(B $B98!w3y%vC+;T(B
(9$B7n$+$iJQ$o$j$^$7$?(B)