Mercurial > emacs
comparison lisp/gnus/rfc1843.el @ 68720:d9dde5b81e71
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-57
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 18-21)
- Update from CVS
- Merge from emacs--devo--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 08 Feb 2006 04:35:58 +0000 |
| parents | 1077b8039c32 |
| children | 183eba998a4d c5406394f567 |
comparison
equal
deleted
inserted
replaced
| 68719:2de3fcf69715 | 68720:d9dde5b81e71 |
|---|---|
| 147 (save-restriction | 147 (save-restriction |
| 148 (message-narrow-to-head) | 148 (message-narrow-to-head) |
| 149 (let* ((inhibit-point-motion-hooks t) | 149 (let* ((inhibit-point-motion-hooks t) |
| 150 (case-fold-search t) | 150 (case-fold-search t) |
| 151 (ct (message-fetch-field "Content-Type" t)) | 151 (ct (message-fetch-field "Content-Type" t)) |
| 152 (ctl (and ct (ignore-errors | 152 (ctl (and ct (mail-header-parse-content-type ct)))) |
| 153 (mail-header-parse-content-type ct))))) | |
| 154 (if (and ctl (not (string-match "/" (car ctl)))) | 153 (if (and ctl (not (string-match "/" (car ctl)))) |
| 155 (setq ctl nil)) | 154 (setq ctl nil)) |
| 156 (goto-char (point-max)) | 155 (goto-char (point-max)) |
| 157 (widen) | 156 (widen) |
| 158 (forward-line 1) | 157 (forward-line 1) |