projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
78207d8
)
(mime-parse-message): Would error if empty body.
author
shuhei-k
<shuhei-k>
Mon, 22 Jun 1998 15:30:11 +0000
(15:30 +0000)
committer
shuhei-k
<shuhei-k>
Mon, 22 Jun 1998 15:30:11 +0000
(15:30 +0000)
mime-parse.el
patch
|
blob
|
history
diff --git
a/mime-parse.el
b/mime-parse.el
index
38b7f00
..
69e91b4
100644
(file)
--- a/
mime-parse.el
+++ b/
mime-parse.el
@@
-215,10
+215,11
@@
mime-{parse|read}-Content-Type."
(goto-char header-start)
(if (re-search-forward "^$" nil t)
(setq header-end (match-end 0)
(goto-char header-start)
(if (re-search-forward "^$" nil t)
(setq header-end (match-end 0)
- body-start (1+ header-end))
+ body-start (if (= header-end body-end)
+ body-end
+ (1+ header-end)))
(setq header-end (point-min)
(setq header-end (point-min)
- body-start (point-min))
- )
+ body-start (point-min)))
(save-restriction
(narrow-to-region header-start header-end)
(setq content-type (or (let ((str (std11-fetch-field "Content-Type")))
(save-restriction
(narrow-to-region header-start header-end)
(setq content-type (or (let ((str (std11-fetch-field "Content-Type")))