*** pub/pgnus/lisp/gnus-art.el Sat Aug 29 22:25:15 1998 --- pgnus/lisp/gnus-art.el Sat Aug 29 23:25:45 1998 *************** *** 945,967 **** (process-send-region "article-x-face" beg end) (process-send-eof "article-x-face")))))))))) - (defun gnus-hack-decode-rfc1522 () - "Emergency hack function for avoiding problems when decoding." - (let ((buffer-read-only nil)) - (goto-char (point-min)) - ;; Remove encoded TABs. - (while (search-forward "=09" nil t) - (replace-match " " t t)) - ;; Remove encoded newlines. - (goto-char (point-min)) - (while (search-forward "=10" nil t) - (replace-match " " t t)))) - (defun gnus-article-decode-mime-words () "Decode all MIME-encoded words in the article." (interactive) (save-excursion ! (let (buffer-read-only) (mm-decode-words-region (point-min) (point-max))))) (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522) --- 945,956 ---- (process-send-region "article-x-face" beg end) (process-send-eof "article-x-face")))))))))) (defun gnus-article-decode-mime-words () "Decode all MIME-encoded words in the article." (interactive) (save-excursion ! (let ((inhibit-point-motion-hooks t) ! buffer-read-only) (mm-decode-words-region (point-min) (point-max))))) (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522) *************** *** 975,981 **** (mm-decode-words-region (point-min) (point-max))))) (defun article-de-quoted-unreadable (&optional force) ! "Translation a quoted-printable-encoded article. If FORCE, decode the article whether it is marked as quoted-printable or not." (interactive (list 'force)) --- 964,970 ---- (mm-decode-words-region (point-min) (point-max))))) (defun article-de-quoted-unreadable (&optional force) ! "Translate a quoted-printable-encoded article. If FORCE, decode the article whether it is marked as quoted-printable or not." (interactive (list 'force)) *************** *** 1946,1951 **** --- 1935,1941 ---- (buffer-disable-undo (current-buffer)) (setq buffer-read-only t) (set-syntax-table gnus-article-mode-syntax-table) + (set-buffer-multibyte t) (gnus-run-hooks 'gnus-article-mode-hook)) (defun gnus-article-setup-buffer () *** pub/pgnus/lisp/gnus.el Sat Aug 29 22:25:17 1998 --- pgnus/lisp/gnus.el Sat Aug 29 23:25:45 1998 *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "0.4" "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.5" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) *** pub/pgnus/lisp/mm-decode.el Sat Aug 29 22:25:18 1998 --- pgnus/lisp/mm-decode.el Sat Aug 29 23:25:45 1998 *************** *** 99,108 **** (gb2312 . cn-gb-2312) (iso-2022-jp-2 . iso-2022-7bit-ss2) (x-ctext . ctext))) dest) (while rest (let ((pair (car rest))) ! (unless (coding-system-p (car pair)) (setq dest (cons pair dest)))) (setq rest (cdr rest))) dest) --- 99,109 ---- (gb2312 . cn-gb-2312) (iso-2022-jp-2 . iso-2022-7bit-ss2) (x-ctext . ctext))) + (systems (coding-system-list)) dest) (while rest (let ((pair (car rest))) ! (unless (memq (car pair) systems) (setq dest (cons pair dest)))) (setq rest (cdr rest))) dest) *** pub/pgnus/lisp/ChangeLog Sat Aug 29 22:25:14 1998 --- pgnus/lisp/ChangeLog Sat Aug 29 23:25:44 1998 *************** *** 1,3 **** --- 1,14 ---- + Sat Aug 29 23:24:31 1998 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.5 is released. + + 1998-08-29 22:38:35 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-article-mode): Make article buffer multibyte. + (gnus-hack-decode-rfc1522): Removed. + + * mm-decode.el (mm-charset-coding-system-alist): Check better. + Sat Aug 29 22:20:39 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v0.4 is released. *** pub/pgnus/texi/gnus.texi Sat Aug 29 22:25:21 1998 --- pgnus/texi/gnus.texi Sat Aug 29 23:25:46 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.4 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Pterodactyl Gnus 0.5 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 318,324 **** @tex @titlepage ! @title Pterodactyl Gnus 0.4 Manual @author by Lars Magne Ingebrigtsen @page --- 318,324 ---- @tex @titlepage ! @title Pterodactyl Gnus 0.5 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.4. @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.5. @end ifinfo *** pub/pgnus/texi/message.texi Sat Aug 29 22:25:21 1998 --- pgnus/texi/message.texi Sat Aug 29 23:25:46 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.4 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Pterodactyl Message 0.5 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Pterodactyl Message 0.4 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Pterodactyl Message 0.5 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.4. 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.5. Message is distributed with the Gnus distribution bearing the same version number as this manual has.