X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-partial.el;h=7ef93a5060d540eb88e31d866f69680d0f577f20;hb=38ef9edb7c1d450ae8e87fea8fded4912af43807;hp=3cb2f87cd72cf766fd283661891599b2ad4c3076;hpb=526ddb4bf4c4322f57c55a0d62b14138aca77e33;p=elisp%2Ftm.git

diff --git a/tm-partial.el b/tm-partial.el
index 3cb2f87..7ef93a5 100644
--- a/tm-partial.el
+++ b/tm-partial.el
@@ -1,19 +1,34 @@
-;;; 
-;;; tm-partial.el
-;;; 
-;;; Grabbing all MIME "message/partial"s.
-;;; by Yasuo OKABE @ Kyoto University 1994
-;;; modified by MORIOKA Tomohiko
-;;;
-;;; original file is 
-;;;  gif.el written by Art Mellor @ Cayman Systems, Inc. 1991
-;;;
-;;; This file is a part of tm (Tools for MIME).
-;;;
-;;; $Id: tm-partial.el,v 7.9 1995/10/23 09:27:29 morioka Exp $
-;;;
+;;; tm-partial.el --- Grabbing all MIME "message/partial"s.
+
+;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+
+;; Author: OKABE Yasuo @ Kyoto University
+;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Version:
+;;	$Id: tm-partial.el,v 7.13 1996/08/30 04:27:52 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 this program; 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)
    
@@ -53,8 +68,8 @@
 	  (mime-article/decode-message/partial beg end cal)
 	  )
       (let (cinfo the-id parameters)
-	(setq subject-id (rfc822/get-field-body "Subject"))
-	(if (string-match "[0-9]+" subject-id)
+	(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)
@@ -95,3 +110,5 @@
 (provide 'tm-partial)
 
 (run-hooks 'tm-partial-load-hook)
+
+;;; tm-partial.el ends here