Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 364816949b59
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
991 ;; (defvar mail-coding-system '*junet*) 991 ;; (defvar mail-coding-system '*junet*)
992 ;; 992 ;;
993 ;; (defun rmail-decode-coding-system (from to) 993 ;; (defun rmail-decode-coding-system (from to)
994 ;; (let (coding-system) 994 ;; (let (coding-system)
995 ;; ;; At first, detect the coding-system of the region and set it to 995 ;; ;; At first, detect the coding-system of the region and set it to
996 ;; ;; `coding-sytem'. 996 ;; ;; `coding-system'.
997 ;; (let ((detected-coding-system (code-detect-region from to)) 997 ;; (let ((detected-coding-system (code-detect-region from to))
998 ;; (coding (get-code mail-coding-system))) 998 ;; (coding (get-code mail-coding-system)))
999 ;; (if (listp detected-coding-system) 999 ;; (if (listp detected-coding-system)
1000 ;; ;; Something other than ASCII was found. If a coding-system 1000 ;; ;; Something other than ASCII was found. If a coding-system
1001 ;; ;; of which information is same as `mail-coding-system' is 1001 ;; ;; of which information is same as `mail-coding-system' is