*** pub/pgnus/lisp/gnus-art.el Mon Aug 31 22:15:45 1998 --- pgnus/lisp/gnus-art.el Mon Aug 31 23:03:36 1998 *************** *** 958,979 **** (defun gnus-article-decode-charset () "Decode charset-encoded text in the article." (interactive) ! (when (featurep 'mule) ! (save-excursion ! (set-buffer gnus-article-buffer) ! (let* ((inhibit-point-motion-hooks t) ! (ct (message-fetch-field "Content-Type")) ! (charset (and ct (mm-content-type-charset ct))) ! mule-charset buffer-read-only) ! (save-restriction ! (goto-char (point-min)) ! (search-forward "\n\n" nil 'move) ! (narrow-to-region (point) (point-max)) ! (when (and charset ! (setq mule-charset (mm-charset-to-coding-system charset)) ! (not (mm-coding-system-equal ! buffer-file-coding-system mule-charset))) ! (mm-decode-body (mm-charset-to-coding-system charset)))))))) (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522) (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522) --- 958,975 ---- (defun gnus-article-decode-charset () "Decode charset-encoded text in the article." (interactive) ! (save-excursion ! (set-buffer gnus-article-buffer) ! (let* ((inhibit-point-motion-hooks t) ! (ct (message-fetch-field "Content-Type")) ! (cte (message-fetch-field "Content-Transfer-Encoding")) ! (charset (and ct (mm-content-type-charset ct))) ! buffer-read-only) ! (save-restriction ! (goto-char (point-min)) ! (search-forward "\n\n" nil 'move) ! (narrow-to-region (point) (point-max)) ! (mm-decode-body charset (and cte (intern (downcase cte)))))))) (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522) (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522) *** pub/pgnus/lisp/gnus.el Mon Aug 31 22:15:46 1998 --- pgnus/lisp/gnus.el Mon Aug 31 23:03:36 1998 *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.11" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) --- 250,256 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.12" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) *** pub/pgnus/lisp/mm-bodies.el Mon Aug 31 22:15:47 1998 --- pgnus/lisp/mm-bodies.el Mon Aug 31 23:03:36 1998 *************** *** 74,82 **** ;;; Functions for decoding ;;; ! (defun mm-decode-body (charset) (save-excursion ! (mm-decode-coding-region (point-min) (point-max) charset))) (provide 'mm-bodies) --- 74,100 ---- ;;; Functions for decoding ;;; ! (defun mm-decode-body (charset encoding) ! "Decode the current article that has been encoded with ENCODING. ! The characters in CHARSET should then be decoded." (save-excursion ! (when encoding ! (cond ! ((eq encoding 'quoted-printable) ! (quoted-printable-decode-region (point-min) (point-max))) ! ((eq encoding 'base64) ! (base64-decode-region (point-min) (point-max))) ! ((memq encoding '(7bit 8bit binary)) ! ) ! (t ! (error "Can't decode encoding %s" encoding)))) ! (when (featurep 'mule) ! (let (mule-charset) ! (when (and charset ! (setq mule-charset (mm-charset-to-coding-system charset)) ! (not (mm-coding-system-equal ! buffer-file-coding-system mule-charset))) ! (mm-decode-coding-region (point-min) (point-max) charset)))))) (provide 'mm-bodies) *** pub/pgnus/lisp/ChangeLog Mon Aug 31 22:15:44 1998 --- pgnus/lisp/ChangeLog Mon Aug 31 23:03:36 1998 *************** *** 1,3 **** --- 1,16 ---- + Mon Aug 31 23:03:13 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.12 is released. + + 1998-08-31 22:39:36 Lars Magne Ingebrigtsen + + * mm-bodies.el (mm-decode-body): Don't do charset unless MULE. + + * gnus-art.el (gnus-article-decode-charset): Supply cte. + (gnus-article-decode-charset): Always run. + + * mm-bodies.el (mm-decode-body): Decode cte. + Mon Aug 31 22:14:50 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.11 is released. *** pub/pgnus/texi/gnus.texi Mon Aug 31 22:15:49 1998 --- pgnus/texi/gnus.texi Mon Aug 31 23:03:37 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.11 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.12 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 318,324 **** @tex @titlepage ! @title Pterodactyl Gnus 0.11 Manual @author by Lars Magne Ingebrigtsen @page --- 318,324 ---- @tex @titlepage ! @title Pterodactyl Gnus 0.12 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 354,360 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.11. @end ifinfo --- 354,360 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Pterodactyl Gnus 0.12. @end ifinfo *** pub/pgnus/texi/message.texi Mon Aug 31 22:15:49 1998 --- pgnus/texi/message.texi Mon Aug 31 23:03:37 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.11 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.12 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Pterodactyl Message 0.11 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Pterodactyl Message 0.12 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 83,89 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.11. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 83,89 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Pterodactyl Message 0.12. Message is distributed with the Gnus distribution bearing the same version number as this manual has.