From 812889620dd76d9e326a9e6dbb6c60b613f9428d Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 27 Nov 2000 06:04:59 +0000
Subject: [PATCH] Completely rewrote to use mime-conf.el.

---
 mailcap.el |  270 ++++++++----------------------------------------------------
 1 file changed, 33 insertions(+), 237 deletions(-)

diff --git a/mailcap.el b/mailcap.el
index 25595f0..b31dd21 100644
--- a/mailcap.el
+++ b/mailcap.el
@@ -1,12 +1,14 @@
 ;;; mailcap.el --- mailcap parser
 
-;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1997/6/27
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
+;; Created: 1997-06-27
+;;	2000-11-24	Rewrote to use mime-conf.el.
 ;; Keywords: mailcap, setting, configuration, MIME, multimedia
+;; Status: obsolete
 
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
+;; This file is part of FLIM (Faithful Library about Internet Message).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -25,241 +27,35 @@
 
 ;;; Code:
 
-(require 'mime-def)
-
-
-;;; @ comment
-;;;
-
-(defsubst mailcap-skip-comment ()
-  (let ((chr (char-after (point))))
-    (when (and chr
-	       (or (= chr ?\n)
-		   (= chr ?#)))
-      (forward-line)
-      t)))
-
-
-;;; @ token
-;;;
-
-(defsubst mailcap-look-at-token ()
-  (if (looking-at mime-token-regexp)
-      (let ((beg (match-beginning 0))
-	    (end (match-end 0)))
-	(goto-char end)
-	(buffer-substring beg end)
-	)))
-
-
-;;; @ typefield
-;;;
-
-(defsubst mailcap-look-at-type-field ()
-  (let ((type (mailcap-look-at-token)))
-    (if type
-	(if (eq (char-after (point)) ?/)
-	    (progn
-	      (forward-char)
-	      (let ((subtype (mailcap-look-at-token)))
-		(if subtype
-		    (cons (cons 'type (intern type))
-			  (unless (string= subtype "*")
-			    (list (cons 'subtype (intern subtype)))
-			    )))))
-	  (list (cons 'type (intern type)))
-	  ))))
-
-
-;;; @ field separator
-;;;
-
-(defsubst mailcap-skip-field-separator ()
-  (let ((ret (looking-at "\\([ \t]\\|\\\\\n\\)*;\\([ \t]\\|\\\\\n\\)*")))
-    (when ret
-      (goto-char (match-end 0))
-      t)))
-
-
-;;; @ mtext
-;;;
-
-(defsubst mailcap-look-at-schar ()
-  (let ((chr (char-after (point))))
-    (if (and chr
-	     (>= chr ? )
-	     (/= chr ?\;)
-	     (/= chr ?\\)
-	     )
-	(prog1
-	    chr
-	  (forward-char)))))
-
-(defsubst mailcap-look-at-qchar ()
-  (when (eq (char-after (point)) ?\\)
-    (prog2
-	(forward-char)
-	(char-after (point))
-      (forward-char))))
-
-(defsubst mailcap-look-at-mtext ()
-  (let ((beg (point)))
-    (while (or (mailcap-look-at-qchar)
-	       (mailcap-look-at-schar)))
-    (buffer-substring beg (point))
-    ))
-
-
-;;; @ field
-;;;
-
-(defsubst mailcap-look-at-field ()
-  (let ((token (mailcap-look-at-token)))
-    (if token
-	(if (looking-at "[ \t]*=[ \t]*")
-	    (let ((value (progn
-			   (goto-char (match-end 0))
-			   (mailcap-look-at-mtext))))
-	      (if value
-		  (cons (intern token) value)
-		))
-	  (list (intern token))
-	  ))))
-
-
-;;; @ mailcap entry
-;;;
-
-(defun mailcap-look-at-entry ()
-  (let ((type (mailcap-look-at-type-field)))
-    (if (and type (mailcap-skip-field-separator))
-	(let ((view (mailcap-look-at-mtext))
-	      fields field)
-	  (when view
-	    (while (and (mailcap-skip-field-separator)
-			(setq field (mailcap-look-at-field))
-			)
-	      (setq fields (cons field fields))
-	      )
-	    (nconc type
-		   (list (cons 'view view))
-		   fields))))))
-
-
-;;; @ main
-;;;
-
-(defun mailcap-parse-buffer (&optional buffer order)
-  "Parse BUFFER 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."
-  (save-excursion
-    (if buffer
-	(set-buffer buffer))
-    (goto-char (point-min))
-    (let (entries entry)
-      (while (progn
-	       (while (mailcap-skip-comment))
-	       (setq entry (mailcap-look-at-entry))
-	       )
-	(setq entries (cons entry entries))
-	(forward-line)
-	)
-      (cond ((functionp order) (sort entries order))
-	    ((null order) (nreverse entries))
-	    (t entries)
-	    ))))
-
-
-(defcustom mailcap-file "~/.mailcap"
-  "*File name of user's mailcap file."
-  :group 'mime
-  :type 'file)
-
-(defun mailcap-parse-file (&optional filename order)
-  "Parse FILENAME as a mailcap, and return the result.
+(require 'mime-conf)
+
+(define-obsolete-function-alias
+  'mailcap-parse-buffer 'mime-parse-mailcap-buffer)
+
+(define-obsolete-function-alias
+  'mailcap-format-command 'mime-format-mailcap-command)
+  
+(cond
+ ((featurep 'xemacs)
+  (define-obsolete-variable-alias
+    'mailcap-file 'mime-mailcap-file)
+  (define-obsolete-function-alias
+    'mailcap-parse-file 'mime-parse-mailcap-file)
+  )
+ (t
+  (defvar mailcap-file mime-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)
-    ))
-
-(defun mailcap-format-command (mtext situation)
-  "Return formated command string from MTEXT and SITUATION.
-
-MTEXT is a command text of mailcap specification, such as
-view-command.
-
-SITUATION is an association-list about information of entity.  Its key
-may be:
-
-	'type		primary media-type
-	'subtype	media-subtype
-	'filename	filename
-	STRING		parameter of Content-Type field"
-  (let ((i 0)
-	(len (length mtext))
-	(p 0)
-	dest)
-    (while (< i len)
-      (let ((chr (aref mtext i)))
-	(cond ((eq chr ?%)
-	       (setq i (1+ i)
-		     chr (aref mtext i))
-	       (cond ((eq chr ?s)
-		      (let ((file (cdr (assq 'filename situation))))
-			(if (null file)
-			    (error "'filename is not specified in situation.")
-			  (setq dest (concat dest
-					     (substring mtext p (1- i))
-					     file)
-				i (1+ i)
-				p i)
-			  )))
-		     ((eq chr ?t)
-		      (let ((type (or (mime-type/subtype-string
-				       (cdr (assq 'type situation))
-				       (cdr (assq 'subtype situation)))
-				      "text/plain")))
-			(setq dest (concat dest
-					   (substring mtext p (1- i))
-					   type)
-			      i (1+ i)
-			      p i)
-			))
-		     ((eq chr ?\{)
-		      (setq i (1+ i))
-		      (if (not (string-match "}" mtext i))
-			  (error "parse error!!!")
-			(let* ((me (match-end 0))
-			       (attribute (substring mtext i (1- me)))
-			       (parameter (cdr (assoc attribute situation))))
-			  (if (null parameter)
-			      (error "\"%s\" is not specified in situation."
-				     attribute)
-			    (setq dest (concat dest
-					       (substring mtext p (- i 2))
-					       parameter)
-				  i me
-				  p i)
-			    )
-			  )))
-		     (t (error "Invalid sequence `%%%c'." chr))
-		     ))
-	      ((eq chr ?\\)
-	       (setq dest (concat dest (substring mtext p i))
-		     p (1+ i)
-		     i (+ i 2))
-	       )
-	      (t (setq i (1+ i)))
-	      )))
-    (concat dest (substring mtext p))
-    ))
+order.  Otherwise result is not sorted.
+This function is obsolete.  Please use mime-parse-mailcap-file instead."
+    (if filename
+	(mime-parse-mailcap-file filename order)
+      (let ((mime-mailcap-file mailcap-file))
+	(mime-parse-mailcap-file nil order))))
+  (make-obsolete 'mailcap-parse-file 'mime-parse-mailcap-file)
+  ))
 
 
 ;;; @ end
-- 
1.7.10.4