Mercurial > emacs
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 |