Re: [質問] IMAP Summary buffer にて、添付ファイル ATT00001.txt のメールを参照すると、エ ラー

> Debugger entered--Lisp error: (file-missing "Opening input file" "No such file or directory" "c:/yama/ATT00001.txt")
>   insert-file-contents("ATT00001.txt")
>   mime-edit-insert-file-charset("ATT00001.txt" nil)
>   mime-edit-insert-file-parameters((("charset" . charset) ("name" . file)) "ATT00001.txt")
>   mime-tnef-insert-file("ATT00001.txt" "------------------------------------------------------------------------------\015\nCheck out the vibrant tech community on one of the world's most\015\nengaging tech sites, SlashDot.org! http://sdm.link/slashdot")
(snip)

 ~/.wl 

(eval-after-load "mime-tnef"
  '(progn
     (defun mime-tnef-insert-file (file data)
       (let*  ((guess (mime-find-file-type file))
	       (type (nth 0 guess))
	       (subtype (nth 1 guess))
	       (parameters (nth 2 guess))
	       (encoding "8bit")
	       (disposition-type (nth 4 guess))
	       (disposition-params (nth 5 guess)))
	 (setq parameters
	       (concat
		(when (consp parameters)
		  (mime-tnef-insert-file-parameters parameters file data))
		(when disposition-type
		  (concat "\n" "Content-Disposition: " disposition-type
			  (mime-edit-insert-file-parameters
			   disposition-params file)))))
	 (insert
	  ;; multibyte buffer is needed for non-ASCII filename.
	  (with-temp-buffer
	    (mime-edit-insert-tag type subtype parameters)
	    (mime-edit-define-encoding encoding)
	    (goto-char (point-min))
	    (mime-tnef-translate-single-part-tag)
	    (buffer-string)))
	 (insert data "\n")
	 ))

     (defun mime-tnef-insert-file-parameters (params file data)
       (let (charset
	     result)
	 (dolist (elt params result)
	   (setq result
		 (cons
		  (cons
		   (car elt)
		   (if (eq (cdr elt) 'charset)
		       (or charset
			   (let ((codings (detect-coding-string data)))
			     (while codings
			       (when (coding-system-to-mime-charset
				      (car codings))
				 (setq charset
				       (symbol-name
					(coding-system-to-mime-charset
					 (car codings)))
				       codings nil))
			       (setq codings (cdr codings)))
			     charset))
		     (cdr elt)))
		  result)))
	 (mime-edit-insert-file-parameters (nreverse result) file)))
     ))

-- 
 (Kazuhiro Ito)