[Mew-dist 448] ispell in mew-send-hook

[Mikio Nakajima]

  中島＠あさひねっとです。

  少し前に、本文が us-ascii のときだけ ispell をかけて発信するよう
に mew-send-hook に入れる関数を書きましたが、uuencode したコードの
みを同封したメールでも us-ascii と判定された場合は、ispell がかかっ
てしまうので、q で ispell を抜けたくなります。

以前のバージョンでは、ispell-message が正常終了したときだけ
mew-draft-send-letter が実行されるので、q で抜けてしまったのではい
つまでもメールを送れない状態になります。

ちょっとした Tips ですが、以下のようにすれば、q で抜けたときにもメー
ルを発信することができます。問題点は、error をキャッチして
ispell-message を無理矢理終了させているので、ispell.el 内で本当にエ
ラーになった場合でもメール発信ができてしまうことですが、実際はそれ
ほど問題になるケースはないと思います。

中島幹夫 <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) )))))