X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-partial.el;h=c2dfcbc10486b81c8158790c560f77b9f882c603;hb=b77b17617ad6e2d752ffa07cc4232a54c6ebae81;hp=755c017f953db5d274bdbc72c57928da42f00063;hpb=d76805c485e461fecda9a4a7ea7d6e237fe13436;p=elisp%2Ftm.git

diff --git a/tm-partial.el b/tm-partial.el
index 755c017..c2dfcbc 100644
--- a/tm-partial.el
+++ b/tm-partial.el
@@ -1,35 +1,49 @@
-;;; 
 ;;; tm-partial.el --- Grabbing all MIME "message/partial"s.
-;;; 
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 OKABE Yasuo
-;;; Copyright (C) 1995 MORIOKA Tomohiko
-;;;
-;;; Author: OKABE Yasuo @ Kyoto University
-;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;	$Id: tm-partial.el,v 7.10 1995/10/25 05:25:28 morioka Exp $ 
-;;; Keywords: mail, news, MIME, multimedia, message/partial
-;;;
-;;; This file is a part of tm (Tools for MIME).
-;;;
+
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+
+;; Author: OKABE Yasuo @ Kyoto University
+;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Version:
+;;	$Id: tm-partial.el,v 7.15 1997/02/01 18:01:25 morioka Exp $ 
+;; Keywords: mail, news, MIME, multimedia, message/partial
+
+;; This file is a part of tm (Tools for MIME).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
 
 (require 'tm-view)
+(require 'tm-play)
 
 (defvar tm-partial/preview-article-method-alist nil)
    
 ;; display Article at the cursor in Subject buffer.
 (defun tm-partial/preview-article (target)
-  (let ((f (assq target tm-partial/preview-article-method-alist)))
-    (if f
-	(funcall (cdr f))
-      (error "Fatal. Unsupported mode")
-      )))
+  (save-window-excursion
+    (let ((f (assq target tm-partial/preview-article-method-alist)))
+      (if f
+	  (funcall (cdr f))
+	(error "Fatal. Unsupported mode")
+	))))
 
 (defun mime-article/grab-message/partials (beg end cal)
   (interactive)
   (let* ((id (cdr (assoc "id" cal)))
-	 (buffer (generate-new-buffer id))
 	 (mother mime::article/preview-buffer)
 	 (target (cdr (assq 'major-mode cal)))
 	 (article-buffer (buffer-name (current-buffer)))
@@ -49,43 +63,41 @@
     (if (or (file-exists-p full-file)
 	    (not (y-or-n-p "Merge partials?"))
 	    )
-	(progn
-	  (kill-buffer buffer)
-	  (mime-article/decode-message/partial beg end cal)
-	  )
+	(mime-article/decode-message/partial beg end cal)
       (let (cinfo the-id parameters)
-	(setq subject-id (rfc822/get-field-body "Subject"))
+	(setq subject-id (std11-field-body "Subject"))
 	(if (string-match "[0-9\n]+" subject-id)
 	    (setq subject-id (substring subject-id 0 (match-beginning 0)))
 	  )
-	(pop-to-buffer subject-buf)
-	(while (search-backward subject-id nil t)
-	  )
-	(catch 'tag
-	  (while t
-	    (tm-partial/preview-article target)
-	    (pop-to-buffer article-buffer)
-	    (switch-to-buffer mime::article/preview-buffer)
-	    (setq cinfo
-		  (mime::preview-content-info/content-info
-		   (car mime::preview/content-list)))
-	    (setq parameters (mime::content-info/parameters cinfo))
-	    (setq the-id (assoc-value "id" parameters))
-	    (if (equal the-id id)
-		(progn
-		  (switch-to-buffer article-buffer)
-		  (mime-article/decode-message/partial
-		   (point-min)(point-max) parameters)
-		  (if (file-exists-p full-file)
-		      (throw 'tag nil)
-		    )
-		  ))
-	    (if (not (progn
-		       (pop-to-buffer subject-buf)
-		       (end-of-line)
-		       (search-forward subject-id nil t)
-		       ))
-		(error "not found")
+	(save-excursion
+	  (set-buffer subject-buf)
+	  (while (search-backward subject-id nil t))
+	  (catch 'tag
+	    (while t
+	      (tm-partial/preview-article target)
+	      (set-buffer article-buffer)
+	      (set-buffer mime::article/preview-buffer)
+	      (setq cinfo
+		    (mime::preview-content-info/content-info
+		     (car mime::preview/content-list)))
+	      (setq parameters (mime::content-info/parameters cinfo))
+	      (setq the-id (assoc-value "id" parameters))
+	      (if (equal the-id id)
+		  (progn
+		    (set-buffer article-buffer)
+		    (mime-article/decode-message/partial
+		     (point-min)(point-max) parameters)
+		    (if (file-exists-p full-file)
+			(throw 'tag nil)
+		      )
+		    ))
+	      (if (not (progn
+			 (set-buffer subject-buf)
+			 (end-of-line)
+			 (search-forward subject-id nil t)
+			 ))
+		  (error "not found")
+		)
 	      )
 	    ))))))
 
@@ -96,3 +108,5 @@
 (provide 'tm-partial)
 
 (run-hooks 'tm-partial-load-hook)
+
+;;; tm-partial.el ends here