Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-process.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
408 (define-program-coding-system nil ".*mhl.*" 'junet) 408 (define-program-coding-system nil ".*mhl.*" 'junet)
409 ;; For MIME 409 ;; For MIME
410 (define-program-coding-system nil ".*anno.*" 'junet) 410 (define-program-coding-system nil ".*anno.*" 'junet)
411 (define-program-coding-system nil ".*rcvstore.*" 'junet) 411 (define-program-coding-system nil ".*rcvstore.*" 'junet)
412 (setq mh-before-send-letter-hook 412 (setq mh-before-send-letter-hook
413 '(lambda () (set-file-coding-system 'junet))) 413 '(lambda () (set-buffer-file-coding-system 'junet)))
414 ;; For VM 414 ;; For VM
415 (add-hook 'vm-mode-hooks 415 (add-hook 'vm-mode-hooks
416 '(lambda () 416 '(lambda ()
417 (set-file-coding-system 'junet))) 417 (set-buffer-file-coding-system 'junet)))
418 ;; For Wnn and cWnn 418 ;; For Wnn and cWnn
419 (define-service-coding-system "wnn" nil 'no-conversion) 419 (define-service-coding-system "wnn" nil 'no-conversion)
420 420
421 ;; For shells -- commented out 421 ;; For shells -- commented out
422 ;;(define-program-coding-system nil ".*sh.*" '(nil . nil)) 422 ;;(define-program-coding-system nil ".*sh.*" '(nil . nil))