[Mew-dist 451] ispell

[Mikio Nakajima]

  おはようございます、中島＠あさひねっとです。

  少し前に charset が us-ascii のときだけ ispell でチェックしてメー
ルを発信する、という小技を投稿いたしましたが、uuencode されたソース
をメールするときなどは、charset が us-ascii と判定されるにもかかわ
らず、ispell を q で抜けたくなります。

ところが ispell-message は q で抜けると error 扱いになっているため
に、q するといつまで経ってもメールを発信できない、という状態に陥いっ
てしまいます。下記のようにすることで、ispell を q で抜けてもそのま
まメールを発信することができるようになります。

問題点としては、ispell-message の中で本当にエラーになった場合にもメー
ルを発信することが挙げられますが、実用上はあまり気にすることはない
と思います。

中島幹夫 <gy2m-nkjm at example.com>





-------------- next part --------------
(add-hook 'mew-send-hook
          (function
           (lambda ()
             (if (string=
                  (mew-charset-guess-region mew-draft-buffer-header (point-max))
                  "us-ascii" )
                 (condition-case nil
                     (ispell-message)
                   (error nil) )))))