comparison lisp/mail/rmailmm.el @ 109467:d92d0e17a7ce

Merge from mainline.
author Katsumi Yamaoka <katsumi@flagship2>
date Sat, 17 Jul 2010 10:55:12 +0000
parents d03ee75f7be2
children 280c8ae2476d 0e19494fd75d
comparison
equal deleted inserted replaced
109444:11d5817a8846 109467:d92d0e17a7ce
110 (setq filename (expand-file-name 110 (setq filename (expand-file-name
111 (file-name-nondirectory ofilename) 111 (file-name-nondirectory ofilename)
112 (file-name-as-directory filename)))) 112 (file-name-as-directory filename))))
113 (with-temp-buffer 113 (with-temp-buffer
114 (set-buffer-file-coding-system 'no-conversion) 114 (set-buffer-file-coding-system 'no-conversion)
115 ;; Needed e.g. by jka-compr, so if the attachment is a compressed
116 ;; file, the magic signature compares equal with the unibyte
117 ;; signature string recorded in jka-compr-compression-info-list.
118 (set-buffer-multibyte nil)
115 (insert data) 119 (insert data)
116 (write-region nil nil filename nil nil nil t)))) 120 (write-region nil nil filename nil nil nil t))))
117 121
118 (define-button-type 'rmail-mime-save 'action 'rmail-mime-save) 122 (define-button-type 'rmail-mime-save 'action 'rmail-mime-save)
119 123