Bug? "A" for forwarded message

[Yuuichi Teranishi]

Cc: emacs-mime-ja ＠ m17n.org
mime-preview-follow-current-entity の話です。

At Wed, 9 Feb 2000 14:55:00 +0900,
TSUMURA Tomoaki <tsumura ＠ kuis.kyoto-u.ac.jp> wrote:
> 
> > 結局どうなったか忘れてしまいました。
> > 最近の SEMI variant なら直ってる気がします。
> 
> とりあえず EMIKO, EMY, REMI を試してみましたが，私の手許では
> 北目さんの仰言るようになります。私の環境が悪いですか?

あーー、ごめんなさい。
再現しないなあと思ったら、
次のパートみたいなのが ~/.wl に書いてありました _o_。

X-ML-Name: emacs-mime-ja
X-Mail-Count: 00015
Message-Id: <yosuzowyelps.fsf ＠ jpl.org>
の山岡さんの記事が出どころと思います。

SEMI-1.13 系にマージするべきとかいう話があった気がする
のですが、結局どうなったのでしたでしょうか？

-------------- next part --------------
(eval-after-load "mime-view"
'(defun mime-preview-follow-current-entity ()
  "Write follow message to current entity.
It calls following-method selected from variable
`mime-preview-following-method-alist'."
  (interactive)
  (let ((entity (get-text-property (point) 'mime-view-entity)))
    (if entity
	(let* ((mode (mime-preview-original-major-mode 'recursive))
	       (method (cdr (assq mode mime-preview-following-method-alist))))
	  (if (not (functionp method))
	      (message
	       (format
		"Sorry, following method for %s is not implemented yet."
		mode))
	    (let (header)
	      (let (child)
		(while (and entity
			    (eq 'message (mime-entity-media-type entity))
			    (eq 'rfc822 (mime-entity-media-subtype entity))
			    (setq child (car (mime-entity-children entity))))
		  (setq header t
			entity child)))
	      (or header
		  (let ((parent (mime-entity-parent entity)))
		    (setq header
			  (and
			   parent
			   (eq 'message (mime-entity-media-type parent))
			   (eq 'rfc822 (mime-entity-media-subtype parent))))))
	      (let* ((start (text-property-any (point-min) (point-max)
					       'mime-view-entity entity))
		     (end start)
		     (node-id (mime-entity-node-id entity)))
		(if node-id
		    (let ((len (length node-id))
			  next)
		      (while (and
			      (<= end (point-max))
			      (setq end (or (next-single-property-change
					     end 'mime-view-entity)
					    (point-max))
				    next (get-text-property end
							    'mime-view-entity))
			      (> (length (mime-entity-node-id next)) len))))
		  (setq header t
			end (point-max)))
		(let ((buffer (get-buffer-create
			       (format "%s-%s" (buffer-name)
				       (reverse node-id))))
		      (content (buffer-substring-no-properties start end)))
		  (with-current-buffer buffer
		    (erase-buffer)
		    (if header
			(insert content)
		      (mime-insert-header (or (mime-entity-parent entity)
					      entity))
		      (mime-decode-header-in-buffer)
		      (goto-char (point-max))
		      (insert "\n" content)))
		  (funcall method buffer))))))))))

-------------- next part --------------

> 私は Wanderlust の mime-preview-follow-current-entity の使い方が
> 間違ってて，
> それは [tm-ja 5467] あたりとの絡みで話が止まったままなんだと
> 認識してました。

;; うーん。やっぱり間違っているのかな...。
--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"There's nothing you can do that can't be done..."