tm 7.80.

[elisp/tm.git] / tiny-mime.el

diff --git a/tiny-mime.el b/tiny-mime.el
index 905811c..7bc4bb7 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -21,7 +21,7 @@
 ;;;
 
 (defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 6.6 1995/09/04 10:33:27 morioka Exp $")
+  "$Id: tiny-mime.el,v 6.7 1995/09/20 12:17:28 morioka Exp $")
 
 (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
 
@@ -617,15 +617,7 @@
   (let (field beg end)
     (while (re-search-forward message/field-name-regexp nil t)
       (setq beg (match-beginning 0))
-      (setq end (progn
-                 (if (re-search-forward "\n[!-9;-~]+:" nil t)
-                     (goto-char (match-beginning 0))
-                   (if (re-search-forward "^$" nil t)
-                       (goto-char (1- (match-beginning 0)))
-                     (end-of-line)
-                     ))
-                 (point)
-                 ))
+      (setq end (message/field-end))
       (setq field (buffer-substring beg end))
       (if (string-match mime/encoded-word-regexp field)
          (save-restriction