;;; Code:
-(require 'emu)
(require 'mime)
(require 'semi-def)
(require 'calist)
(require 'alist)
-(require 'mailcap)
+(require 'mime-conf)
;;; @ version
(insert "\n;;; "
(file-name-nondirectory file)
" ends here.\n")
- (static-cond
- ((boundp 'buffer-file-coding-system)
- (setq buffer-file-coding-system
- mime-situation-examples-file-coding-system))
- ((boundp 'file-coding-system)
- (setq file-coding-system
- mime-situation-examples-file-coding-system)))
+ (setq buffer-file-coding-system
+ mime-situation-examples-file-coding-system)
+ ;; (static-cond
+ ;; ((boundp 'buffer-file-coding-system)
+ ;; (setq buffer-file-coding-system
+ ;; mime-situation-examples-file-coding-system))
+ ;; ((boundp 'file-coding-system)
+ ;; (setq file-coding-system
+ ;; mime-situation-examples-file-coding-system)))
(setq buffer-file-name file)
(save-buffer)))))
(defvar mime-acting-condition nil
"Condition-tree about how to process entity.")
-(if (file-readable-p mailcap-file)
- (let ((entries (mailcap-parse-file)))
+(if (file-readable-p mime-mailcap-file)
+ (let ((entries (mime-parse-mailcap-file)))
(while entries
(let ((entry (car entries))
view print shared)
(set-buffer (event-buffer event))
(popup-menu 'mime-view-xemacs-popup-menu))
(defvar mouse-button-2 'button2)
+ (defvar mouse-button-3 'button3)
)
(t
(defvar mime-view-popup-menu
(commandp func)
(funcall func))))
(defvar mouse-button-2 [mouse-2])
+ (defvar mouse-button-3 [mouse-3])
))
(defun mime-view-define-keymap (&optional default)
(with-temp-buffer
(insert-file-contents file)
(setq mime-situation-examples-file-coding-system
- (static-cond
- ((boundp 'buffer-file-coding-system)
- (symbol-value 'buffer-file-coding-system))
- ((boundp 'file-coding-system)
- (symbol-value 'file-coding-system))
- (t nil)))
+ (and (boundp 'buffer-file-coding-system)
+ buffer-file-coding-system)
+ ;; (static-cond
+ ;; ((boundp 'buffer-file-coding-system)
+ ;; (symbol-value 'buffer-file-coding-system))
+ ;; ((boundp 'file-coding-system)
+ ;; (symbol-value 'file-coding-system))
+ ;; (t nil))
+ )
(eval-buffer)
;; format check
(condition-case nil