mime-preview-follow-current-entity

[Katsumi Yamaoka]

>>>>> In [tm(ja) / tm ML (日本語版) : No.5470] 
>>>>>	Katsumi Yamaoka <yamaoka ＠ jpl.org> wrote:

山岡> とりあえず津邑さんのパッチは後で commit します。

もう一点、フォワードされたメッセージを MIME-View で表示しているとき

"[2  <message/rfc822 (7bit)>]"

といった entity button の場所とその一行下のヘッダでは entity の値が異
なるため、この button の場所で M-x mime-preview-follow-current-entity
または a キーをタイプすると、followup の対象となるメッセージとしては

"[2  <message/rfc822 (7bit)>]"

この button のテキストだけが抽出されてしまいます。
多分に付け焼き刃ではありますが以下の変更をお許し願えますでしょうか?
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: mime-view.el.diff
型:         application/octet-stream
サイズ:     591 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/emacs-mime-ja/attachments/19991028/b4f9791c/attachment.obj>
-------------- next part --------------
山岡> ;; gnus-following-method は gnus-art.el から gnus-msg.el に移し
山岡> ;; て検討して gnus-setup-message を被せた関数に変更する検討をし
山岡> ;; ています。

;; 検討して検討↑した結果 (^^;;)、gnus-following-method は次のようにし
;; ようと思っています。

(defun gnus-following-method (buf)
  (gnus-setup-message 'reply-yank
    (set-buffer buf)
    (if (message-news-p)
	(message-followup)
      (message-reply nil 'wide))
    (let ((message-reply-buffer buf))
      (message-yank-original))
    (message-goto-body))
  (kill-buffer buf))
-- 
Katsumi Yamaoka <yamaoka ＠ ga.sony.co.jp>