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

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

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

revision 1.6 by zsh, Tue Feb 19 13:30:08 2002 UTC revision 1.6.4.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 1  Line 1 
1  ;;; mm-encode.el --- functions for encoding MIME things  ;;; mm-encode.el --- functions for encoding MIME things
2  ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
3    
4  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
5  ;;      MORIOKA Tomohiko <morioka@jaist.ac.jp>  ;;      MORIOKA Tomohiko <morioka@jaist.ac.jp>
# Line 79  This variable should never be set direct Line 79  This variable should never be set direct
79    "Return a safer but similar encoding."    "Return a safer but similar encoding."
80    (cond    (cond
81     ((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable)     ((memq encoding '(7bit 8bit quoted-printable)) 'quoted-printable)
82     ;; The remaing encodings are binary and base64 (and perhaps some     ;; The remaining encodings are binary and base64 (and perhaps some
83     ;; non-standard ones), which are both turned into base64.     ;; non-standard ones), which are both turned into base64.
84     (t 'base64)))     (t 'base64)))
85    
# Line 144  The encoding used is returned." Line 144  The encoding used is returned."
144        (while rules        (while rules
145          (when (string-match (caar rules) type)          (when (string-match (caar rules) type)
146            (throw 'found            (throw 'found
147                   (let ((encoding                   (let ((encoding
148                          (if (eq (cadr (car rules)) 'qp-or-base64)                          (if (eq (cadr (car rules)) 'qp-or-base64)
149                              (mm-qp-or-base64)                              (mm-qp-or-base64)
150                            (cadr (car rules)))))                            (cadr (car rules)))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.4.1

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