tm 7.46.

[elisp/tm.git] / tm-partial.el

diff --git a/tm-partial.el b/tm-partial.el
index 3cb2f87..e2f7dd1 100644 (file)
--- a/tm-partial.el
+++ b/tm-partial.el
@@ -1,19 +1,21 @@
 ;;; 
-;;; tm-partial.el
+;;; tm-partial.el --- Grabbing all MIME "message/partial"s.
 ;;; 
-;;; Grabbing all MIME "message/partial"s.
-;;; by Yasuo OKABE @ Kyoto University 1994
-;;; modified by MORIOKA Tomohiko
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994 OKABE Yasuo
+;;; Copyright (C) 1995 MORIOKA Tomohiko
 ;;;
-;;; original file is 
-;;;  gif.el written by Art Mellor @ Cayman Systems, Inc. 1991
+;;; Author: OKABE Yasuo @ Kyoto University
+;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;;    $Id: tm-partial.el,v 7.11 1995/11/16 15:51:10 morioka Exp $ 
+;;; Keywords: mail, news, MIME, multimedia, message/partial
 ;;;
 ;;; 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 $
-;;;
 
 (require 'tm-view)
+(require 'tm-play)
 
 (defvar tm-partial/preview-article-method-alist nil)
    
@@ -54,7 +56,7 @@
          )
       (let (cinfo the-id parameters)
        (setq subject-id (rfc822/get-field-body "Subject"))
-       (if (string-match "[0-9]+" subject-id)
+       (if (string-match "[0-9\n]+" subject-id)
            (setq subject-id (substring subject-id 0 (match-beginning 0)))
          )
        (pop-to-buffer subject-buf)