Newsgroups: fj.editor.emacs,fj.wanted
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!kogwy!math-keio!jiro
From: jiro@math.keio.ac.jp (TANAKA Jiro)
Subject: Re: wanted any tools to read X-Nsubject that lost Esc
In-Reply-To: ohya@ei.nagano-nct.ac.jp's message of 15 Feb 93 03: 28:44 GMT
Message-ID: <JIRO.93Feb15160730@diamond.math.keio.ac.jp>
Lines: 53
Sender: news@math.keio.ac.jp
Nntp-Posting-Host: diamond
Reply-To: jiro@math.keio.ac.jp
Organization: Faculty of Sci. and Tech., Keio Univ., Yokohama, Japan.
References: <OHYA.93Feb15122844@lenny.ei.nagano-nct.ac.jp>
Date: Mon, 15 Feb 1993 07:07:33 GMT
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3493 fj.wanted:4466
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3493&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

In article <OHYA.93Feb15122844@lenny.ei.nagano-nct.ac.jp>
ohya@ei.nagano-nct.ac.jp (Ken'ichi OHYA) writes:

 :$B$I$3$+$K!"(BX-Nsubject $B$N(B Esc $B$r<+F0E*$KI|3h$5$;$k%D!<%k$,$J$$(B
 :$B$b$N$G$7$g$&$+!#(B
 :$B#G#n#u#s$r0&MQ$7$F$$$k$N$G!"#G#n#u#sMQ$N(B *.el $B$,$"$l$P$&$l$7(B
 :$B$$$N$G$9$,!"!"!"!#(B

$B<+F0E*$8$c$J$$$s$G$9$,!"(B

;From: thomson@hub.toronto.edu (Brian Thomson)
;Newsgroups: sci.lang.japan
;Subject: Re: repair-jis.c program
;Message-ID: <1991Sep30.115015.10125@jarvis.csri.toronto.edu>
;Date: 30 Sep 91 15:50:15 GMT

$B$H$$$&$b$N$r0&MQ$7$F$$$^$9!#(BC-r $B$K%P%$%s%I$7$F$"$j$^$9!#(B
$B#R!%EDCfFsO:(B
----------------------------------------------------------------
(defun recover-kanji ()
  (interactive)
  (let ((buffer-read-only nil)(kanji-flag nil))
    (save-excursion
      (goto-char (point-min))
      (while (search-forward "$" (point-max) t)
        (if (looking-at "[@B]")
            (let (beg)
              (backward-char 1)
              (insert ?\e)
              (forward-char 2)
              (setq beg (point))
              (while (and (search-forward "(" (point-max) t)
                          (not (and (looking-at "[JBH]")
                                    (= 1 (% (- (point) beg) 2))
                                    (progn
                                      (backward-char 1)
                                      (insert ?\e)
                                      t))))))))
      (convert-region-kanji-code (point-min) (point-max) 2 3))))

(defun recover-other-window ()
  (interactive)
  (save-excursion
    (set-buffer "*Article*")
    (recover-kanji)))

(setq gnus-Subject-mode-hook
   '(lambda ()
(define-key gnus-Subject-mode-map "\C-r" 'recover-other-window)
 ))
----------------------------------------------------------------
--
< jiro@math.keio.ac.jp > < JR3JXE/1 >
