Mercurial > emacs

comparison lisp/gnus/mm-bodies.el @ 68287:dbc43cabc13b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-5 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (base, patch 1-3) - tag of miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-187 - Update from CVS - Merge from emacs--devo--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 187) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 Jan 2006 03:44:29 +0000
parents 1c477099d3ac
children 261c2dbe91d2 5b7d410e31f9
comparison
equal deleted inserted replaced
68286:e5161cb0ad69 68287:dbc43cabc13b
1 ;;; mm-bodies.el --- Functions for decoding MIME things 1 ;;; mm-bodies.el --- Functions for decoding MIME things
2 2
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
247 (memq charset mail-parse-ignored-charsets)) 247 (memq charset mail-parse-ignored-charsets))
248 (setq charset mail-parse-charset)) 248 (setq charset mail-parse-charset))
249 (save-excursion 249 (save-excursion
250 (when encoding 250 (when encoding
251 (mm-decode-content-transfer-encoding encoding type)) 251 (mm-decode-content-transfer-encoding encoding type))
252 (when (featurep 'mule) ; Fixme: Wrong test for unibyte session. 252 (when (and (featurep 'mule) ;; Fixme: Wrong test for unibyte session.
253 (not (eq charset 'gnus-decoded)))
253 (let ((coding-system (mm-charset-to-coding-system charset))) 254 (let ((coding-system (mm-charset-to-coding-system charset)))
254 (if (and (not coding-system) 255 (if (and (not coding-system)
255 (listp mail-parse-ignored-charsets) 256 (listp mail-parse-ignored-charsets)
256 (memq 'gnus-unknown mail-parse-ignored-charsets)) 257 (memq 'gnus-unknown mail-parse-ignored-charsets))
257 (setq coding-system 258 (setq coding-system
260 ;; buffer-file-coding-system 261 ;; buffer-file-coding-system
261 ;;Article buffer is nil coding system 262 ;;Article buffer is nil coding system
262 ;;in XEmacs 263 ;;in XEmacs
263 (mm-multibyte-p) 264 (mm-multibyte-p)
264 (or (not (eq coding-system 'ascii)) 265 (or (not (eq coding-system 'ascii))
265 (setq coding-system mail-parse-charset)) 266 (setq coding-system mail-parse-charset)))
266 (not (eq coding-system 'gnus-decoded)))
267 (mm-decode-coding-region (point-min) (point-max) 267 (mm-decode-coding-region (point-min) (point-max)
268 coding-system)) 268 coding-system))
269 (setq buffer-file-coding-system 269 (setq buffer-file-coding-system
270 (if (boundp 'last-coding-system-used) 270 (if (boundp 'last-coding-system-used)
271 (symbol-value 'last-coding-system-used) 271 (symbol-value 'last-coding-system-used)