/[emacs]/emacs/lisp/gnus/rfc1843.el
ViewVC logotype

Diff of /emacs/lisp/gnus/rfc1843.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pj, Sun Jul 15 17:42:53 2001 UTC revision 1.4 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 88  ftp://ftp.math.psu.edu/pub/simpson/chine Line 88  ftp://ftp.math.psu.edu/pub/simpson/chine
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))
# Line 145  ftp://ftp.math.psu.edu/pub/simpson/chine Line 145  ftp://ftp.math.psu.edu/pub/simpson/chine
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26