mime-preview-follow-current-entity

[Akihiro Arisawa]

有沢です。

>>>>> In [emacs-mime-ja : No.00229] 
>>>>>	ueno ＠ unixuser.org (Daiki Ueno) wrote:

>> User-Agentの環境ですが、暗号化されたメールをデコードして
>> 表示している時に、a(mime-preview-follow-current-entity)を
>> 実行するとエラーになってしまいます。
> ;; mu-cite の設定を外さずにテストしていました...

今までは、gnus-following-method を書き換えて xcite を使って
いたので、エラーにはならなかったので無視してました(^^;

ちなみに、私は mime-view-following-required-fields-list に
以下のようにがっつり設定しています。
(setq mime-view-following-required-fields-list
      '("From" "Message-ID" "Subject" "Date" "To" "Cc" "Reply-To"
	"Newsgroups" "Followup-To" "Distribution"))
＃デフォルトのFromだけでは、暗号化されたメールに対して a でリプライ
＃した時に不幸せに…。

>>>>> In [semi-gnus-ja : No.4667] 
>>>>>	ari ＠ atesoft.advantest.co.jp (Akihiro Arisawa) wrote:

> また、message/rfc-822なパートで実行した場合にも別のエラーとなりますが、
> そっちは調べてません(^^;

こっちは mime-entity-children は entity の list を返すのに、それを
引数として mime-entity-header-buffer を実行してしまっているのが
原因でした。

-------------- next part --------------
1999-12-16  Akihiro Arisawa  <ari ＠ atesoft.advantest.co.jp>

	* mime-view.el (mime-preview-follow-current-entity): Fix problem
	when Content-Type is "message/rfc-822".

Index: mime-view.el
===================================================================
RCS file: /hare/cvs/root/semi/mime-view.el,v
retrieving revision 1.149.2.20.2.2
diff -u -r1.149.2.20.2.2 mime-view.el
--- mime-view.el	1999/12/15 02:06:57	1.149.2.20.2.2
+++ mime-view.el	1999/12/16 06:30:45
@@ -1329,7 +1329,7 @@
           (let ((current-entity
 		 (if (and (eq (mime-entity-media-type entity) 'message)
 			  (eq (mime-entity-media-subtype entity) 'rfc822))
-		     (mime-entity-children entity)
+		     (car (mime-entity-children entity))
 		   entity))
 		str)
 	    (while (and current-entity
-------------- next part --------------

-- 
(株)アドバンテスト 有沢 明宏
 Office: ari ＠ mei9.advantest.co.jp