projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.84.
[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
;;;
(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))
(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))
(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
(setq field (buffer-substring beg end))
(if (string-match mime/encoded-word-regexp field)
(save-restriction