X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-view.el;h=30b5bd17ef683d2fa1a917767558a53c3fada210;hb=53ab6c426401d04d0d0ce99d6df144187be6ba01;hp=075446f41cbe400e46815ff5a5082a59e7336029;hpb=861f307ac7484a4212bd80dd71299abf078ee6cb;p=elisp%2Ftm.git

diff --git a/tm-view.el b/tm-view.el
index 075446f..30b5bd1 100644
--- a/tm-view.el
+++ b/tm-view.el
@@ -2,13 +2,13 @@
 ;;; tm-view.el --- interactive MIME viewer for GNU Emacs
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by Steven L. Baur <steve@miranova.com>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.39 $
+;;; Version: $Revision: 7.65 $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -38,13 +38,14 @@
 (require 'tm-ew-d)
 (require 'tm-def)
 (require 'tm-parse)
+(require 'tm-text)
 
 
 ;;; @ version
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.39 1995/12/25 07:54:02 morioka Exp $")
+  "$Id: tm-view.el,v 7.65 1996/05/23 16:45:10 shuhei-k Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -107,23 +108,24 @@
 (defvar mime-viewer/default-showing-Content-Type-list
   '("text/plain" nil "text/richtext" "text/enriched"
     "text/x-latex" "application/x-latex"
+    "message/delivery-status"
     "application/pgp" "text/x-pgp"
     "application/octet-stream"
     "application/x-selection" "application/x-comment"))
 
-(defvar mime-viewer/content-subject-omitting-Content-Type-list
+(defvar mime-viewer/content-button-ignored-ctype-list
   '("application/x-selection"))
 
-(defvar mime-viewer/content-subject-showing-Content-Type-list
+(defvar mime-viewer/content-button-visible-ctype-list
   '("application/pgp"))
 
 (defvar mime-viewer/uuencode-encoding-name-list '("x-uue" "x-uuencode"))
 
 (defvar mime-viewer/ignored-field-list
-  '(".*Received" ".*Path" ".*Id"
+  '(".*Received" ".*Path" ".*Id" "References"
     "Replied" "Errors-To"
-    "Lines" "Sender" "Nntp-Posting-Host" "Xref"
-    "Content-Type" "Precedence" "X-Face"
+    "Lines" "Sender" ".*Host" "Xref"
+    "Content-Type" "Precedence"
     "Status" "X-VM-.*")
   "All fields that match this list will be hidden in MIME preview buffer.
 Each elements are regexp of field-name. [tm-view.el]")
@@ -134,7 +136,7 @@ Each elements are regexp of field-name. [tm-view.el]")
 	  ":"))
 
 (defvar mime-viewer/visible-field-list
-  '("Message-Id")
+  '("Dnas.*" "Message-Id")
   "All fields that match this list will be displayed in MIME preview buffer.
 Each elements are regexp of field-name. [tm-view.el]")
 
@@ -191,54 +193,69 @@ Each elements are regexp of field-name. [tm-view.el]")
     ))
 
 
-;;; @@ content subject
+;;; @@ content button
 ;;;
 
-(defun mime-viewer/insert-content-subject
-  (rcnum cinfo ctype params subj)
+(defun mime-preview/insert-content-button
+  (rcnum cinfo ctype params subj encoding)
   (save-restriction
     (narrow-to-region (point)(point))
-    (insert
-     (let ((access-type (assoc "access-type" params))
-	   (num (or (assoc-value "x-part-number" params)
-		    (if (consp rcnum)
-			(mapconcat (function
-				    (lambda (num)
-				      (format "%s" (1+ num))
-				      ))
-				   (reverse rcnum) ".")
-		      "0"))
-		))
-       (if access-type
-	   (let ((server (assoc "server" params)))
-	     (setq access-type (cdr access-type))
-	     (if server
-		 (format "[%s %s ([%s] %s)]\n" num subj
-			 access-type (cdr server))
-	       (let ((site (assoc-value "site" params))
-		     (dir (assoc-value "directory" params))
-		     )
-		 (format "[%s %s ([%s] %s:%s)]\n" num subj
-			 access-type site dir)
-		 )))
-	 (format "[%s %s (%s)]\n" num subj ctype)
-	 )))
+    (let ((access-type (assoc "access-type" params))
+	  (charset (assoc "charset" params))
+	  (num (or (assoc-value "x-part-number" params)
+		   (if (consp rcnum)
+		       (mapconcat (function
+				   (lambda (num)
+				     (format "%s" (1+ num))
+				     ))
+				  (reverse rcnum) ".")
+		     "0"))
+	       ))
+      (cond (access-type
+	     (let ((server (assoc "server" params)))
+	       (setq access-type (cdr access-type))
+	       (if server
+		   (insert (format "[%s %s ([%s] %s)]\n" num subj
+				   access-type (cdr server)))
+		 (let ((site (assoc-value "site" params))
+		       (dir (assoc-value "directory" params))
+		       )
+		   (insert (format "[%s %s ([%s] %s:%s)]\n" num subj
+				   access-type site dir))
+		   )))
+	     )
+	    (t
+	     (insert (concat "[" num " " subj))
+	     (let ((rest
+		    (if (setq charset (cdr charset))
+			(if encoding
+			    (format " <%s; %s (%s)>]\n"
+				    ctype charset encoding)
+			  (format " <%s; %s>]\n" ctype charset)
+			  )
+		      (format " <%s>]\n" ctype)
+		      )))
+	       (if (>= (+ (current-column)(length rest))(window-width))
+		   (setq rest (concat "\n\t" rest))
+		 )
+	       (insert rest)
+	       ))))
     (tm:add-button (point-min)(1- (point-max))
 		   (function mime-viewer/play-content))
     ))
 
-(defun mime-viewer/default-content-subject-function
-  (rcnum cinfo ctype params subj)
+(defun mime-preview/default-content-button-function
+  (rcnum cinfo ctype params subj encoding)
   (if (and (consp rcnum)
 	   (not (member
 		 ctype
-		 mime-viewer/content-subject-omitting-Content-Type-list)))
-      (mime-viewer/insert-content-subject
-       rcnum cinfo ctype params subj)
+		 mime-viewer/content-button-ignored-ctype-list)))
+      (mime-preview/insert-content-button
+       rcnum cinfo ctype params subj encoding)
     ))
 
-(defvar mime-viewer/content-subject-function
-  (function mime-viewer/default-content-subject-function))
+(defvar mime-preview/content-button-function
+  (function mime-preview/default-content-button-function))
 
 
 ;;; @@ content header filter
@@ -276,18 +293,16 @@ Each elements are regexp of field-name. [tm-view.el]")
 ;;;
 
 (defvar mime-viewer/content-filter-alist
-  '(("text/plain"      . mime-viewer/filter-text/plain)
-    ("application/pgp" . mime-viewer/filter-text/plain)
-    (nil . mime-viewer/filter-text/plain)))
-
-(defun mime-viewer/default-content-filter (rcnum cinfo ctype params subj)
-  )
+  '(("text/enriched" . mime-preview/filter-for-text/enriched)
+    ("text/richtext" . mime-preview/filter-for-text/richtext)
+    (t . mime-preview/filter-for-text/plain)
+    ))
 
 
 ;;; @@ content separator
 ;;;
 
-(defun mime-viewer/default-content-separator (rcnum cinfo ctype params subj)
+(defun mime-preview/default-content-separator (rcnum cinfo ctype params subj)
   (if (and (not (mime-viewer/header-visible-p rcnum cinfo ctype))
 	   (not (mime-viewer/body-visible-p rcnum cinfo ctype))
 	   )
@@ -303,6 +318,7 @@ Each elements are regexp of field-name. [tm-view.el]")
 ;; for XEmacs
 (defvar mime::article/preview-buffer nil)
 (defvar mime::article/code-converter nil)
+(defvar mime::preview/article-buffer nil)
 
 (make-variable-buffer-local 'mime::article/content-info)
 (make-variable-buffer-local 'mime::article/preview-buffer)
@@ -328,13 +344,23 @@ Each elements are regexp of field-name. [tm-view.el]")
 (defvar mime-viewer/show-summary-method nil)
 
 
+;;; @@ following method
+;;;
+
+(defvar mime-viewer/following-method-alist nil)
+
+
 ;;; @@ X-Face
 ;;;
 
 ;; hack from Gnus 5.0.4.
 
+(defvar mime-viewer/x-face-to-pbm-command
+  "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm")
+
 (defvar mime-viewer/x-face-command
-  "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | xv -quit -"
+  (concat mime-viewer/x-face-to-pbm-command
+	  " | xv -quit -")
   "String to be executed to display an X-Face field.
 The command will be executed in a sub-shell asynchronously.
 The compressed face will be piped to this command.")
@@ -356,6 +382,18 @@ The compressed face will be piped to this command.")
 	  ))))
 
 
+;;; @@ utility
+;;;
+
+(defun mime-preview/get-original-major-mode ()
+  (if mime::preview/mother-buffer
+      (save-excursion
+	(set-buffer mime::preview/mother-buffer)
+	(mime-preview/get-original-major-mode)
+	)
+    mime::preview/original-major-mode))
+
+
 ;;; @ data structures
 ;;;
 
@@ -383,42 +421,36 @@ The compressed face will be piped to this command.")
     ret))
 
 (defun mime-viewer/make-preview-buffer (&optional obuf)
-  (let ((cinfo mime::article/content-info)
-	(the-buf (current-buffer))
-	(mode major-mode)
-	pcl dest)
+  (let* ((cinfo mime::article/content-info)
+	 (pcl (mime/flatten-content-info cinfo))
+	 (dest (make-list (length pcl) nil))
+	 (the-buf (current-buffer))
+	 (mode major-mode)
+	 )
     (or obuf
-	(setq obuf (concat "*Preview-" (buffer-name the-buf) "*"))
-	)
-    (setq pcl (mime/flatten-content-info cinfo))
-    (let ((bf (get-buffer obuf)))
-      (if bf
-	  (progn
-	    (set-buffer obuf)
-	    (setq buffer-read-only nil)
-      	    (erase-buffer)
-	    )
-	(setq bf (get-buffer-create obuf))
-	(set-buffer obuf)
-	))
+	(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
+    (set-buffer (get-buffer-create obuf))
+    (setq buffer-read-only nil)
+    (widen)
+    (erase-buffer)
     (setq mime::preview/article-buffer the-buf)
     (setq mime::preview/original-major-mode mode)
     (setq major-mode 'mime/viewer-mode)
     (setq mode-name "MIME-View")
-    (setq dest
-	  (mapcar
-	   (function
-	    (lambda (content)
-	      (mime-viewer/display-content content cinfo the-buf obuf)
-	      ))
-	   pcl))
+    (let ((drest dest))
+      (while pcl
+	(setcar drest
+		(mime-preview/display-content (car pcl) cinfo the-buf obuf))
+	(setq pcl (cdr pcl)
+	      drest (cdr drest))
+	))
     (set-buffer-modified-p nil)
     (setq buffer-read-only t)
     (set-buffer the-buf)
     (list obuf dest)
     ))
 
-(defun mime-viewer/display-content (content cinfo ibuf obuf)
+(defun mime-preview/display-content (content cinfo ibuf obuf)
   (let* ((beg (mime::content-info/point-min content))
 	 (end (mime::content-info/point-max content))
 	 (ctype (mime::content-info/type content))
@@ -443,37 +475,34 @@ The compressed face will be piped to this command.")
     (set-buffer obuf)
     (setq nb (point))
     (narrow-to-region nb nb)
-    (funcall mime-viewer/content-subject-function
-	     rcnum cinfo ctype params subj)
-    (set-buffer ibuf)
+    (funcall mime-preview/content-button-function
+	     rcnum cinfo ctype params subj encoding)
     (if (mime-viewer/header-visible-p rcnum cinfo ctype)
-	(mime-viewer/display-header beg he obuf)
+	(mime-preview/display-header beg he)
       )
     (if (and (null rcnum)
 	     (member
-	      ctype mime-viewer/content-subject-showing-Content-Type-list))
+	      ctype mime-viewer/content-button-visible-ctype-list))
 	(save-excursion
-	  (set-buffer obuf)
 	  (goto-char (point-max))
-	  (mime-viewer/insert-content-subject rcnum cinfo ctype params subj)
+	  (mime-preview/insert-content-button
+	   rcnum cinfo ctype params subj encoding)
 	  ))
     (cond ((mime-viewer/body-visible-p rcnum cinfo ctype)
-	   (mime-viewer/display-body he end obuf
-				     rcnum cinfo ctype params subj encoding)
+	   (mime-preview/display-body he end
+				      rcnum cinfo ctype params subj encoding)
 	   )
 	  ((equal ctype "message/partial")
-	   (mime-viewer/display-message/partial obuf)
+	   (mime-preview/display-message/partial)
 	   )
 	  ((and (null rcnum)
 		(null (mime::content-info/children cinfo))
 		)
-	   (set-buffer obuf)
 	   (goto-char (point-max))
-	   (mime-viewer/insert-content-subject rcnum cinfo ctype params subj)
-	   )
-	  (t (set-buffer obuf))
-	  )
-    (mime-viewer/default-content-separator rcnum cinfo ctype params subj)
+	   (mime-preview/insert-content-button
+	    rcnum cinfo ctype params subj encoding)
+	   ))
+    (mime-preview/default-content-separator rcnum cinfo ctype params subj)
     (prog1
 	(progn
 	  (setq ne (point-max))
@@ -483,40 +512,32 @@ The compressed face will be piped to this command.")
       (goto-char ne)
       )))
 
-(defun mime-viewer/display-header (beg end obuf)
-  (let ((str (buffer-substring beg end))
-	(f (assq major-mode mime-viewer/content-header-filter-alist))
-	)
-    (save-excursion
-      (set-buffer obuf)
-      (save-restriction
-	(narrow-to-region (point)(point))
-	(insert str)
-	(if (and f (setq f (cdr f)))
-	    (funcall f)
-	  (mime-viewer/default-content-header-filter)
-	  )
-	(run-hooks 'mime-viewer/content-header-filter-hook)
-	))))
+(defun mime-preview/display-header (beg end)
+  (save-restriction
+    (narrow-to-region (point)(point))
+    (insert-buffer-substring mime::preview/article-buffer beg end)
+    (let ((f (cdr (assq mime::preview/original-major-mode
+			mime-viewer/content-header-filter-alist))))
+      (if (functionp f)
+	  (funcall f)
+	(mime-viewer/default-content-header-filter)
+	))
+    (run-hooks 'mime-viewer/content-header-filter-hook)
+    ))
 
-(defun mime-viewer/display-body (beg end obuf
-				     rcnum cinfo ctype params subj encoding)
-  (let ((str (buffer-substring beg end))
-	be)
-    (set-buffer obuf)
-    (save-restriction
-      (setq be (point-max))
-      (narrow-to-region be be)
-      (insert str)
-      (let ((f (assoc-value ctype mime-viewer/content-filter-alist)))
-	(if (and f (fboundp f))
-	    (funcall f ctype params encoding)
-	  (mime-viewer/default-content-filter rcnum cinfo ctype params subj)
-	  ))
+(defun mime-preview/display-body (beg end
+				      rcnum cinfo ctype params subj encoding)
+  (save-restriction
+    (narrow-to-region (point-max)(point-max))
+    (insert-buffer-substring mime::preview/article-buffer beg end)
+    (let ((f (cdr (or (assoc ctype mime-viewer/content-filter-alist)
+		      (assq t mime-viewer/content-filter-alist)))))
+      (and (functionp f)
+	   (funcall f ctype params encoding)
+	   )
       )))
 
-(defun mime-viewer/display-message/partial (obuf)
-  (set-buffer obuf)
+(defun mime-preview/display-message/partial ()
   (save-restriction
     (goto-char (point-max))
     (if (not (search-backward "\n\n" nil t))
@@ -642,58 +663,6 @@ The compressed face will be piped to this command.")
     ))
 
 
-;;; @ content filter
-;;;
-
-(defvar mime-viewer/code-converter-alist
-  '((mime/show-message-mode . mime/code-convert-region-to-emacs))
-  )
-
-(defun mime-viewer/default-code-convert-region
-  (beg end charset &optional encoding)
-  (if (member encoding '("quoted-printable" "base64"))
-      (mime/code-convert-region-to-emacs beg (point-max) charset)
-    ))
-
-(defun mime-preview/decode-text-region (beg end charset encoding)
-  (mime/decode-region encoding beg end)
-  (let* ((mode mime::preview/original-major-mode)
-	 (m (or (save-excursion
-		  (set-buffer mime::preview/article-buffer)
-		  mime::article/code-converter)
-		(cdr (assq mode mime-viewer/code-converter-alist))
-		))
-	 )
-    (if (and m (fboundp m))
-	(funcall m beg (point-max) charset encoding)
-      (mime-viewer/default-code-convert-region
-       beg (point-max) charset encoding)
-      )))
-
-(defun mime-viewer/filter-text/plain (ctype params encoding)
-  (let ((charset (cdr (assoc "charset" params)))
-	(beg (point-min)) (end (point-max))
-	)
-    (mime-preview/decode-text-region beg end charset encoding)
-    )
-  (goto-char (point-max))
-  (if (not (eq (char-after (1- (point))) ?\n))
-      (insert "\n")
-    )
-  (if browse-url-browser-function
-      (progn
-	(goto-char (point-min))
-	(while (re-search-forward tm:URL-regexp nil t)
-	  (let ((beg (match-beginning 0))
-		(end (match-end 0)))
-	    (tm:add-button beg end
-			   (function tm:browse-url)
-			   (list (buffer-substring beg end))))
-	  )))
-  (run-hooks 'mime-viewer/plain-text-preview-hook)
-  )
-
-
 ;;; @ MIME viewer mode
 ;;;
 
@@ -739,7 +708,9 @@ The compressed face will be piped to this command.")
       (define-key mime/viewer-mode-map
 	"\C-c\C-p" (function mime-viewer/print-content))
       (define-key mime/viewer-mode-map
-	"f"        (function mime-viewer/display-x-face))
+	"x"        (function mime-viewer/display-x-face))
+      (define-key mime/viewer-mode-map
+	"a"        (function mime-viewer/follow-content))
       (define-key mime/viewer-mode-map
 	"q"        (function mime-viewer/quit))
       (define-key mime/viewer-mode-map
@@ -750,11 +721,13 @@ The compressed face will be piped to this command.")
         "<"        (function beginning-of-buffer))
       (define-key mime/viewer-mode-map
         ">"        (function end-of-buffer))
+      (define-key mime/viewer-mode-map
+        "?"        (function describe-mode))
       (if mouse-button-2
 	  (define-key mime/viewer-mode-map
 	    mouse-button-2 (function tm:button-dispatcher))
 	)
-      (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+      (cond (running-xemacs
 	     (defvar mime-viewer/xemacs-popup-menu
 	       (cons mime-viewer/menu-title
 		     (mapcar (function
@@ -806,7 +779,8 @@ M-RET		Move to previous line
 v		Decode current content as `play mode'
 e		Decode current content as `extract mode'
 C-c C-p		Decode current content as `print mode'
-f		Display X-Face
+a		Followup to current content.
+x		Display X-Face
 q		Quit
 button-2	Move to point under the mouse cursor
         	and decode current content as `play mode'
@@ -892,6 +866,97 @@ listed in key order:
     (mime-preview/decode-content)
     ))
 
+(defun mime-viewer/follow-content ()
+  (interactive)
+  (let ((root-cinfo
+	 (mime::preview-content-info/content-info
+	  (car mime::preview/content-list)))
+	pc p-beg p-end cinfo rcnum)
+    (let ((rest mime::preview/content-list)
+	  b e cell len rc)
+      (if (catch 'tag
+	    (while (setq cell (car rest))
+	      (setq b (mime::preview-content-info/point-min cell)
+		    e (mime::preview-content-info/point-max cell))
+	      (setq rest (cdr rest))
+	      (if (and (<= b (point))(<= (point) e))
+		  (throw 'tag cell)
+		)
+	      ))
+	  (progn
+	    (setq pc cell
+		  cinfo (mime::preview-content-info/content-info pc)
+		  rcnum (mime::content-info/rcnum cinfo))
+	    (setq len (length rcnum))
+	    (setq p-beg (mime::preview-content-info/point-min pc)
+		  p-end (mime::preview-content-info/point-max pc))
+	    (while (and (setq cell (car rest))
+			(progn
+			  (setq rc
+				(mime::content-info/rcnum
+				 (mime::preview-content-info/content-info
+				  cell)))
+			  (equal rcnum
+				 (nthcdr (- (length rc) len) rc))
+			  ))
+	      (setq p-end (mime::preview-content-info/point-max cell))
+	      (setq rest (cdr rest))
+	      ))))
+    (if pc
+	(let* ((mode (mime-preview/get-original-major-mode))
+	       (new-name (format "%s-%s" (buffer-name) (reverse rcnum)))
+	       new-buf
+	       (the-buf (current-buffer))
+	       (a-buf mime::preview/article-buffer)
+	       (hb (mime::content-info/point-min cinfo))
+	       (he (mime::content-info/point-max cinfo))
+	       fields from to cc reply-to subj mid f)
+	  (save-excursion
+	    (set-buffer (setq new-buf (get-buffer-create new-name)))
+	    (erase-buffer)
+	    (insert-buffer-substring the-buf p-beg p-end)
+	    (goto-char (point-min))
+	    (if (mime-viewer/header-visible-p rcnum root-cinfo)
+		(delete-region (goto-char (point-min))
+			       (if (re-search-forward "^$" nil t)
+				   (match-end 0)
+				 (point-min)))
+	      )
+	    (goto-char (point-min))
+	    (insert "\n")
+	    (goto-char (point-min))
+	    (let ((rcnum (mime::content-info/rcnum cinfo)) ci str)
+	      (while (progn
+		       (setq str
+			     (save-excursion
+			       (set-buffer a-buf)
+			       (setq ci (mime-article/rcnum-to-cinfo rcnum))
+			       (save-restriction
+				 (narrow-to-region
+				  (mime::content-info/point-min ci)
+				  (mime::content-info/point-max ci)
+				  )
+				 (rfc822/get-header-string-except
+				  (concat "^"
+					  (apply (function regexp-or) fields)
+					  ":") ""))))
+		       (if (string-equal (mime::content-info/type ci)
+					 "message/rfc822")
+			   nil
+			 (if str
+			     (insert str)
+			   )
+			 rcnum))
+		(setq fields (rfc822/get-field-names)
+		      rcnum (cdr rcnum))
+		)
+	      )
+	    (mime/decode-message-header)
+	    )
+	  (funcall (cdr (assq mode mime-viewer/following-method-alist))
+		   new-buf)
+	  ))))
+
 (defun mime-viewer/display-x-face ()
   (interactive)
   (save-window-excursion
@@ -901,29 +966,26 @@ listed in key order:
 
 (defun mime-viewer/up-content ()
   (interactive)
-  (let ((pc (mime-preview/point-pcinfo (point))) cinfo
-	(the-buf (current-buffer))
-	rcnum r)
-    (switch-to-buffer (mime::preview-content-info/buffer pc))
-    (setq cinfo (mime::preview-content-info/content-info pc))
-    (setq rcnum (mime::content-info/rcnum cinfo))
-    (if (null rcnum)
-	(mime-viewer/quit the-buf
-			  (mime::preview-content-info/buffer pc)
-			  )
-      (setq r (mime-article/rcnum-to-cinfo (cdr rcnum)))
-      (switch-to-buffer the-buf)
-      (catch 'tag
-	(let ((rpcl mime::preview/content-list) cell)
-	  (while rpcl
-	    (setq cell (car rpcl))
-	    (if (eq r (mime::preview-content-info/content-info cell))
-		(progn
-		  (goto-char (mime::preview-content-info/point-min cell))
-		  (throw 'tag nil)
-		  ))
+  (let* ((pc (mime-preview/point-pcinfo (point)))
+	 (cinfo (mime::preview-content-info/content-info pc))
+	 (rcnum (mime::content-info/rcnum cinfo))
+	 )
+    (if rcnum
+	(let ((r (save-excursion
+		   (set-buffer (mime::preview-content-info/buffer pc))
+                   (mime-article/rcnum-to-cinfo (cdr rcnum))
+		   ))
+	      (rpcl mime::preview/content-list)
+	      cell)
+	  (while (and
+		  (setq cell (car rpcl))
+		  (not (eq r (mime::preview-content-info/content-info cell)))
+		  )
 	    (setq rpcl (cdr rpcl))
-	    )))
+	    )
+	  (goto-char (mime::preview-content-info/point-min cell))
+	  )
+      (mime-viewer/quit)
       )))
 
 (defun mime-viewer/previous-content ()
@@ -1079,3 +1141,5 @@ listed in key order:
 (provide 'tm-view)
 
 (run-hooks 'tm-view-load-hook)
+
+;;; tm-view.el ends here