Moodle開発者フォーラム

　考えてみたら，何も新しい関数を作成しないでも，mb_strwidth()を使用すれば良かったのですね．これで解決です．以下，実行結果です．

1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
１ ２ ３ ４ ５ ６ ７ ８ ９ ０ １ ２ ３ ４ ５ ６ ７ ８ ９ ０ １ ２ ３ ４ ５ ６
７ ８ ９ ０ １ ２ ３ ４ ５ ６ ７ ８ ９ ０ １ ２ ３ ４ ５ ６ ７ ８ ９ ０

　Webブラウザ上で見ると等幅フォントではないのでおかしく見えますが，メールクライアント上で見るとピッタリです．たとえば赤い文字の行で数えると，全角２６文字＋半角２６文字ですので，合わせて半角７８文字相当．これにあと全角文字１文字（’７’）を追加しようとすると半角８０文字相当で，ワードラップの制限値79byteを越えますので，ＯＫですね．

　それとワードラップの問題点は，

(a) あわあわあわ．．．あわわ　：合計１，０００文字強

が，

(a)　　　　　　　　　　　　←ワードラップで改行
あわあわあわ．．．あ　←998文字の制限で改行
わわ　　　　　　　　　　　←その残り

のように”半角空白で区切られていなければどんなに長くても一つの単語”と扱う点にもありますね．どうしてもワードラップしたいのならば，一つの単語の最大長を制限して，ブッツリと切るべきでしょうね．
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1113648291

ちなみに，上記ページを探している途中で見たページにあった，

Ｑ 「最も長い英単語はなんですか？」
Ａ　「longest」

には，

Ｑ 「レーザーの”略”は何ですか？」
Ａ 「レ」

なみに笑わせて貰いました．

　smtpで電子メールを送信する場合，先に述べたように，lib/phpmailer/class.smtp.phpのfunction Data()中で998byteを越える行を強制改行しているように見えます．

　その処理の始めに，$msg_data（多分，送信用文字コードに変換済み）を行単位に分割している処理があります．

        # normalize the line breaks so we know the explode works
        $msg_data = str_replace("\r\n","\n",$msg_data);
        $msg_data = str_replace("\r","\n",$msg_data);
        $lines = explode("\n",$msg_data);

これがUTF-8の状態で行なわれる処理ならば気にならないのですが，ISO-2022-JP等にエンコード後でも問題ないのでしょうか？　\rと\nはマルチバイトの２バイト目に現れない，のであれば私の杞憂．

手元の日本語文章で試した感じでは大丈夫そうです．UTF-8からISO-2022-JPに変換してから上記処理を行い，implode("\r\n", $msg_data)で連結してからUTF-8に戻しても文字化け無しでした．

　Moodleに組み込んで見ました．

　先ほどの実験用のプログラムのエンコード部分を引数渡しに（最初からしておけば良かった）しただけです．

// 一行が998byteを超えるマルチバイト文字列を含む文章をメール送信すると強制改行により文字化けする問題
// 再帰呼び出しのサブルーチン： function autocut998()より呼び出される
// $line : UTF-8
// $encode   : メール送信時に文字コード　ex) 'ISO-2022-JP'
function autocut998_sub($line, $max_line_length, $encode)
{
    if (($linelength = mb_strwidth($line)) == 0) return '';
    for ($offset = 1; $offset <= $linelength; $offset++) {
        if (strlen(mb_convert_encoding(mb_substr($line, 0, $offset+1), $encode, 'UTF-8')) >= $max_line_length) {
            $line = mb_substr($line, 0, $offset)."\n".autocut998_sub(mb_substr($line, $offset), $max_line_length, $encode);
            break;
        }
    }
    return $line;
}

// $msg_data : UTF-8
// $encode   : メール送信時に文字コード　ex) 'ISO-2022-JP'
function autocut998($msg_data, $encode)
{
    $max_line_length = 998; # used below; set here for ease in change
    $max_line_length -= 8;  // 自信が無いので安全のために

    # normalize the line breaks so we know the explode works
    $msg_data = str_replace("\r\n","\n",$msg_data);
    $msg_data = str_replace("\r","\n",$msg_data);
    $lines = explode("\n",$msg_data);
    foreach ($lines as $pos=>$line) {
        if (strlen(mb_convert_encoding($line, $encode, 'UTF-8')) > $max_line_length) {
            $lines[$pos] = autocut998_sub($line, $max_line_length, $encode);
        }
    }
    $msg_data = implode("\n", $lines);
    return $msg_data;
}

これをたとえばlib/moodlelib.phpに追加し，lib/moodlelib.phpのfunction email_to_user()の以下の箇所を修正すれば，一行が猛烈に長い日本語文章をメールで送っても文字化けしませんでした．

        $charsets = get_list_of_charsets();
        unset($charsets['UTF-8']);
        if (in_array($charset, $charsets)) {
        /// Save the new mail charset
            $mail->CharSet = $charset;
        /// And convert some strings
            $mail->FromName = $textlib->convert($mail->FromName, 'utf-8', $mail->CharSet); //From Name
            foreach ($mail->ReplyTo as $key => $rt) {                                      //ReplyTo Names
                $mail->ReplyTo[$key][1] = $textlib->convert($rt[1], 'utf-8', $mail->CharSet);
            }
            $mail->Subject = $textlib->convert($mail->Subject, 'utf-8', $mail->CharSet);   //Subject
            foreach ($mail->to as $key => $to) {
                $mail->to[$key][1] = $textlib->convert($to[1], 'utf-8', $mail->CharSet);
            }
// ここから追加
            $mail->Body    = autocut998($mail->Body,    $mail->CharSet);
            $mail->AltBody = autocut998($mail->AltBody, $mail->CharSet);
// ここまで追加
            $mail->Body = $textlib->convert($mail->Body, 'utf-8', $mail->CharSet);         //Body
            $mail->AltBody = $textlib->convert($mail->AltBody, 'utf-8', $mail->CharSet);   //Subject
        }
    }
// ここから追加
    if (empty($charset) || (strtoupper($charset) === 'UTF-8')) {
        $mail->Body    = autocut998($mail->Body,    'UTF-8');
        $mail->AltBody = autocut998($mail->AltBody, 'UTF-8');
    }
// ここまで追加

    if ($mail->Send()) {

　上の赤いブロックは確認済みですが，”メール送信用の文字コードを指定していない（生で送信，つまりUTF-8）”かつ”ユーザに選択を許していない”場合と，”ユーザに選択を許している”かつ”ユーザがUTF-8を選択してる”場合は上のブロックは通りませんので，下の赤いブロックが必要なはずです．UTF-8の場合も改行コードを挿入されて途中で強制的に切られると文字化けするでしょう．autocut998()の内部ではUTF-8からUTF-8に変換する不毛な処理を行うことになりますが，場合分けすると余計に手間が増えそうなので特別な処理を行いません．

　なお，２箇所の[1]は，Trackerにも報告済みですがMoodleのバグです．もし欠けている場合は追加して下さい．