/[emacs]/emacs/lisp/gnus/mm-bodies.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-bodies.el

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

revision 1.7.6.2 by miles, Thu Sep 9 09:36:26 2004 UTC revision 1.7.6.3 by miles, Mon Sep 27 11:02:42 2004 UTC
# Line 1  Line 1 
1  ;;; mm-bodies.el --- Functions for decoding MIME things  ;;; mm-bodies.el --- Functions for decoding MIME things
2    
3  ;; Copyright (C) 1998, 1999, 2000, 2001, 2003  ;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004
4  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 91  If no encoding was done, nil is returned Line 91  If no encoding was done, nil is returned
91              (mm-encode-coding-region (point-min) (point-max) charset)              (mm-encode-coding-region (point-min) (point-max) charset)
92              charset)              charset)
93          (goto-char (point-min))          (goto-char (point-min))
94          (let ((charsets (mm-find-mime-charset-region (point-min) (point-max)          (let ((charsets (mm-find-mime-charset-region (point-min) (point-max))))
                                                      mm-hack-charsets)))  
95            (cond            (cond
96             ;; No encoding.             ;; No encoding.
97             ((null charsets)             ((null charsets)

Legend:
Removed from v.1.7.6.2  
changed lines
  Added in v.1.7.6.3

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