Top / MeadowMemo / .emacsに書く設定

gnusの.emacsに書く設定

最新の10件を表示しています。 コメントページを参照

  • `mime-fiber-real-delete' ってどこで定義されています? 手元の T-gnus-6_16/SEMI-1_14 では見当たらなかったのですが。 -- ari? 2003-11-25 (火) 12:18:20
    • 今は無いようですね。mailcap-fileも無いみたいです。ということで、MeadowMemoからは削除します -- 松下 2003-11-25 (火) 13:49:20
  • fiber -s で指定すると ファイルが削除される問題は解決しませんか。 -- y? 2004-01-24 (土) 08:17:37
    • すばらしい。解決しました。 -- 松下 2004-01-24 (土) 11:27:08
お名前:

MeadowMemoの以下について

;; mime を用いる
(setq mailcap-file "~/.mailcap")
(setenv "MAILCAPS" "~/.mailcap")

これは

(defcustom mime-view-mailcap-files
  (let ((files '("/etc/mailcap" "/usr/etc/mailcap" "~/.mailcap")))
    (or (member mime-mailcap-file files)
	(setq files (cons mime-mailcap-file files)))
    files)
  "List of mailcap files."
  :group 'mime-view
  :type '(repeat file))

となっている。ホームディレクトリに作る分には問題ないが、他の場所に作る時には設定が必要になる。

flimには

(defvar mime-mailcap-file "~/.mailcap"

なんてものも。

;; 添付ファイルを見る時は一度メールからディスクに保存して見ることになります
;; 見た後にそのファイルを消さないなら以下を設定. 消すなら nil ではなく t を設定
;; 必要なら以下のコメントをはずす
;; (setq mime-fiber-real-delete nil)
;;これは必須
(load "mime-setup")

現在は添付ファイルを

(set-process-sentinel process 'mime-mailcap-method-sentinel)

として起動している。つまり、添付ファイルの表示後に mime-mailcap-method-sentinel が実行される。この関数は

(defun mime-mailcap-method-sentinel (process event)
  (let ((file (cdr (assq process mime-mailcap-method-filename-alist))))
    (if (file-exists-p file)
	(delete-file file)
      ))
  (remove-alist 'mime-mailcap-method-filename-alist process)
  (message (format "%s %s" process event)))

として定義されており、外部ファイルは常に削除される。

手元だと関連付けられたプログラムでの表示が開始されると fiber が抜けてきてしまって、表示中のファイルを消せずに エラーとなるので以下のようにしているのですが、 そんなことありませんか? --ari

  • あります。起動したらすぐにfiberが終了してしまってファイルを消してしまうんでしょうか。私は諦めて毎回ファイルを保存してました
(eval-after-load "mime-play"
  '(progn
     (defun mime-mailcap-method-sentinel (process event)
       (message "%s %s" process event))
     (add-hook 'kill-emacs-hook
	       #'(lambda ()
		   (dolist (elem mime-mailcap-method-filename-alist)
		     (when (file-exists-p (cdr elem))
		       (delete-file (cdr elem))))))))

リロード   新規 編集 凍結 差分 添付 複製 改名   トップ 一覧 検索 最終更新 バックアップ   ヘルプ   最終更新のRSS
Last-modified: Fri, 28 Dec 2007 17:22:03 JST (3679d)