Mercurial > emacs
comparison lisp/gnus/mm-decode.el @ 34833:aaf69bc74739
* gnus-art.el (gnus-article-check-hidden-text): Return t.
* gnus-util.el (gnus-remove-text-properties-when): Return t.
* mm-decode.el (mm-dissect-multipart): Avoid errors owing to
malformatted messages.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Fri, 22 Dec 2000 14:19:33 +0000 |
| parents | e06db3b8e558 |
| children | 0b4c50eb2002 |
comparison
equal
deleted
inserted
replaced
| 34832:02fc33c28963 | 34833:aaf69bc74739 |
|---|---|
| 308 (goto-char (point-max)) | 308 (goto-char (point-max)) |
| 309 (if (re-search-backward close-delimiter nil t) | 309 (if (re-search-backward close-delimiter nil t) |
| 310 (match-beginning 0) | 310 (match-beginning 0) |
| 311 (point-max))))) | 311 (point-max))))) |
| 312 (setq boundary (concat (regexp-quote boundary) "[ \t]*$")) | 312 (setq boundary (concat (regexp-quote boundary) "[ \t]*$")) |
| 313 (while (re-search-forward boundary end t) | 313 (while (and (< (point) end) (re-search-forward boundary end t)) |
| 314 (goto-char (match-beginning 0)) | 314 (goto-char (match-beginning 0)) |
| 315 (when start | 315 (when start |
| 316 (save-excursion | 316 (save-excursion |
| 317 (save-restriction | 317 (save-restriction |
| 318 (narrow-to-region start (point)) | 318 (narrow-to-region start (point)) |
| 319 (setq parts (nconc (list (mm-dissect-buffer t)) parts))))) | 319 (setq parts (nconc (list (mm-dissect-buffer t)) parts))))) |
| 320 (forward-line 2) | 320 (forward-line 2) |
| 321 (setq start (point))) | 321 (setq start (point))) |
| 322 (when start | 322 (when (and start (< start end)) |
| 323 (save-excursion | 323 (save-excursion |
| 324 (save-restriction | 324 (save-restriction |
| 325 (narrow-to-region start end) | 325 (narrow-to-region start end) |
| 326 (setq parts (nconc (list (mm-dissect-buffer t)) parts))))) | 326 (setq parts (nconc (list (mm-dissect-buffer t)) parts))))) |
| 327 (nreverse parts))) | 327 (nreverse parts))) |