X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tiny-mime.el;h=7bc4bb7b8a1d7a66dbc20e26a78b472aa176dc3c;hb=d26bc385edbd0d6d6abdcdaf7fb011296ff7eba8;hp=905811c0ecc0151720e0552aa4b5936c55577cee;hpb=bd8478fb3ae9e63ddc962abb81f030392061bb54;p=elisp%2Ftm.git

diff --git a/tiny-mime.el b/tiny-mime.el
index 905811c..7bc4bb7 100644
--- 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