Mercurial > hg > xemacs-beta

comparison lisp/mel/mel-u.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 8eaf7971accc
children
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
2 2
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1995/10/25 6 ;; Created: 1995/10/25
7 ;; Version: $Id: mel-u.el,v 1.4 1997/07/13 22:41:32 steve Exp $ 7 ;; Version: $Id: mel-u.el,v 1.5 1997/07/26 22:09:47 steve Exp $
8 ;; Keywords: uuencode 8 ;; Keywords: uuencode
9 9
10 ;; This file is part of MEL (MIME Encoding Library). 10 ;; This file is part of MEL (MIME Encoding Library).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
85 (setq filename (expand-file-name filename mime-temp-directory)) 85 (setq filename (expand-file-name filename mime-temp-directory))
86 (as-binary-input-file (insert-file-contents filename)) 86 (as-binary-input-file (insert-file-contents filename))
87 ;; The previous line causes the buffer to be made read-only, I 87 ;; The previous line causes the buffer to be made read-only, I
88 ;; do not pretend to understand the control flow leading to this 88 ;; do not pretend to understand the control flow leading to this
89 ;; but suspect it has something to do with image-mode. -slb 89 ;; but suspect it has something to do with image-mode. -slb
90 (setq buffer-read-only nil) 90 ;; Use `inhibit-read-only' to avoid to force
91 (delete-file filename) 91 ;; buffer-read-only nil. - tomo.
92 (let ((inhibit-read-only t))
93 (delete-file filename)
94 )
92 )) 95 ))
93 ))) 96 )))
94 97
95 (defalias 'uuencode-encode-region 'uuencode-external-encode-region) 98 (defalias 'uuencode-encode-region 'uuencode-external-encode-region)
96 (defalias 'uuencode-decode-region 'uuencode-external-decode-region) 99 (defalias 'uuencode-decode-region 'uuencode-external-decode-region)