88 |
rfc1843-hzp-word-regexp |
rfc1843-hzp-word-regexp |
89 |
rfc1843-word-regexp) (point-max) t) |
rfc1843-word-regexp) (point-max) t) |
90 |
;;; Text with extents may cause XEmacs crash |
;;; Text with extents may cause XEmacs crash |
91 |
(setq str (buffer-substring-no-properties |
(setq str (buffer-substring-no-properties |
92 |
(match-beginning 1) |
(match-beginning 1) |
93 |
(match-end 1))) |
(match-end 1))) |
94 |
(setq firstc (aref str 0)) |
(setq firstc (aref str 0)) |
145 |
(ct (message-fetch-field "Content-Type" t)) |
(ct (message-fetch-field "Content-Type" t)) |
146 |
(ctl (and ct (ignore-errors |
(ctl (and ct (ignore-errors |
147 |
(mail-header-parse-content-type ct))))) |
(mail-header-parse-content-type ct))))) |
148 |
(if (and ctl (not (string-match "/" (car ctl)))) |
(if (and ctl (not (string-match "/" (car ctl)))) |
149 |
(setq ctl nil)) |
(setq ctl nil)) |
150 |
(goto-char (point-max)) |
(goto-char (point-max)) |
151 |
(widen) |
(widen) |