xyzzyでバイナリファイルをbase64にエンコードした文字列を得る
Kmailのコードからパクってくる。
(defun insert-base64-file (file) (interactive "fFile: ") (let (in) (setq in (open file :encoding :binary)) (unwind-protect (progn (insert (si:base64-encode in))) (close in))))
Kmailのコードからパクってくる。
(defun insert-base64-file (file) (interactive "fFile: ") (let (in) (setq in (open file :encoding :binary)) (unwind-protect (progn (insert (si:base64-encode in))) (close in))))