(require 'alist)
(require 'filename)
+(eval-when-compile (require 'mime-text))
+
;;; @ content decoder
;;;
)
(t
(mime-show-echo-buffer
- "No method are specified for %s\n" ctype)
+ "No method are specified for %s\n"
+ (mime-type/subtype-string c-type c-subtype))
))
)
))
(narrow-to-region beg end)
(mime-raw-get-filename cal)
))
- (encoding (cdr (assq 'encoding cal)))
+ (encoding (or (cdr (assq 'encoding cal)) "7bit"))
(filename
(if (and name (not (string-equal name "")))
(expand-file-name name
(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
(error "")))
(re-search-forward "\n\n")
- (mime-write-decoded-region (match-end 0)(point-max) filename encoding)
+ (mime-write-decoded-region (match-end 0) end filename encoding)
))
"Write current region into specified file.
When called from a program, takes three arguments:
START, END and FILENAME. START and END are buffer positions.
-It refer `mime-raw-coding-system-alist' to choose coding-system to
-write."
+It refer `mime-raw-buffer-coding-system-alist' to choose coding-system
+to write."
(let ((coding-system-for-write
(cdr
- (or (assq major-mode mime-raw-coding-system-alist)
- (assq t mime-raw-coding-system-alist)
+ (or (assq major-mode mime-raw-buffer-coding-system-alist)
+ (assq t mime-raw-buffer-coding-system-alist)
))))
(write-region start end filename)
))