From 449d3184aaa0cb0dc808e7e5b04e9e7650593cf0 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 12 Mar 1998 18:21:12 +0000 Subject: [PATCH] (mailcap-file): New variable. (mailcap-parse-file): New function. --- mailcap.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/mailcap.el b/mailcap.el index fcc47b5..3bc3207 100644 --- a/mailcap.el +++ b/mailcap.el @@ -166,6 +166,21 @@ order. Otherwise result is not sorted." (t entries) )))) +(defvar mailcap-file "~/.mailcap" + "*File name of user's mailcap file.") + +(defun mailcap-parse-file (&optional filename order) + "Parse FILENAME as a mailcap, and return the result. +If optional argument ORDER is a function, result is sorted by it. +If optional argument ORDER is not specified, result is sorted original +order. Otherwise result is not sorted." + (or filename + (setq filename mailcap-file)) + (with-temp-buffer + (insert-file-contents filename) + (mailcap-parse-buffer (current-buffer) order) + )) + ;;; @ end ;;; -- 1.7.10.4