Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 1a7c7cc15ad22598963a6c09fc68d132e561afef 1 parent 40d0440
@larsmagne larsmagne authored
View
13 lisp/ChangeLog
@@ -1,3 +1,16 @@
+Mon Aug 31 23:03:13 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.12 is released.
+
+1998-08-31 22:39:36 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * 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 <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.11 is released.
View
28 lisp/gnus-art.el
@@ -958,22 +958,18 @@ characters to translate to."
(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))))))))
+ (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)
View
2  lisp/gnus.el
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.11"
+(defconst gnus-version-number "0.12"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
View
22 lisp/mm-bodies.el
@@ -74,9 +74,27 @@ If no encoding was done, nil is returned."
;;; Functions for decoding
;;;
-(defun mm-decode-body (charset)
+(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
- (mm-decode-coding-region (point-min) (point-max) charset)))
+ (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)
View
6 texi/gnus.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Pterodactyl Gnus 0.11 Manual
+@settitle Pterodactyl Gnus 0.12 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Gnus 0.11 Manual
+@title Pterodactyl Gnus 0.12 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
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.
+This manual corresponds to Pterodactyl Gnus 0.12.
@end ifinfo
View
6 texi/message.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Pterodactyl Message 0.11 Manual
+@settitle Pterodactyl Message 0.12 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Pterodactyl Message 0.11 Manual
+@title Pterodactyl Message 0.12 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -83,7 +83,7 @@ Message mode buffers.
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Pterodactyl Message 0.11. Message is
+This manual corresponds to Pterodactyl Message 0.12. Message is
distributed with the Gnus distribution bearing the same version number
as this manual has.
Please sign in to comment.
Something went wrong with that request. Please try again.