Mercurial > emacs
comparison lisp/gnus/nnmail.el @ 90188:01137c1fdbe9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 324-352)
- Merge from gnus--rel--5.10
- Update from CVS
- etc/emacs-buffer.gdb: Remove RCS keywords
* gnus--rel--5.10 (patch 70-79)
- Update from CVS
- Merge from emacs--cvs-trunk--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 06 Jun 2005 02:39:45 +0000 |
| parents | 3ebd9bdb4fe5 88db2adda4b7 |
| children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
| 90187:587ea1490d70 | 90188:01137c1fdbe9 |
|---|---|
| 767 "\n"))) | 767 "\n"))) |
| 768 ;; Look for a Content-Length header. | 768 ;; Look for a Content-Length header. |
| 769 (if (not (save-excursion | 769 (if (not (save-excursion |
| 770 (and (re-search-backward | 770 (and (re-search-backward |
| 771 "^Content-Length:[ \t]*\\([0-9]+\\)" start t) | 771 "^Content-Length:[ \t]*\\([0-9]+\\)" start t) |
| 772 (setq content-length (string-to-int | 772 (setq content-length (string-to-number |
| 773 (buffer-substring | 773 (buffer-substring |
| 774 (match-beginning 1) | 774 (match-beginning 1) |
| 775 (match-end 1)))) | 775 (match-end 1)))) |
| 776 ;; We destroy the header, since none of | 776 ;; We destroy the header, since none of |
| 777 ;; the backends ever use it, and we do not | 777 ;; the backends ever use it, and we do not |
| 904 ;; Look for a Content-Length header. | 904 ;; Look for a Content-Length header. |
| 905 (goto-char (point-min)) | 905 (goto-char (point-min)) |
| 906 (if (not (re-search-forward | 906 (if (not (re-search-forward |
| 907 "^Content-Length:[ \t]*\\([0-9]+\\)" nil t)) | 907 "^Content-Length:[ \t]*\\([0-9]+\\)" nil t)) |
| 908 (setq content-length nil) | 908 (setq content-length nil) |
| 909 (setq content-length (string-to-int (match-string 1))) | 909 (setq content-length (string-to-number (match-string 1))) |
| 910 ;; We destroy the header, since none of the backends ever | 910 ;; We destroy the header, since none of the backends ever |
| 911 ;; use it, and we do not want to confuse other mailers by | 911 ;; use it, and we do not want to confuse other mailers by |
| 912 ;; having a (possibly) faulty header. | 912 ;; having a (possibly) faulty header. |
| 913 (beginning-of-line) | 913 (beginning-of-line) |
| 914 (insert "X-")) | 914 (insert "X-")) |