[Mew-Win32 01853] Re: mew-win32-mvm の動作がおかしいかも知れません？

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Satomi Suzuki <pan at example.com> さん曰く
Subject: [Mew-Win32 01852] Re: mew-win32-mvm の動作がおかしいかも知れません？
Message-ID: <19990830125701N.pan at example.com>
Date: Mon, 30 Aug 1999 12:57:01 +0900 (JST)

>>>>> In [Mew-Win32 : No.01851] 
>>>>> “白井” = Hideyuki SHIRAI (白井秀行) <shirai at example.com> さま曰く

ぱん> mew-cite-color.el って凄いですよね (^^)
ぱん> 名前付き引用でもちゃんと根本の名前の部分から色が変るし

mew-cite-color.el じゃなくてオリジナルの message-cite-color.el
(森本茂樹さん作)がすごいんです。:-)

ぱん> 私はどうしても、guns で受信した記事を Mew で読みたいので
ぱん> Mew のメールフォルダの中に News/agent/... って指定して
ぱん> Mew から g して読めるようにしています。(^^)

まぁ、似たようなことを。。。
(だけど、folder が深すぎてめげてしまいました)

ぱん> 私は皆さん沢山メール受信しているから気が付かないだけだと
ぱん> 思っておりました。(((;^^)/

うぅ、ごめんなさい。(__)

ぱん> もうひとつ、私の契約しているプロバイザのひとつで
ぱん> 何故か、メール本文の最後に変な文字が入ってしまいます。

ぱん> テスト送信です



  
ぱん>               ~~~~~~~~
ぱん>                ↑この文字が書いてもいないのに最後に入ってしまいます。

白井> これは各 message ごとですか？ それとも、get した一連の最後の
白井> message ですか？

ぱん> 今まで１通しか送って試していませんでしたが
ぱん> ３通まとめて送ってみたら、なんと！！ダイアログの受信数は３になって
ぱん> いましたが、最初と最後のメールが消えてしまい、２通目のメールしか
ぱん> 表示されませんでした。 (^^;;

ぱん> で、このメールの本文の最後に怪しげな（笑）文字が入っていました。

うぅ、ごめんなさい。全然原因が思いつかないので、debug お願いしま
す。
Mew を起動したあとに下記の関数を評価すると、movemail が貰ってき
たそのままの内容が "~/debug.txt" に保存されます。
(通常の imget 動作はしません)

(defun mew-win32-mvm-store (crashbox)
  "Movemail crashbox to mew inbox."
  (interactive "fCrashbox: ")
  (copy-file crashbox (expand-file-name "debug.txt" "~/")))

その debug.txt を gzip して(LHA とかでもいいです)私あてに送って
貰えないでしょうか？

# まずい内容のメールが含まれていたらやめてくださいね。^^;;;


お詫びに最近の私の mew-cite-color.el の設定をつけておきます。
最後にやったのは "(か)>" 対策かな？

(cond
 ((locate-library "mew-cite-color")
  (eval-after-load "mew" '(require 'mew-cite-color))
  (defadvice mew-draft-cite (after mew-draft-cite-color activate)
    (mew-cite-color))
  (defadvice mew-caesar-whole-buffer (after mew-caesar-summary-cite-color activate)
    (if (eq major-mode 'mew-message-mode)
	(mew-cite-color)))

  (setq mew-cite-color-non-prefix-length 20)
  (setq mew-cite-color-comment-face-type 'italic)
  (setq mew-cite-color-max-line 200)
  (setq mew-cite-color-prefix-regexp
	"^\\([ \t　]*\\(\\(\\(\[》≫＞>|]+[ \t　]?\\)\\|\\([-.a-zA-Z0-9'@_ー　＿-龠()]*[＞>]+[ \t　]?\\)\\)[ \t　]*\\)+\\)")
  ;; (setq mew-cite-color-non-prefix-regexp "^.*[-<＜《≪=]")
  (setq mew-cite-color-non-prefix-regexp "^.*[<＜《≪=]")
  (setq mew-cite-color-non-body-regexp
        "\\(^.*>>>>>\\)\\|\\(>+.*[ \t]*in article\\)\\|\\(>+[ \t]*in message\\)\\|\\(^[ \t　]*|[ \t　]+/\\)\\|\\(^.*の刻に\\)\\|\\(^.*曰く$\\)\\(^>+ *On .*\\)\\|\\(^>+ .*said:\\)")
  ))

;; xcite ユーザさんへ無保証のおまけ。
(defvar xcite-cite-msg-ref-msgid nil)

(add-hook
 'xcite:cite-hook
 '(lambda ()
    (setq xcite-cite-msg-ref-msgid msgid)
    ))

(defadvice xcite-yank-cur-msg (before xcite-add-refences activate)
  (setq xcite-cite-msg-ref-msgid nil))
  
(defadvice xcite-yank-cur-msg (after xcite-add-refences activate)
  (save-excursion
    (save-restriction
      (widen)
      (goto-char (point-min))
      (if (functionp 'mew-cite-color)
          (mew-cite-color))
      (let ((ref-msgid xcite-cite-msg-ref-msgid)
            (ref (mew-header-get-value mew-references:))
            (refl nil) rb)
        (if (not ref)
            ()
          (setq rb ref)
          (while (string-match "<[^>]+>" rb)
            (setq refl (cons (mew-match 0 rb) refl)) 
            (setq rb (substring rb (match-end 0))))
          (if (member ref-msgid refl)
              (setq ref-msgid nil)))
        (if (null ref-msgid)
            ()
          (setq ref (concat ref (if ref "\n\t") ref-msgid))
          (mew-header-delete-lines (list mew-references:))
          (if (null refl)
              (goto-char (mew-header-end)))
          (mew-draft-header-insert mew-references: ref)))
      (setq xcite-cite-msg-ref-msgid nil))))

-- 
白井秀行 (mailto:shirai at example.com)